单选题在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For I=1 To 2
For J=1 To I
Print String(I，"Hello")；
Next J
Print
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
Ａ) H Ｂ) H Ｃ) HHHHH Ｄ) H
HH HHHH HH
HH HHHH
单选题文本框Text1的KeyDown事件过程如下：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)…End Sub其中参数KeyCode的值表示的是发生此事件时
单选题下面程序的执行结果是( )。 Private Sub Command1_Click() a=10 For k=1 To 5 Step-1 a=a-k Next k Print a; k End Sub
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox("Input") Select Case x Case 1， 3 Print“分支1” Case Is＞4 Print“分支2” Case Else Print “Else分支” End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For i =0 To 50 i=i+3 n=n+1 If i ＞ 10 Then Exit For Next Text1. Text =Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。 A) 2 B) 3 C) 4 D) 5
单选题运行如下程序 Private Sub Command1_Click() Dim a(5, 5)As Integer For i = 1 To 5 For j = 1 To 4 a(i, j)=i * 2+j If a(i, j)/7 =a(i, j) /7 Then n=n+1 End If Next j Next Print n End Sub n的值是( )。 A) 2 B) 3 C) 4 D) 5
单选题下列关于线性链表的叙述中，正确的是( )。 A) 各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致 B) 各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续 C) 进行插入与删除时，不需要移动表中的元素 D) 以上说法均不正确
单选题阅读下面的程序：
Function Func(x As Integer,y As Integer)As Integer
Dim n As Integer
Do While n＜=4
x=x+y
n=n+1
Loop
Func=x
End Function
Private Sub Form_Click()
Dim x As Integer,y As Integer
Dim n As Integer,z As Integer
x=1
y=1
For n=1 To 6
z=Func(x,y)
Next n
Print z
End Sub
程序运行后，单击窗体，输出结果是
单选题以下关于VB文件的叙述中，正确的是______。
A.标准模块文件的扩展名是.frm
B.VB应用程序可以被编译为.exe文件
C.一个工程文件只能含有一个标准模块文件
D.类模块文件的扩展名为.bas
单选题语句Dim a(-3 To 4,3 To 6)As Integer定义的数组的元素个数是______。
A.18
B.28
C.21
D.32
单选题下列选项中属于面向对象设计方法主要特征的是( )。
单选题下列程序运行后的输出结果是 Function Fun(n) X=n*n Fun=x-11 End Function Private Sub Command1_Click() For k=1 To 2 y=Fun(k):Print y Next End Sub
单选题在数据管理技术发展过程中，文件系统与数据库系统的主要区别是数据库系统具有______。
A.数据较低的冗余度
B.数据共享度高
C.特定的数据模型
D.专门的数据管理软件
单选题单击命令按钮时，下列程序代码的运行结果为( )。
Private Sub Command1_Click()
print MyFunc(20，18)
End Sub
Public Function MyFunc (m As Integer，n As Integer)As Integer
Do While m <>n
Do While m ＞ n：m=m - n：Loop
Do While m ＜ n：n=n - m：Loop
Loop
MyFunc=m
End FunCtion
单选题Visual Basic中的整数可以用十六进制或八进制表示，十六进制数前面冠以&H，八进制数前面冠以
单选题设有如图所示窗体和以下程序：PrivateSubCommand1_Click()Text1.Text="VisualBasic"EndSubPrivateSubText1_LostFocus()IfText1.Text＜＞"BASIC"ThenText1.Text=""Text1.SetFocusEndIfEndSub程序运行时，在Text1文本框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是______。
单选题以下关于窗体的叙述中错误的是
单选题窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序：PrivateSubCommand1_Click()DimnIfText1.Text＜＞"123456"Thenn=n+1Print"口令输入错误"&n&"次"EndIfEndSub希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是()A．在Dimn语句的下面添加一句：n=0B．把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"C．把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)＆"次"D．把Dimn改为Staticn
单选题单击一次命令按钮后，下列程序的执行结果是（ ）。
Private Sub Command1_Click()
s=P(1) +P(2) +P(3) +P(4)
Print s
End Sub
Public Function P(N As Integer)
Static Sum
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
单选题要使两个单选按钮属于同一个框架，下面三种操作方法中正确的是______。
①先画一个框架，再在框架中画两个单选按钮
②先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中
③先画两个单选按钮，再画框架将单选按钮框起来