第一部分
第1题:
新建一个VB工程，工程文件名称为：“工程1.vbp”,并添加一个窗体文件：“Form1.frm”，保存在Z:\下的VB文件夹下的434文件夹下。 按下表的要求添加控件，并设置其属性，操作后保存！
第二部分
第1题:
打开Z:\“VB\435”文件夹中的文件：“gc05.vbp” 进行以下操作后并保存！
在VB代码窗口指定位置修改完善程序代码实现，求 的值。
Dim s as single
Dim I as integer
S=1
For i=10 to 6 step -1
S=S-(i-1)/i
Next i
Print s
第2题:
打开Z:\“VB\429”文件夹中的文件：“gc03.vbp” 进行以下操作后并保存！
在VB代码窗口指定位置修改完善程序代码实现，求1×2+2×3+3×4+4×5+5×6 的值。
Dim s as integer
Dim I as integer
S=0
For i=1 to 5
S=S+i*(i+1)
Next i
Print s
第3题:
打开Z:\“VB\432”文件夹中的文件：“gc04.vbp” 进行以下操作后并保存！
在VB代码窗口指定位置修改完善程序代码实现，求 的值。
Dim s as single
Dim I as integer
S=0
For i=2 to 11
S=S+i/(i-1)
Next i
Print S
第4题:
打开Z:\“VB\417”文件夹中的文件：“gc01.vbp” 进行以下操作后并保存！
在VB代码窗口指定位置修改完善程序代码实现，求 的值。
Dim s as single
Dim I as integer
S=0
For i=1 to 10
S=S+1/i
Next i
Print S
第5题:
打开Z:\“VB\426”文件夹中的文件：“gc02.vbp” 进行以下操作后并保存！
在VB代码窗口指定位置修改完善程序代码实现，求1×2×3×4×……×10的值。
Dim s as single
Dim I as integer
S=1
For i=1 to 10
S=S*I
Next i
Print S
第三部分
第6题: 打开Z:\"VB\436"文件夹中的文件："k5.vbp" 进行以下操作后并保存！
在窗体"Form1.frm"的"Command1_Click"事件中编写代码，使之能够实现如下功能： 已知三角形一条边C的长度为5，在Text1、Text2分别输入边长a和b,判断三条边能否构成一个三角形，如果是，则在Text3文本框中输出"能"，否则在Text3文本框中输出"不能"。
在Text1文本框中输入3，Text2文本框中输入4，则Text3文本框中输出：能。
在Text1文本框中输入2，Text2文本框中输入1，则Text3文本框中输出：不能。
Dim a as single
Dim b as single
A=val(text1.text)
B=val(text2.text)
If a+5>B and a+b>5 and b+5>a then
Text3.text=”能“
Else
Text3.text=”不能“
End if
第7题:
打开Z:\"VB\430"文件夹中的文件："k3.vbp" 进行以下操作后并保存！
在窗体"Form1.frm"的"Command1_Click"事件中编写代码，使之能够实现如下功能： 在Text1输入整数a、Text2输入整数b，如果b不等零，则在Text3文本框中输出a除以b的值，否则在text3文本框中输出"除数为零"。
测试数据
在Text1文本框中输入12，Text2文本框中输入4，则Text3文本框中输出：3。
在Text1文本框中输入12，Text2文本框中输入0，则Text3
文本框中输出：除数为零。
Dim a as integer
Dim b as integer
A=val(text1.text)
B=val(text2.text)
If b<>0 then
Text3.text=a/b
Else
Text3.text=”除数为零“
End if
第8题:
打开Z:\"VB\433"文件夹中的文件："k4.vbp" 进行以下操作后并保存！
在窗体"Form1.frm"的"Command1_Click"事件中编写代码，使之能够实现如下功能： 在Text1输入整数a、Text2输入整数b，判断a和b的差是否比50小，若比50小，则在Text3文本框中输出"小于"，否则在Text3文本框中输出："大于或等于"。
测试数据
在Text1文本框中输入12，Text2文本框中输入40，则Text3文本框中输出：小于。
在Text1文本框中输入61，Text2文本框中输入3，则Text3文本框中输出：大于或等于。
Dim a as integer
Dim b as integer
A=val(text1.text)
B=val(text2.text)
If a-b<50 then
Text3.text=”小于“
Else
Text3.text=”大于或等于“
End if
第9题:
打开Z:\"VB\424"文件夹中的文件："k1.vbp" 进行以下操作后并保存！
在窗体"Form1.frm"的"Command1_Click"事件中编写代码，使之能够实现如下功能： 在Text1输入整数a、Text2输入整数b，判断a和b的和能否被3整除，若能，则在Text3文本框中输出"能"，否则在Text3文本框中输出："不能"。
测试数据
在Text1文本框中输入12，Text2文本框中输入5，则Text3文本框中输出：不能。
在Text1文本框中输入21，Text2文本框中输入3，则Text3文本框中输出：能。
Dim a as integer
Dim b as integer
A=val(text1.text)
B=val(text2.text)
If (a+b) mod 3=0 then
Text3.text=”能“
Else
Text3.text=”不能“
End if
第10题:
打开Z:\"VB\427"文件夹中的文件："k2.vbp" 进行以下操作后并保存！
在窗体"Form1.frm"的"Command1_Click"事件中编写代码，使之能够实现如下功能： 在Text1输入整数a、Text2输入整数b，判断a和b的差是否等于5，若相等，则在Text3文本框中输出"相等"，否则在Text3文本框中输出："不等"。
测试数据
在Text1文本框中输入12，Text2文本框中输入4，则Text3文本框中输出：不等。
在Text1文本框中输入13，Text2文本框中输入8，则Text3文本框中输出：相等。
Dim a as integer
Dim b as integer
A=val(text1.text)
B=val(text2.text)
If a-b=5 then
Text3.text=”相等“
Else
Text3.text=”不等“
End if