单选题设有下面程序代码： Option Base 1 Pfivate Sub Commandl_Click() Dim x(6) a=Array(4，2，5，1，6，3) b=Array(64，24，98，27，58，41) For k=1 To 6 x(a(k))=b(k) Next k For k=1 To 6 Print x(k)： Next k End Sub 程序运行时的输出是
单选题在窗体上画一个按钮，然后编写如下事件代码。单击按钮，输出为 ______。 Private Function fun3(x As Integer) Static t As Integer t = t + 3 t = t + x fun3 = t End Function Private Sub Commandl Click() Dim a As Integer, b As Integer, c As Integer a = 2 : b = 1 c = fun3 (a) c = fun3 (b) Print c End Sub
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程； Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_C1ick() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。
单选题要求函数的功能是：从参数str字符串中删除所有参数ch所指定的字符，返回实际删除字符的个数，删除后的字符串仍在str中，为此某人编写了函数DelChar如下：Function DelChar(str As String, ch As String) As Integer Dim n%, st$, c$ st = "" n = 0 For k = 1 To Len(str) c = Mid(str, k, 1) If c = ch Then st = st & c Else n = n + 1 End If Next k str = st DelChar = n End Function并用下面的Command1_Click()过程观察函数调用结果Private Sub Command1_Click() ch$ = Text1.Text Print DelChar(ch, "x"), chEnd Sub发现结果有错误，程序代码需要修改，以下正确的修改方案是( )。
单选题设置定时器控件的Interval属性为2000，Enabled属性为True，并且有下面的事件过程，程序运行时计算机将发出( )次Beep声。 Sub Timer1_Timer() Beep End Sub
单选题执行以下语句过程，在窗体上显示的内容是 Option Base 0 Private Sub Command3_Click( ) Dim d d=Array("a"，"b"，"c"，"d") Print d(1)；d(3) End Sub
单选题在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2：六个标签，名称分别为Label1、Label2、 Latel3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是 ______。
单选题工程中有两个窗体，名称分别为Form1、Form2，Fonn1为启动窗体，该窗体上有命令按钮
Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮Click事件过程应该是 ______。
A. Private Sub Command1_click() Foma2.Show
End Sub
B. Private Sub Command1_Click()
Form2.Visible End Sub
C. Private Sub Command1_Click() Load Form2
End Sub
D. Private Sub Command1_click() Form.Load
EndSub
单选题有下列程序： Private Sub Command1_Click() x$ = "Nanchang" y$ = "Beijing" z$ = "Nanjing" z$ = InStr(Left(x$， 3)+ Right(y$， 4)， z$) Print z$ End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是________。
单选题设子程序过程定义的首部为：Public Sub S(X As Integer，Y As Single)则以下正确的调用形式为
单选题在表达式2+3*4^5-Sin(x+1)／2中，首先进行的运算是( )。
单选题在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim strAs String,n As Integer Str=UCase(Chr(KeyAscii) n=Len(str) Text1=String(n,str) End Sub 程序运行后，如果在键盘上输入单字母“k”，则在文本框Text1中显示的内容为( )。
单选题以下关于文件的叙述中，错误的是
单选题下列程序的执行结果为( ) Private Sub Command1_Click() Dim P As Integer，q As Integer p=12:q=20 Call Value(P,q) Print P;q End Sub Private Sub Value(By Val m As Integer，ByVal n As Integer) m=m * 2:n=n-5 Print m;n End Sub A．20 12 20 15 B．12 20 12 25 C．24 15 12 20 D．24 12 12 15
单选题关于数据库表和自由表，下列说法正确的是( )
单选题以下控件对象中，具有Picture属性的是__________。
①PictureBox ②Frame ③OptionButton ④CommandButton ⑤ListBox ⑥CheckBox ⑦Label
单选题在窗体上画一个命令按钮，然后编写如下程序： Option Base 1Private Sub Commandl_Click() Dim Arr(10)As Integer For i=1 To 10 Arr(i)=11－i Next i x=InputBox("输入一个整数(3～10)") Print Arr(2+Arr(x))End Sub程序运行后，单击命令按钮，在输入对话框中输入7，则输出结果为
单选题要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Labell)中，如图所示，放开鼠标左键后，停止同步显示，下面可以实现此功能的程序是______。
单选题请阅读程序：
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
程序运行后，单击窗体，则输出结果是______。
单选题在窗体中有一个名为Command1的命令按钮，并编写有以下代码。程序执行时，单击命令按钮，输出的结果为( )。 Public Sub Procl(n As Intege，ByVal m As Integer) n＝n Mod 10：m＝m／10 End Sub Private Sub Command1_Click() Dim x As Imteger，y As Integer x＝12：y＝34 Call Procl(x，y) Print x；y End Sub