窗体上有一个名称为 Command1 的命令按钮。其单击事件过程如下： Private Sub Command1_Click() Open \c:\\f1.txt\ For Input As #1 Open \c:\\f2.txt\ For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close End Sub 以下关于上述程序的叙述中，错误的是 ________ 。

A . cmdc B . cmdb C . cmdA D . Command1

A . Frm1_Click（）Cmd1_Click（） B . Form_Click（）Command1_Click（） C . Frm1_Click（）Command1_Click（） D . Form_Click（）Cmd1_Click（）

<img src='https://img2.soutiyun.com/shangxueba/ask/4359001-4362000/4359886/ct_ctvbbm_choose_05019(20092).jpg' /> 设有如下的类型声明 TyPe Person name AS String*8 major AS String*20 End TyPe 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29 .dat中。设文本框中的数据已正确地赋值给Person类型的变量P.则能够正确地把数据写入文件的程序段是 A．Open"c：\Test29.dat"For Random As1 Put1，1，p C10se 1 B．OpeH"c：\Test29.dat"For Random As 1 Get1，1，p C108C1 C．Open"c：\Test29.dat"For Random As1 Len=Len(p) Put1，1，p C108C1 D．OPell"c：\Test29.dat"For，Random As1 Len=Len(p) Get1，1，p C106e1

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() s= "ABBACDDCAB" For i=6 To 2 Step -2 x=Mid(s,i,i) y=Left(s,i) z=x&amp;y Next i MsgBox z End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是()。 A．AABA B．ABBA C．BABBA D．BBAB

在窗体上画一个命令按钮，名称为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整除的数

窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图1所示)，就可以把文本框中的内容写到文件Out．txt中，每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是（）。<img src='https://img2.soutiyun.com/ask/uploadfile/2340001-2343000/9ee39e48e3711140203a592ce77b107b.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/2340001-2343000/54c76f430783fad60b8a548d0f7a9765.jpg' />

在窗体上画一个名称为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

在窗体中添加一个名称为COMMAND1的命令按钮，然后编写如下事件代码： PRIVATE SUB COMMAND1_CLICK() A =75 IF A ＞60 THEN K=1 ELSEIF A ＞ 70 THEN K=2 ELSEIF A ＞ 80 THEN K=3 ELSEIF A ＞90 THEN K=4 ENDIF MSGBOX K END SUB 窗体打开运行后，单击命令按钮，则消息框的输出结果是()。 A．1 B．2 C．3 D．4

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() A=75 If A＞60 Then I=1 If A＞70 Then 1=2 If A＞80 Then 1=3 If A＞90 Then 1=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是()。 A．1 B．2 C．3 D．4

在窗体上画一个名称为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和Label1，然后编写如下代码： Sub S(X As Integer，y As Integer) Static z As Integer y=x*x+Z z=y End Sub Private Sub Command1 Click（） Dim i As Integer．z As Integer m=0 z=0 For i=1 T0 3 S i，Z m=m+z Next i Label1．Caption=Str(m) 程序运行后，单击命令按钮，在标签中显示的内容是（）。 A.50 B.20 C.14 D.7

A．语句fun=n有错，因为n是整型，fun没有定义类型 B．运行程序，输入值为5时，文本框中显示655 C．运行程序，输入值为6时，文本框中显示42 D．ByRef表示参数按址传递

A．0 B．-1 C．-2 D．-3

A．12345 B．678910 C．23456 D．62345

A．单击“打开”按钮，显示打开文件的对话框 B．单击“保存”按钮，显示保存文件的对话框 C．单击“打印”按钮，能够设置打印选项，并执行打印操作 D．单击“退出”按钮，结束程序的运行

A．打开的对话框中文件&ldquo;保存类型&rdquo;框中显示&ldquo;All(*.*)&rdquo; B．实现保存文件的操作，文件名是VB.txt C． DefaultExt属性与FileName属性所指明的文件类型不一致，程序出错 D．对话框的Filter属性没有指出txt类型，程序运行出错

A．Forml的Caption属性值为100 B．Form2的Caption属性值为-100 C．Form1的Caption属性值为-100 D．Form2的Caption属性值为100