考试网 >> IT认证 >> 等级 >> 二级考试 >> 2005年9月全国计算机二级VB笔试试卷（含参考答案）

2005年9月全国计算机二级VB笔试试卷（含参考答案）

发布时间：2006-07-25 12:10 点击：

分页:上一页 1 2 3 [4] 5 6 7 8 9 10 下一页

　　D）把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面）

　　

　　（20）假定有如下事件过程：

　　Private Sub Form_Click()

　　 Dim x As Integer, n As Integer

　　 x = 1

　　 n = 0

　　 Do While x < 28

　　 x = x * 3

　　 n = n + 1

　　 Loop

　　 Print x, n

　　End Sub

　　程序运行后，单击窗体，输出结果是

　　A）81 4 B）56 3

　　C）28 1 D）243 5

[Page: ]

　　

　　（21）有如下程序：

　　 Private Sub Form_Click()

　　 Dim Check, Counter

　　 Check = True

　　 Counter = 0

　　 Do

　　 Do While Counter < 20

　　 Counter = Counter + 1

　　 If Counter = 10 Then

　　 Check = False

　　 Exit Do

　　 End If

　　 Loop

　　 Loop Until Check = False

　　 Print Counter, Check

　　 End Sub

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

　　A）15 0 B）20 -1

　　C）10 True D）10 False

　　

　　（22）有如下程序：

　　 Private Sub Form_Click()

　　 Dim i As Integer, sum As Integer

　　 sum = 0

　　 For i = 2 To 10

　　 If i Mod 2 <> 0 And i Mod 3 = 0 Then

　　 sum = sum + i

　　 End If

　　 Next i

　　 Print sum

　　 End Sub

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

　　 A）12 B）30 C）24 D）18

　　

　　（23）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　 Dim array1(10, 10) As Integer

　　 Dim i As Integer, j As Integer

　　 For i = 1 To 3

分页:上一页 1 2 3 [4] 5 6 7 8 9 10 下一页

版权申明:未经书面授权请勿转载本站信息!!作品版权归所属媒体与作者所有!!

发表评论：

匿名发表

用户名:

查看评论

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