窗体上有一命令按钮Command1，编写以下事件过程:PrivateSubCommand1_Click()a=200:b=200:c=2000:d=2000ClsLine(a,b)-(c,d),vbBlue,BFEndSub运行时，单击按钮，窗体上显示（）。

相似题目

• 窗体上有文本框Text1、Text2和命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()Ifval(Text1.Text)<=3thenText2.Text=“h”ElseText2.Text=“i”EndIfEndSub当用户在文本框Text1中输入6，并单击Command1，则文本框Text2中显示（）。

  查看最佳答案

• 在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_Click（）Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是_____。

  查看最佳答案

• 窗体上有一命令按钮Command1，编写以下事件过程：PrivateSubCommand1_Click()a=100:b=150:c=2000:d=2000ClsLine(a,b)-(c,d),,BEndSub运行时，单击命令按钮窗体上显示（）。

  查看最佳答案

• 窗体上有一个命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()Fori=1to4Forj=4to8sum=sum+1NextjNextiPrintsumEndSub运行时，单击按钮，输出结果是（）。

  查看最佳答案

• 在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：

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

  查看最佳答案

• 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（)X=0Do Until x=-1 a

  在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() X=0 Do Until x=-1 a=InputBox("请输入A的值") a=Val(A)b=InputBox("请输入B的值") b=Val(B)x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。 A．2 B．3 C．14 D．15

  查看最佳答案

• 在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click（

  在窗体中添加一个名称为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的命令按钮和一个名称为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整除的数

  查看最佳答案

• 在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。以下是Command1_Click事件过程的两种算法

  算法1： Private Sub Command1_Click（） CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As1 End Sub 算法2： Private Sub Command1_Click（） CommonDialog1.ShowOpen IfCommonDialog1.FileName＜＞””Then Open CommonDialog1.FileName For Input As1 End If End Sub 下面关于这两种算法的叙述中正确的是（）。 A．显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会 B．显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会 C．两种算法的执行结果完全一样 D．算法1允许输入的文件名中含有空格，而算法2不允许

  查看最佳答案

• 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程；Private Sub Command1_Click（)a $

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

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Comma

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

  在窗体上画一个名称为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的文本框，然后编写如下事件过程：Priva

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

  查看最佳答案

• 在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

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

  查看最佳答案

• 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x=-1a=InputBox("请输入A的值")a=Val(

  A． b=InputBox("请输入B的值") b=Val( B． C．14 D．15

  查看最佳答案

• 在窗体中添加一个名称为COMMAND1的命令按钮，然后编写如下事件代码： PRIVATE SUB COMMAND1_CLICK（

  在窗体中添加一个名称为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（)

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

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

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

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivatSuCommand1_Click（）。程序运行时，单击Command1，则在窗体上输出的结果是（）

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

  查看最佳答案

• 窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：对于上述程序，以下叙述中错误的是（）

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

  查看最佳答案

• 窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：运行程序后单击命令按钮Command1，窗体上显示的是（）

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

  查看最佳答案

• 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click（）

  A．Right B．Left C．Val D．Mid

  查看最佳答案

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

  查看最佳答案