单选题窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：
Private Type x
a As Integer:b As Integer
End Type
Private Sub Command1_Click()
Dim y As x
y.a=InputBox("")
If y.a/2=y.a/2 Then
y.b=y.a*y.a
Else
y.b=Fix(y.a/2)
End If
Text1.Text=y.b
End Sub
对以上程序，下列叙述中错误的是
单选题执行语句Open"C:StuData.dat"ForlnputAs#2后，系统( )。
单选题在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(keyaseii as integer) …… End Sub 若焦点位于文本框中，则能够触发KeyPress事件的操作是
单选题某系统结构图如下图所示(n≥5)该系统结构图的最大扇出数是()。
单选题设有如下事件过程：Private Sub Commandl_Click()Dim a a=Array(12，3，8，5，10，3，5，9，2，4) For k=1 To 9 Print fun(a(k-1)，a(k))；””； Next kEnd SubPrivate Function fun(x，y)As Integer Do While x>=y x=x-y Loop fun=xEnd Function 程序运行时的输出结果是
单选题标准模块中有如下程序代码： Public x As Integer, y As Integer Sub var_pub() x=10 : y=20 End Sub Private Sub Command1_Click() Dim x As Integer Call vat_pub x = x + 100 y = y + 100 Print x ; y End Sub 运行程序后单击命令按钮，窗体上显示的是( )。 A) 100 100 B) 100 120 C) 110 100 D) 110 120
单选题如果在“立即”窗口中执行以下操作： a=8＜CR＞(＜CR＞是回车键，下同) b=9＜CR＞ Print a＜b＜CR＞ 则输出的结果是 ______。
单选题使用语句Dim A(1 To 10)As Integer声明数组A之后，以下说法正确的是{{U}} {{/U}}。
A.A数组中的所有元素值为0
B.A数组中的所有元素值不确定
C.A数组中的所有元素值为Empty
D.执行EraseA后，A数组中的所有元素值为Null
单选题在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String．S2 As String Private Sub Form_Load0 Text1.Text="" Text2.Text="" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2&Chr(KeyCode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1="" S2="" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为( )。
单选题窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序：Dim n As IntegerPrivate Sub Timer1_Timer()ch=Chr(n+Asc("A"))：Label1．Caption=ch：n=n+1：n=n Mod 4End Sub运行程许，将在标签中
单选题目录列表框的Path属性的作用是( )。
单选题阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form Click() Dim i As Integer，i 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 arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为
单选题在窗体上添加一个命令按钮，名为Command1，事件过程如下，则执行结果是______。
单选题窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的问号(?)处应填入的内容是______。图1图2PrivateSubOption1_Click(IndexAsInteger)IfText1.Text＜＞""ThenSelectCase?Case0Text2.Text=Val(Text1.Text)Case1Text2.Text=Val(Text1.Text)*10Case2Text2.Text=Val(Text1.Text)*100EndSelectEndIfEndSub
单选题有如下事件过程：
Private Sub Form Click（）
Dim n A s Integer
x=0
n=InputBox（"请输入一个整数”）
For i=1 Ton
For j=1 To i
x=x＋I
Next j
Next i
Print x
End Sub
程序运行后，单击窗体，女口果在输入对话框中输入：，则在窗体上显示的内容是
单选题单击命令按钮执行下列程序，其输出结果是( )。 Private Sub Command1_Click() Dim a 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 End Function Function SecProc(x As Integer,y As Integer, z As Integer) SecProc=FirProc(z,x,y)+x End Function
单选题假定有以下函数过程： Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=LCase(Mid(S，i，1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Strl As String．Str2 As String Strl=InputBox("请输入一个字符串")：Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为
单选题在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Optionl_Click(Index As Integer) Select Case Case 0 a="宋体" Case 1 a="黑体" Case 2 a="楷体 GB2312" End Select Text1. =a End Sub
单选题在结构化方法中，用数据流程图(DFD)作为描述工具的软件开发阶段是( )。
单选题目录列表框的Path属性的作用是