在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（)n=5f=1s=0For i=1 To n f= 【12】 s=s+fNextPrint s End Sub 该事件过程的功能是计算的值。请填空。

A . 1516 B . 156 C . 1515 D . 56

A . 1 B . 5 C . 27 D . 45

A . 5 B . 15 C . 20 D . 25

Private Sub Command1_Click（） CommonDialog1.______="打开文件" CommonDialog1.Filter="All Files（*.*）|*.*" CommonDialog1.InitDir="c:\" CommonDialog1.ShowOpen End Sub 该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AIl Files（*.*）”，并显示C盘根目录下的所有文件，请填空。

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码； Option Base 1 Private Sub Command1_ Click() Dim a(4, 4), For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub程序运行后，单击命令按钮，输出结果为______。 A．6 9 7 10 B．7 10 8 11 C．8 11 9 12 D．9 12 10 13

在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是()。 A．hardware B．software C．hardware D．1

Private Sub Command1_Click（） n = Val（Text1.Text） For i = 2 To n For j = 2 To sqr（i） If i Mod j = 0 Then Exit For Next j If j ＞ Sqr（i） Then Print i Next i End Sub 该事件过程的功能是（）。 A．输出n以内的奇数 B．输出n以内的偶数 C．输出n以内的素数 D．输出n以内能被j整除的数

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程； Private Sub Command1_Click() a $="software and hardware" b $=Right(a$, 8) c $=Mid(a$, 1, 8) MsgBox a$, ,b$,c$,1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是______。 A．software and hardware B．software C．hardware D．1

<img src='https://img2.soutiyun.com/ask/uploadfile/10839001-10842000/b6e1961a1ece372d5b5d9638e1f875a5.jpg' />

A．12 B．13 C．14 D．15

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是()。 A．4 B．5 C．6 D．7

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() c = 1234 c1 = Trim(Str(C)) For i = 1 To 4 Print_____ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为 A．Right(c1,i) B．Left(c1,i) C．Mid(c1,i,1) D．Mid(c1,i,i)

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写 如下事件过程： Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To Sqr(i) If i Mod j=0 Then Exit For Next j If j＞Sqr(i)Then Print i Next i End Sub 该事件过程的功能是 A．输出n以内的奇数 B．输出n以内的偶数 C．输出n以内的素数 D．输出n以内能被j整除的数

<img src='https://img2.soutiyun.com/ask/uploadfile/2586001-2589000/23e1201b59bd107c459be2a1be30957d.jpg' /> 程序运行后，单击命令按钮，在文本框中显示的值是 A．2 B．3 C．4 D．5

A．5和3 B．25和3 C．25和6 D．5和6

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞0 Then in=m+n/3 Next Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 A．15 B．18 C．21 D．24

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s；a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容，是 ______。 A．79 B．340 C．97 D．死循环

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=“ABCD” For n=l to 4 Print______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD 则在______处应填入的内容为 A．Left(c，n) B．Right(c，n) C．Mid(c，n，1) D．Mid(c，n，n)

A．分支1 B．分支2 C．分支3 D．无任何输出

A．1 B．5 C．27 D．45

A．25和3 B．5和3 C．25和6 D．5和6

A．6 B．5 C．7 D．8

A．输出0 B．输出25 C．输出45 D．无任何输出