单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1 Click()
Dim i As Integer, j As Integer
Dim a(10,10)As Tnteger
For i=1 To 3
For j=i To 3
a(i,j)=(i-1)*3+j
Print a(i,j);
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的
是______。
单选题在标准模块中用Public关键字定义的变量，其作用域为( )。 A) 本模块所有过程 B) 整个工程 C) 所有窗体 D) 所有标准模块
单选题在文本框控件中，将Text的内容全部显示为用户所定义的字符的属性是( )。
单选题假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程Command1_Click时，在顺序文件Person. txt中写入一条记录。下列能够完成该操作的事件过程是______。
单选题编写如下事件过程： Private Sub Form_Click() k=2 Ifk＞=1 Then A=3 Ifk＞=2 Then A=2 Ifk＞=3 Then A=1 Print A End Sub 程序运行后，单击窗体，输出的结果为 ______。
单选题Visual Basic集成的主窗口中不包括
单选题单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() BT 4 End Sub Private Sub BT(x As Integer) x=x*2+1 If x＜6 Then Call BT(x) End If x=x*2 Print x； End Sub
单选题下列可作为Visual Basic变量名的是( )。
单选题在VB集成开发环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是
单选题有程序如下: Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub运行上面程序，单击命令按钮，输出结果为______ 。
单选题下列程序的执行结果为( )。 Private Sub Command1_Click() Dim s1 As String,s2 As String s1="abcdef" Call Invert(s1,s2) Print s2 End Sub Private Sub Invert(ByVal xstr As String,ystr As String) Dim tempstr As String i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr,i,1) i=i-1 Loop ystr=tempstr End Sub
单选题下列( )字符串不能作为VB中的变量名。
单选题窗体上有两个文本框Text1、Text2以及一个命令按钮Comanand1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text = p2(p1(x), y) Text2.Text = p1(x) End Sub Private Function p1(x As Integer) As Integer x=x+y:y=x+y p1=x+y End Function Private Function p2(x As Integer, y As Integer) As Integer p2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。
单选题某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回False。 Function prime(a As Integer)As Boolean Dim k As Integer,isprime As Boolean If a＜2 Then isprime＝False Else isprime＝True k＝2 Do While k＜a／2 And isprime If a Mod k＝0 Then isprime ＝False Else k＝k＋1 End If Loop End If prime＝isprime End Function 在测试时发现有1个非素数也被判断为素数，这个错判的数是( )。
单选题如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 ______ 。
单选题以下能将顺序文件进行写入的语句是___________。
A.Put #
B.Get #
C.Write #
D.Read #
单选题窗体上有一个名称为Optionl的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程：Private Sub Optionl_Click(Index As Integer)End Sub下面关于此过程的参数Index的叙述中，正确的是( )。
单选题单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click()
Dima As Integer，b As Integer，c As Integer
a=3:b=4:c=5
Print SecProc(c,b,a)
End Sub
Function FirProc(x As Integer，y As Integer，z As Integer)
FirProc=2*x+y+3*z+2
End Function
Function SecProc(x As Integer，y As Integer，z As Integer)
SecProc=FirProc(z，x，y) +x+7
End Function
Ａ) 20 Ｂ) 25 Ｃ) 37 Ｄ) 32
单选题执行如下两条语句后，窗体上显示的是 ______。 a=8.4326 Print Format(a,"$00,00.00")
单选题窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim m As String m = InputSox( "请输入字符串" ) Print pick_str(m) End Sub Private Function pick_str(s As String)As String temp = " " i=1 sLen = Len (s) Do While i ＜ = sLen / 2 temp=temp +Mid(s, i, 1)+Mid(s, sLen-i+1, 1) i=i+1 Loop pick_str = temp End Function 运行程序，单击命令按钮，并在输入对话框中输入“basic”，则在窗体上显示的内容为( )。 A) bcai B) cbia C) bcais D) cbias