操纵题.docVIP

一、新建 新建一个VB工程，工程文件名称为：“工程1.vbp”,并添加一个窗体文件：“Form1.frm”，保存在“Z:\VB\1”文件夹下。 进行如下操作后并保存！ 1,按下表的要求添加控件，并设置其属性，操作后保存！ 对象 对象名 属性名 属性值 Label Label1 Caption 龙岩 Label Label2 Caption 宁德 TextBox Text1 Text d401 TextBox Text2 Text n302 CommandButton Command1 Caption 动车查询 二、完善程序 打开“Z:\VB\2”文件夹中的文件：“gc01.vbp”进行以下操作后并保存！ 1，在VB代码窗口指定位置修改完善程序代码实现，求1+2+3+4+…+48+49+50的值。 (运行结果为1275) Private Sub Command1_Click() Dim I As Integer Dim S As Double 删除1，填入正确的代码 S = 1 删除2，填入正确的代码 For I = 1 To 2 Step 1 S = S + I Next I Print 1+2+3+4+…+49+50=; S End Sub 求和初值为0 范围 求和表达式为S=S+I 步长step 打开Z:\VB\5文件夹中的文件：gc02.vbp 进行以下操作后并保存！ ，在VB代码窗口指定位置修改完善程序代码实现，求 2+4+6+8+10+…+46+48+50的值。(运行结果为650) Private Sub Command1_Click() Dim I As Integer Dim S As Double S = 0 删除1，填入正确的代码 For I = 1 To 50 Step 2 删除2，填入正确的代码 S = 2 + I Next I Print 2+4+6+8+10+12+…48+50=; S End Sub 打开“Z:\VB\11”文件夹中的文件：“gc04.vbp” 进行以下操作后并保存！ ，在VB代码窗口指定位置修改完善程序代码实现，求4+8+12+16+…+40+44+48的值。(运行结果为312) Private Sub Command1_Click() Dim I As Integer Dim S As Double 删除1，填入正确的代码 S = 1 删除2，填入正确的代码 For I = 4 To 48 Step 2 S = S + I Next I Print 4+8+12+16+…+44+48 =; S End Sub 三、编程 打开“Z:\VB\3”文件夹中的文件：“k1.vbp” 进行以下操作后并保存！ 在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 1，在Text1输入整数m、Text2输入整数n，判断m与n和的平方能否被3整除，若能，则在Text3文本框中输出能整除，否则在Text3文本框中输出：不能整除。 2，测试数据 在Text1文本框中输入7，Text2文本框中输入5，则Text3文本框中输出：能整除。 在Text1文本框中输入8，Text2文本框中输入2，则Text3文本框中输出：不能整除。 Private Sub Command1_Click() Dim m as integer Dim n as integer M=val(text1.text) N=val(text2.text) If (m+n)*(m+n) mod 3=0 then Text3.text=能整除 Else Text3.text=不能整除 End if End Sub M=val(text1.text) Text1输入整数m N=val(text2.text) Text2输入整数n Text3.text=能整除 在Text3文本框中输出能整除 IF 后跟条件 如果条件满足 Then 否则 else 记得end if 打开Z:\VB\6文件夹中的文件：k2.vbp 进行以下操作后并保存！ 在窗体Form1.frm的Command1_Click事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 1，在Text1输入整数m、Text2输入整数n，判断m和n的大小，并把较小的数在Text3文本框中输出。 2，测试数据 在Text1文本框中输入19，Text2文本框中输入17，则Text3文本框中