单选题阅读程序： Option Base 1 Private Sub Form_Click( ) Dim Arr(4，4)As Integer For i = 1 To 4 For j = 1 To 4 Arr(i， j)= (i - 1)* 2 +j Next j Next i For i = 3 To 4 For j = 3 To 4 Print Arr(j， i); Next j Print Next i End Sub 程序运行后，单击窗体，输出结果是________。
单选题运行以下程序后，显示的结果为 ______。 Dim x(5) x(0) =1 For i=1 To 5 x(i)=x(i-1)*i Print x(i) Next i End
单选题下面不属于需求分析阶段任务的是
单选题在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是 ______。 A) Picture1.Picture="mypic.jpg" B) Picture1.Image="mypic.jpg" C) Picture1.Picture=LoadPicture("mypic.jpg") D) LoadPicture("mypic.jpg")
单选题下列描述中正确的是( ) A．软件工程只是解决软件项目的管理问题 B．软件工程主要解决软件产品的生产率问题 C．软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D．软件工程只是解决软件开发中的技术问题
单选题如果在C盘当前文件夹下已存在名为StuData.dar的顺序文件，那么执行语句Open“C: StuData.dar” For Append
As #1之后将______ 。
A. 删除文件中原有内容。
B. 保留文件中原有内容，可在文件尾添加新内容。
C. 保留文件中原有内容，在文件头开始添加新内容。
D. 以上均不对。
单选题下面程序的输出结果是( ) Private Sub Command1_Click() Ch$="ABCDEF" proc ch:Print ch End Sub Private Sub proc(ch As String) s=" " For k=Len(ch)To 1 Step-1 s=s＆Mid(ch,k,1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F
单选题设s="中华人民共和国"，表达式Left(S,1)+Right(S,1)+Mid(S,3,2)的值为( )。
单选题工程中有Form1、Form2两个窗体(Form1中有文本框Text1；Form2中有Text1文本框和Command1命令按钮)。Form1是启动窗体。在这些模块中编写下面的程序代码：Form1中的代码如下：Private Sub Text1_DblClick()Text1="VisualBasic"Form2.ShowEnd SubForm2中的代码如下：Private Sub Command1_Click()Text1=Form1.Text1Form1.ShowEnd Sub下面关于程序的叙述中错误的是
单选题下列程序运行时输出的结果是( )。 Private Sub Form_Click( ) Dim a a=Array(“天天向上”，“清华大学”，“夭长地久”，“程序设计”) For i=LBound(a,1) to UBound(a,1) If Left(a(i),1)="天"Then Print a(i): Next End Sub A) 天天向上 B) 天天向上天长地久 C) 出错信息 D) 天天向上清华大学天长地久程序设计
单选题为了将“联想电脑”作为数据项添加到列表框List1的最前面，可以使用语句
单选题执行命令INPUT″请输入数据：″TO AAA时，如果要通过键盘输入字符串，应当使用的定界符包括( )
单选题假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上厕一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5 b=4 S(a,b) Print a,b End Sub 程序运行后，单击命令按钮，输出结果为( ) A．5 4 B．1 1 C．1.25 4 D．1.25 1
单选题窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程： Private Sub Textl_Change(Index As Integer) Select Case Index Case 0 Textl(1)．FontSize=Textl(0)．FontSize*2 Textl(1)．Text=Textl(0)．Text Case 1 Text1(0)．FontSize=Textl(1)．FontSize／2 Textl(0)．Text=Textl(1)．Text Case Else MsgBox”执行Else分支” End Select End Sub 关于上述程序，以下叙述中错误的是
单选题Command1_Click()事件代码如下：
Private Sub Command1_Click()
Dim x As Integer, Y As Integer
x = 6 : Y : 8
Call ABC(X, Y)
Print X; Y
End Sub
Private Sub ABC(ByVal X As Integer，Y As Integer)
X = X + 4
Y = Y = 2
End Sub
事件发生后，X和Y的值分别为 ______。
单选题在窗体上画一个名称为Labell的标签，然后编写如下事件过程。 Private Sub Form_Click( ) Dim arr(10, I0) 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 Next Labell. Caption = Str(arr(2,2) + arr(3,3) ) End Sub 程序运行后，单击窗体，在标签中显示的内容是
单选题若将变量TestDate声明为Date类型，则下列为变量TestI)ate赋值的语句中正确的是( )。
单选题当一个复选框被选中时，它的Value属性的值是
____
。
单选题在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 10
a=a+1
b=0
For j=1 To 10
a=a+1
b=b+2
Next j
Next i
Label1.Caption=Str(a)
Label2.Caption=Str(b)
End Sub
程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别为______。
单选题以下用户自定义函数 Function Func(a As Integer，b As Integer)As Integer Static m As Integer．i As Integer m=0：i=2 i=i+m+i m=i+a-i-b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4：m=1 P=Func(k,m) Print P End Sub 程序运行后，单击命令按钮，输出结果为