2004年4月全国计算机等级考试二级VB笔试试卷（附参考答案）

出处：考试大作者：onmars 日期：2007年07月18日 14时16分

　　程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是
　　A) 72 36 B) 108 36 C) 72 6 D) 108 6
　　(25) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
　　Private Sub Command1_Click()
　　 c = 1234
　　 c1 = Trim(Str(c))
　　 For i = 1 To 4
　　 Print　
　　 Next
　　End Sub
　　程序运行后，单击命令按钮，要求在窗体上显示如下内容
　　1
　　12
　　123
　　1234
　　则在下划线处应填入的内容为
　　A) Right(c1,i) B) Left(c1,i) C) Mid(c1,i,1) D) Mid(c1,i,i)
　　(26) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：东方教育网提供 Http://www.eastedu.com.cn
　　Private Sub Command1_Click()
　　 n = Val(Text1.Text)
　　 For i = 2 To n
　　 For j = 2 To sqr(i)
　　 If i Mod j = 0 Then Exit For
　　 Next j
　　 If j > Sqr(i) Then Print i
　　 Next i
　　End Sub
　　该事件过程的功能是
　　A) 输出n以内的奇数 B) 输出n以内的偶数
　　C) 输出n以内的素数 D) 输出n以内能被j整除的数
　　(27) 在以下描述中正确的是
　　A) 标准模块中的任何过程都可以在整个工程范围内被调用
　　B) 在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
　　C) 如果工程中包含Sub Main过程，则程序将首先执行该过程
　　D) 如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体
　　(28) 在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
　　Private Function f(m As Integer)
　　 If m Mod 2 = 0 Then
　　 f = m
　　 Else
　　 f = 1
　　 End If
　　End Function
　　Private Sub Command1_Click()
　　 Dim i As Integer
　　 s = 0
　　 For i = 1 To 5
　　 s = s + f(i)
　　 Next
　　 Print s
　　End Sub
　　程序运行后，单击命令按钮，在窗体上显示的是
　　A) 11 B) 10 C) 9 D) 8
　　(29) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
　　Private Sub Command1_Click()
　　 Dim array1(10, 10) As Integer
　　 Dim i As Integer, j As Integer
　　 For i = 1 To 3
　　 For j = 2 To 4
　　 array1(i, j) = i + j
　　 Next j
　　 Next i
　　 Text1.Text = array1(2, 3) + array1(3, 4)
　　End Sub
　　程序运行后，单击命令按钮，在文本框中显示的值是
　　A) 15 B) 14 C) 13 D) 12
　　(30) 在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：
　　Private Sub Command1_Click()
　　 For Each TextBox In Text1
　　 Text1(i) = Text1(i).Index
　　 i = i + 1
　　 Next
　　End Sub
　　程序运行后，单击命令按钮，四个文本框中显示的内容分别为
　　A) 0　1　2　3 B) 1　2　3　4
　　C) 0　1　3　2 D) 出错信息

最后更新时间：2008-03-28 12:57:08

共6页: 上一页 [1] [2] [3] 4 [5] [6] 下一页

文章评论

共有 0 位网友发表了评论