2014秋VB复习资料(2014-12-21)

2）在窗体的单击事件中有如下代码：

Private Sub Form_Click()

Dim a As Integer, b As Integer, c As Integer a = InputBox(\任意输入一个整数\b = InputBox(\任意输入一个整数\c = InputBox(\任意输入一个整数\If a < b Then a = b If a < c Then a = c

Print \个数中最大的数是：\End Sub

3）在窗体的单击事件中有如下代码：

Private Sub Form_Click() Dim x As Integer

x = InputBox(\输入课程成绩\If x < 0 Or x > 100 Then Print \成绩录入有误\ElseIf x < 60 Then Print \不合格\Else

Print \合格\End If

End Sub

7、在窗体的单击事件中实现功能：键盘输入一个数并判断这个数的奇偶性。 8、计算下面分段函数的值，并输出y的值。

x(x?0)y=

?3x(x?0)

9、编程求20的阶乘。要求：窗体的单击事件中实现， Print方法输出，分别用For

和Do While…loop两种循环实现。 10、 程序如下：

Private Sub Form_Click() a = 4 b = 9

i = 1

For n = 4 To 27 step 3 i=i+1

Next n Print i ; n

请回答：

1） 该程序中循环体的循环变量初值为_______

终值为________，步长为_______; 2） 该程序输出结果为：

________________________________

2

End Sub

Private Sub Command_Click()

x=inputBox (“成绩录入”,,) if x>= 60 then print “合格” else print “不合格” ________________ End Sub

请回答：

1) 横线处应补充语句_______； 2) 该程序功能为：

________________________________ 3） 如输入数据40，该程序输出为

_________________________________

11、 程序如下：

12、 编写一段代码完成1+2+3+…+100=?的计算：

要求：代码由窗体载入事件驱动，将运算结果用窗体的Print方法显示在窗口

中

13、 程序分析，解释带下划线语句的作用，并写出程序执行的结果或功能。 （1）Private Sub Command1_Click() Dim countN%, n% countN = 0 n = 1 Do n = n + 1

If n Mod 3 = 1 And n Mod 5 = 1 And n Mod 7 = 1 Then Print n

countN = countN + 1 End If

Loop Until countN = 5 End Sub

（2）Private Sub Form_Click() Dim i, a, b, n As String n = InputBox(\输入字符\i = Len(n) For a = i To 1

Print Mid$(n,a,1) Next a End Sub

（3）假设x,y,z,输入的的数据分别为：35,688,90 Private Sub Command1_Click() Dim x!, y!, z!

x = InputBox(\y = InputBox(\z = InputBox(\

Print Tab(8); \Print \排序前:\If x < y Then t = x: x = y: y = t If x < z Then t = x: x = z: z = t If y < z Then t = y: y = z: z = t

Print \排序后:\End Sub

14、 计算100~1000之间所有能被5和6整除的数之和。 15、 从键盘输入6个数，求这6个数的和与平均值。