发布时间 : 2024/5/18 15:59:43 星期六 文章福建高职计算机类VB综合试卷（第1-10章）原创 - 图文更新完毕开始阅读9db44c86b9d528ea80c77904

For k = 0 To 2

a(k + 1) = Val(InputBox(\请输入数据:\ b(3 - k) = a(k + 1) Next k Print b(k)

36. 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim Arr1(10), arr2(10) As Integer n=3

For i = 1 To 5 Arr1(i) = i

arr2(n) = 2 * n + i Next i

Print arr2(n); Arr1(n) End Sub

程序运行后,单击命令按钮,输出结果是__________

37. 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1

Private Sub Command1_Click() Dim a(10), p(3) As Integer k=5

For i= 1 To 10 a(i)= i Next i

For i= 1 To 3 p(i) = a(i * i) Next i

For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub

程序运行后,单击命令按钮,输出结果是_________

38. 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1

Private Sub Command1_Click() Dim Arr(3) As Integer For i = 1 To 3 For j = 1 To 3 Arr(j) = Arr(i) + 1 Next j Next i

Print Arr(3)

49

End Sub

程序运行后,单击命令按钮,其输出结果为___________

39.在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim M(10) As Integer For k= 1 To 10 M(k) = 12 - k Next k x=6

Print M(2 + M(x)) End Sub

程序运行后,单击命令按钮,输出结果是________

40在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1

Private Sub Command1_Click() d = 0 c = 10

x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) > c Then d = d + x(i) c = x(i) Else d = d－c End If Next i Print d End Sub

程序运行后，如果单击命令按钮，则在窗体上输出的内容为__________ 41设有如下程序：

Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0

For i = 1 To 5 x = n / i n = n + 1

sum = sum + x Next End Sub

该程序通过For循环计算一个表达式的值，这个表达式是________________ 42设有程序： Option Base 1

50