考试网 >> IT认证 >> 等级 >> 二级考试 >> 05年4月等级考试二级VB真题(附答案)

发布时间：2006-06-27 23:26     点击：

　　End Sub

　　程序运行后,单击窗体,在标签中显示的内容是

　　A)12

　　B)13

　　C)14

　　D)15

　　(29) 在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:

　　Private Function fun(ByVal m As Integer)

　　If m Mod 2 = 0 Then

　　fun = 2

　　Else

　　fun = 1

　　End If

　　End Function

　　Private Sub Command1_Click()

　　Dim i As Integer, s As Integer

　　s = 0

　　For i = 1 To 5

　　s = s + fun(i)

　　Next

　　Print s

　　End Sub

　　程序运行后,单击命令按钮,则窗体上显示的是:

　　A)6

　　B)7

　　C)8

　　D)9

　　(30)阅读程序:

　　Option Base 1

　　Dim arr() As Integer

　　Private Sub Form_Click()

　　Dim i As Integer, j As Integer

　　ReDim arr(3, 2)

　　For i = 1 To 3

　　For j = 1 To 2

　　arr(i, j) = i * 2 + j

　　Next j

　　Next i

　　ReDim Preserve arr(3, 4)

　　For j = 3 To 4

　　arr(3, j) = j + 9

　　Next j

　　Print arr(3, 2) + arr(3, 4)

　　End Sub

　　程序运行后,单击窗体,输出结果为:

　　A)21

　　B)13

　　C)8

　　D)25

　　31)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim c As Integer, d As Integer

　　d = 0

　　c = 6

　　x = Array(2, 4, 6, 8, 10, 12)

　　For i = 1 To 6

　　If x(i) > c Then

　　d = d + x(i)

　　c = x(i)

　　Else

发表评论： 匿名发表 用户名: 查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任 留言板管理人员有权保留或删除其管辖留言中的任意内容 本站提醒：不要进行人身攻击。谢谢配合。