计算机二级 - VB

不定项选择题

编写如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private SubForm_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住“Shift”键和锁定大写键时) 运行程序，若按“T”键，则程序输出的结果是A

A. T T
B. t T
C. T t
D. t t

查看答案

不定项选择题

有如下程序： Private Sub Command1_Click() a$="A WORKER IS HERE" x=Len(a$) For i=1 To x-1 b$=Mid$(a$，i，3) If b$="WOR"，Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为A

A. 1
B. 2
C. 3
D. 5

查看答案

单选题

函数过程冈的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是()。

A. Function Fl(bAsInteger) If b Mod2=0 Then Remm 0 Else Remm 1 End If End FunctiOn
B. Function F1(bASInteger) IfbMOd2=0Then F1=0 E1se F1=1 End If End Funcdon
C. FuncdOnH(b As Integer) IfbMod2=0 Then F1=1 Else F1=0 End If End FunctiOn
D. FuncdOn F1(b As Integer) If b MOd2＜＞0 Then Retum 0 Else Return 1 End If End FunctiOn

查看答案

单选题

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() x=Input Box("Input") Select Case x Case 1,3 Print"分支1" Case Is＞4 Print"分支2" Case Else Print"Else分支" End Select End Sub 程序运行后，如果在输入对话

A. 分支1
B. 分支2
C. Else分支
D. 程序出错

查看答案

单选题

在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。然后编写如下事件过程： Private Commandl_Click() CommonDialogl.FileName="" CommonDialogl.Filter="Allfile|.|(.Doc)|.Doc|(.Txt)|.Txt" CommonDialogl.Filterlndex=2 CommonDialogl.DialogTifle="VBTest

A. 该对话框被设置为“打开”对话框
B. 在该对话框中指定的默认文件名为空
C. 该对话框的标题为VBTest
D. 在该对话框中指定的默认文件类型为文本文件(*.Txt)

查看答案

单选题

3在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： PrivateSubCommand1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X PrintX,Y EndSub 程序运行时，3次单击命令按钮Commandl后，窗体上显示的结果为()。

A. 15 16
B. 156
C. 15 15
D. 56

查看答案

不定项选择题

在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程： Private Sub Command1_Click() CommonDialogl．FileName=“” CommonDialogl，Filter＝“All File｜．｜(．DoC｜．Doc｜(．Txt)｜．Txt” CommonDialogl．Filterlndex＝2 CommonDialogl．DialogTitle＝“VBTest” CommonDialogl．Action＝1 End Sub对于这个程序，以下叙述中错误的是

A. 该对话框被设置为“打开”对话框
B. 在该对话框中指定的默认文件名为空
C. 该对话框的标题为VBTest
D. 在该对话框中指定的默认文件类型为文本文件(*．Txt)

查看答案

不定项选择题

下面程序运行后,输出的结果是 Dim arr(3,3) For j=1 To 3 For k=1 To 3 Arr(j,k)=(j-1)*3+k Next k Next j For j=2 To 3 For j=2 To 3 Print arr(k,j); Next k Print Next j

A. 2 5 3 6
B. 5 8 6 9
C. 4 7 5 8
D. 5 9 6 8

查看答案

不定项选择题

在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程。 Private Sub Form_load() List1.AddItem "Itern 1" List1.AddItem "Itern 2" List1.AddItem "Itern 3" End Sub Private Sub Command1_Click() List1.List(List1.Listcount)="AAAA" End Sub 程序运行后,单击命令按钮,其结果为

A. 把字符串"AAAA"添加到列表框中,但位置不能确定
B. 把字符串"AAAA"添加到列表框的最后(即"Item 3"的后面)
C. 把列表框中原有的最后一项改为"AAAA"
D. 把字符串"AAAA"插入到列表框的最前面(即"Item 1"的前面)

查看答案

不定项选择题

如果在c盘当前文件下已存在名称为studata.dat的顺序文件,那么执行语句Open″c:studata.dat″ For Append As # 1之后,将

A. 删除文件中原有内容
B. 保留文件中原有内容,并在文件尾填加新内容
C. 保留文件中原有内容,并在文件头填加新内容
D. 以上均不对

查看答案

有如下程序：<br>Private Sub Command1_Click()<br>a$="A WORKER IS HERE"<br>x=Len(a$)<br>For i=1 To x-1<br>b$=Mid$(a$，i，3)<br>If b$="WOR"，Then S=S+1<br>Next<br>Print S<br>End Sub<br>单击命令按钮，程序运行结果为A

函数过程冈的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是()。

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() x=Input Box("Input") Select Case x Case 1,3 Print"分支1" Case Is＞4 Print"分支2" Case Else Print"Else分支" End Select End Sub 程序运行后，如果在输入对话

3在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： PrivateSubCommand1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X PrintX,Y EndSub 程序运行时，3次单击命令按钮Commandl后，窗体上显示的结果为()。

下面程序运行后,输出的结果是<br>Dim arr(3,3)<br>For j=1 To 3<br>For k=1 To 3<br>Arr(j,k)=(j-1)*3+k<br>Next k<br>Next j<br>For j=2 To 3<br>For j=2 To 3<br>Print arr(k,j);<br>Next k<br>Print<br>Next j

如果在c盘当前文件下已存在名称为studata.dat的顺序文件,那么执行语句Open″c:studata.dat″ For Append As # 1之后,将