内容发布更新时间 : 2024/11/19 10:32:35星期一 下面是文章的全部内容请认真阅读。
For i = 1 To 10 For j = 1 To 10 arr(i, j) = i + 2 * j Next j Next i
Print arr(0, 1) + arr(2, 3) End Sub
运行时，单击命令按钮后输出的结果是（A ）。
A、 8 B、 10 C、 20
D、 下标越界
59、窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim s%, i%, j%
Dim a(3, 3) As Integer For i = 1 To 3 For j = 1 To i a(i, j) = j s = s + a(i, j) Next j, i Print s End Sub
运行时，单击按钮，则窗体上显示的内容是（C ）。 A、 6
B、 9 C、 10 D、 18
60、运行下列程序，单击窗体后输出结果是（C ）。 Private Sub Form_Click() Dim a
Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6) For i = 1 To a(5) j = j + 1 Next i Print j End Sub
A、 0 B、 5 C、 6
D、 程序出错
61、设arr是一个上界为K的一维动态数组。能使arr元素个数增加1，但保留数组中原有
数据的语句是（ D ）。
A、 ReDim arr(K + 1)
B、 ReDim Static arr(K + 1) C、 Public arr(1 To K + 1) D、 ReDim Preserve arr(K + 1)
62、窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim i%, j%, x%, n% x = 0 n = InputBox(\ For i = 1 To n For j = 1 To i x = x + j Next j Next i Print x End Sub
运行时，单击命令按钮，如果在输入对话框中输入3，则窗体上显示的内容是（ B）。
A、 6 B、 10 C、 14 D、 18
63、窗体上有命令按钮Command1和Command2，阅读下列程序： Private Sub Command1_Click() a = a + 1 : Print a； End Sub
Private Sub Command2_Click() a = a + 1 : Print a End Sub
运行时，先后单击Command1和Command2按钮，输出的结果为（A ）。
A、 1 1 B、 2 2 C、 1 2 D、 2 1
64、窗体上有文本框（Text1、Text2和Text3）和命令按钮（Command1），编写如下事件过
程：
Private Sub Command1_Click() Dim x%, y%, z% x = 1: y = 2: z = 3 Call proc(x, y, z) Text1.Text = x Text2.Text = y Text3.Text = z End Sub
Private Sub proc(ByVal a%, b%, c%)
a = a + b + c b = a + b + c c = a + b + c
End Sub
运行后，单击按钮，Text1、Text2和Text3将分别显示（C ）。
A、 1、2和3 B、 1、6和6 C、 1、11和20 D、 6、11和20
65、运行下列程序，单击窗体后输出的结果是（D ）。
Private Sub Sele(x%, y%, z%) x = x + 1: y = y + 1: z = z + 1 Print x; y; z End Sub
Private Sub Form_Click() Dim a%, b%, c% a = 1: b = 2: c = 3 Call Sele(a, b + 1, (c)) Print a; b; c End Sub
A、 1 1 1
1 2 3 B、 2 3 4
1 2 3 C、 1 2 3
2 4 4
D、 2 4 4
2 2 3
66、窗体上有一个文本框Text1和命令按钮Command1，编写如下事件过程和过程p1： Private Sub Command1_Click() Dim x%, y%, z% x = 7: y = 8: z = 9 Text1.Text = \ Call p1(x, y, z) Text1.Text = Str(z)
End Sub
Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub
运行时，单击命令按钮，Text1中的内容为（ B ）。
A、 0 B、 15 C、 9 D、 Str(z)
67、运行下面的程序，输出的结果为（ A ）。 Public Function f(ByVal n%, ByVal r%) If n <> 0 Then f = f(n \\ r, r) Print n Mod r; End If End Function
Private Sub Command1_Click() Print f(20, 8) End Sub
A、 2 4 B、 1 2 4 C、 1 4 4 D、 4 4
68、窗体上有一个命令按钮C1，两次单击C1后程序运行的结果为 （ C ）。 Dim Z As Integer Sub S() Dim Z Z = Z + 2 Print z End Sub
Private Sub C1_Click() Z = Z + 2 Call S Print Z End Sub
A、 第一次为2 2 第二次为 4 4 B、 第一次为4 4 第二次为 8 8 C、 第一次为2 2 第二次为 2 4 D、 第一次为2 4 第二次为 4 6
69、下列关于多文档界面（MDI）的叙述错误的是（A ）。
A、 MDI子窗体可在MDI父窗体的外部区域显示 B、 MDI子窗体包含在一个大小可调的MDI父窗体内 C、 MDI子窗体最小化时的图标在MDI父窗体内显示
D、 MDI子窗体最大化时，其标题与MDI父窗体标题合并显示在父窗体的标题栏中 70、假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命
令按钮后，能使打开的对话框的标题为“Visual Basic”的代码是（ B ）。
A、 CommonDialog1.DialogTitle = \
CommonDialog1.ShowPrinter B、 CommonDialog1.DialogTitle = \
CommonDialog1.ShowSave C、 CommonDialog1.DialogTitle = \
CommonDialog1.ShowFont D、 CommonDialog1.DialogTitle = \
CommonDialog1.ShowColor
71、要在磁盘上新建一个文件名为\的顺序文件，下列（ D ）是正确的。
A、 F=\
open F For Append As #2
B、 F=\
open \
C、 open c:\\t1.txt For Output As #2 D、 open \72、下列关于文件的叙述正确的是（ D ）。
A、 Open命令的作用是打开一个已存在的文件 B、 使用Input#语句可以从随机文件中读取数据 C、 一个记录中所包含的各元素数据类型必须相同 D、 二进制存取可以获取任一文件的原始字节