题库
题库
| 单选题 | 阅读程序： 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 程序运行后，单击窗体，输入结果为（ ）。 |
查看答案 |
| 单选题 | 在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click() Timer1.（ ） End Sub Private Sub Timer1_Timer() Text1.Text = Time End Sub 在下划线处应填入的内容是（ ）。 |
查看答案 |
| 单选题 | 设有如下通用过程： Public Sub Fun(a() As Integer, x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5) As Integer, n As Integer For i = 1 To 5 arr(i) = i + i Next Fun arr, n Text1.Text = Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。 |
查看答案 |
| 单选题 | 在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c = “ABCD” For n= 1 To 4 Print （ ） Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 D CD BCD ABCD 则在（ ）处填入的内容为。 |
查看答案 |
| 单选题 | 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：_____。 | 查看答案 |
| 单选题 | 数据的存储结构是指（ ）。 | 查看答案 |
| 单选题 | 下列对于软件测试的描述中正确的是（ ）。 | 查看答案 |
| 单选题 | 假定有如下的窗体事件过程： Private Sub Form_Click() a$ = "Microsoft Visual Basic" b$ = Right(a$, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（ ）。 |
查看答案 |
| 单选题 | 在窗体上画一个命令按钮和一个文本框，名称分别为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 = "MicrosoftVisualBasic" ，则以下使变量b的值为“VisualBasic”的语句是（ ）。 | 查看答案 |
| 单选题 | 为了使模块尽可能独立，要求（ ）。 | 查看答案 |
| 单选题 | 假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（ ）。 | 查看答案 |
| 单选题 | 下列对于线性链表的描述中正确的是（ ）。 | 查看答案 |
| 单选题 | 下列关于栈的描述中错误的是（ ）。 | 查看答案 |
| 单选题 | 在窗体上画一个名称为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 程序运行后，单击窗体，在标签中显示的内容是（ ）。 |
查看答案 |
| 单选题 | 对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为（ ）。 | 查看答案 |
| 单选题 | 为了使命令按钮（名称为Command1）右移200，应使用的语句是（ ）。 | 查看答案 |
| 单选题 | 用树形结构表示实体之间联系的模型是（ ）。 | 查看答案 |
| 单选题 | 设a = "a"，b = "b"，c = "c"，d = "d"，执行语句x=IIf((a <b)Or(c>d),”A”,”B”)后，x的值为 （ ）。 | 查看答案 |
| 单选题 | 下列描述中正确的是（ ）。 | 查看答案 |