在窗体上添加一个命令按钮,名为Command1,其单击事件中有如下程序段,则事件过程执行后,文本框中输出()。 For i= 1 To 4 For j = 1 To 3 x=3 For k =1 To 2 x=x+3 Next k Next j Next i TextText = Str(x)
相似题目
-
在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:Private Sub Command1_Click()Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后,单击命令按钮,消息框的输出结果是_____。
-
在窗体中添加一个命令按钮Command1,编写如下代码:Private Sub Command1_Click()x = 6If x > 6 ThenIf x = 6 ThenPrint \a\ElsePrint \b\End IfElseIf x < 8 ThenPrint \c\ElseIf x = 6 ThenPrint \d\End IfEnd IfEnd IfEnd Sub运行后,单击命令按钮,则在窗体上显示的是( )。
-
在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() x = InputBox("Input") Select Case x Case 1, 3 Print "分支 1" Case Is > 4 Print "分支 2" Case Else Print "Else 分支" End Select End Sub 程序运行后,如果在输入对话框中输入2,则窗体上显示的是()。
-
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click(
-
在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程:Private Sub Command1
-
在窗体上画一个名为Command1的命令按钮,编写如下程序: Private Sub Command1_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x)) End Sub 程序运行后,单击命令按钮,输出的结果是______。
-
在VB窗体上添加一个名称为 Command1的命令按钮,再添加两个名称分别为Label1、Label2的标签,然后
-
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:Public x As integerPrivate Sub C
-
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程;Private Sub Command1_Click()a $
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click()
-
在窗体中添加一个名称为COMMAND1的命令按钮,然后编写如下事件代码: PRIVATE SUB COMMAND1_CLICK(
-
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码:Private Sub Command1_Click()
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
-
在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Command1的Click事件代码:
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivatSuCommand1_Click()。程序运行时,单击Command1,则在窗体上输出的结果是()
-
窗体上有一个名称为Command1的命令按钮,并有如下程序:程序运行后单击命令按钮Command1,输出结果是()
-
窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:运行程序后单击命令按钮Command1,窗体上显示的是()
-
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:运行程序后单击命令按钮,在窗体上显示的是()
-
在窗体中有一个名为Command1的命令按钮,Click事件代码如下:单击命令按钮后,标签显示结果是()
-
在窗体上画一个名为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
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
-
在窗体上画一个名为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
-
在窗体上添加一个文本框控件Info,画一个命令按钮,当单击命令按钮显示“保存文件”对话框,设置该对话框可用于保存文本文件(默认)和可执行文件(.exe),然后在文本控件中显示保存的文件名。 Private Sub Command1_Click() CommonDialog1.Filter= 【13】 CommonDialog1.FilterIndex= 【14】 CommonDialog1.Sh
-
在窗体上有一个命令按钮和一个标签,其名称分别为Command1和Label1,编写如下事件过程:程序运行后单击命令按钮,标签中显示的内容是()