对窗体编写如下事件过程： Option Base 1 Private Sub Form_KeyPress （KeyAScii AS Integer) arr=Array（12，15，18，20，24) m1=arr（1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If arr（i)＞m1 Then m1=arr（i) m2=i End If Next i End

相似题目

• 对窗体编写如下代码： Option Base1 Private Sub Form_Key Press（Key Ascii AsInteger） a=Array（237，126，87，48，498） m1=a（1） m2=1 IfKey Ascii=13Then ForI=2To5 Ifa（I）>mlThen m1=a（j） m2=I EndIf NextI EndIf Printm1 Printm2 EndSub 程序运行后，按回车键，输出结果为（）

  A . 499 B . 237 C . 498

  查看最佳答案

• 设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）

  A . 4；3；2；1 B . 5；4；3；2 C . 6；5；4；3 D . 7；6；5；4

  查看最佳答案

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

  查看最佳答案

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

  查看最佳答案

• 设有如下通用过程：PublicFunctionf(xAsInteger)DimyAsIntegerx=30y=8f=x*yEndFunction在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程PrivateSubCommand1_Click()StaticxAsIntegerx=15y=6y=f(x)Printx;yEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_____。

  查看最佳答案

• 在窗体上画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

  查看最佳答案

• 在窗体上画一个命令按钮（其Name属性为Command1)，然后编写如下代码；Option Base 1Private Sub Com

  在窗体上画一个命令按钮(其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 $

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

  查看最佳答案

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

  在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： private Sub Command1_Click() CommonDialog1.Flags=cdl0FNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialog1.Filterlndex=2 CommonDialog1.ShowOPen MsgBox CommonDialog1.filename End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______。 A．All Files(*.*) B．Text Files(*.txt) C．Batch Files(*.bat) D．不确定

  查看最佳答案

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

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

  查看最佳答案

• 在窗体上面一个命令按钮（其Name属性为Command1)，然后编写如下代码：Option Base 1Private Sub Cor

  在窗体上面一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Coramandl_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是______。 A．4221 B．1234 C．34 D．12

  查看最佳答案

• 在窗体上画一个名称为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的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_ Click（)Dim arrarr = Array（358, 32, 46, 73, 23, 59, 26, 91, 583, 12)For i = ______ For j = ______ If arr（i) ＞= arr（j) Then a = arr（j

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮。编写如下程序： Option Base1 Private Sub Command1_Click（) Dim a（10) As Integer For i=1 To 10 a（i)=i Next Call swap（（11) ) For i=1 To 10 Print a（i)； Next End Sub Sub swap（b（)As Integer

  查看最佳答案

• 在窗体上画一个命令按钮,然后编写如下事件过程: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 该事件过程的功能是计算的值。请填空。

  查看最佳答案

• 在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_ Click（) Dim arr arr = Array（358, 32, 46, 73, 23, 59, 26, 91, 583, 12) For i = ______ For j = ______ If arr（i) ＞= arr（j) Thena = arr

  查看最佳答案

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

  查看最佳答案