（24）在Visual Basic工程中，可以作为启动对象的程序是
　　A)任何窗体或标准模块
　　B)任何窗体或过程
　　C)Sub Main过程或其他任何模块
　　D)Sub Main过程或任何窗体

　　(25)假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是
　　A)数组中每个命令按钮的名称(名称属性)均为Command1
　　B)数组中每个命令按钮的标题(Caption属性)都一样
　　C)数组中所有命令按钮可以使用同一个时间过程
　　D)用名称Command1(下标)可以访问数组中的每个命令按钮

　　(26)把窗体的KeyPreview属性设置为True,然后编写如下事件过程:
　　Private Sub Form_KeyPress(KeyAscii As Integer)
　　Dim ch As String
　　ch = Chr(KeyAscii)
　　KeyAscii = Asc(UCase(ch))
　　Print Chr(KeyAscii + 2)
　　End Sub
　　程序运行后,按键盘上的”A”键,则在窗体上显示的内容是
　　A)A　　B)B　　C)C　　D)D

　　(27)在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:

　　Private Sub Command1_Click()

　　a = InputBox("请输入日期(1~31)")

　　t = "旅游景点:" _

　　& IIf(a > 0 And a <= 10, "长城", "") _

　　& IIf(a > 10 And a <= 20, "故宫", "") _

　　& IIf(a > 20 And a <= 30, "颐和园", "")

　　Text1.Text = t

　　End Sub

　　程序运行后,如果从键盘输入16,则在文本框中显示的内容是:

　　A)旅游景点：长城故宫

　　B)旅游景点：长城颐和园

　　C)旅游景点：颐和园

　　D)旅游景点：故宫

　　(28)在窗体上画一个名称为Label1的标签,然后编写如下事件过程:

　　Private Sub Form_Click()

　　Dim arr(10, 10) As Integer

　　Dim i As Integer, j As Integer

　　For i = 2 To 4

　　For j = 2 To 4

　　arr(i, j) = i * j

　　Next j

　　Next i

　　Label1.Caption = Str(arr(2, 2) + arr(3, 3))

　　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

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页