21.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, x As Integer For i = 1 To 6 If i = 1 Then x = i If i <= 4 Then x = x + 1 Else x = x + 2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为 A、9 B、6 C、12 D、15
A B C D
22.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程， Private Sub Command1_Click() c = "ABCD" For n = 1 To 4 Print ____ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD 则在____处应填入的内容为 A、Left(c,n) B、Right(c,n) C、Mid(c,n,1) D、Mid(c,n,n)
A B C D
23.执行以下程序段 Dim x As Integer, i As Integer x = 0 For i = 20 To 1 Step -2 x = x + i \ 5 Next i 后，x的值为 A、16 B、17 C、18 D、19
A B C D
24.在Visual Basic工程中，可以作为“启动对象“的程序是 A、任何窗体或标准模块 B、任何窗体或过程 C、Sub Main过程或其他任何模块 D、Sub Main 过程或任何窗体
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
A B C 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 <= 31, "颐和园", "") Text1.Text = t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是 A、旅游景点：长城故宫 B、旅游景点：长城颐和园 C、旅游景点：颐和园 D、旅游景点：故宫
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
A B C D
29.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： 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 i Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是 A、6 B、7 C、8 D、9
A B C D
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
收藏本文到QQ书签
搜藏本文到百度搜藏
收藏
推荐
评论(0条)