更多"在窗体上画一个名称为Commandl的命令按钮。有下列程序： Opt"的相关试题:
[单项选择]在窗体上画一个命令按钮，名称为Commandl，然后编写如下代码：
Option Base 0
Private Sub Commandl_Click（ ）
DimA(4)As Integer,B(4)As Integer
Fork=0 To 2
A(k+1)=InputBox(“请输入一个整数”)
B(3-k)=A(k+1)
Nextk
PrintB(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为( )。
A. 0
B. 2
C. 3
D. 4
[单项选择]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim a(3，3)
For i=1 To 3
For j=1 To 3
If i=j Then a(i，j)=1
If i＜j Then a(i，j)=2
If i＞i Then a(i，j)=3
Next j
Next i
For i=1 To 3
For j=1 To 3
Print a(i，j)；
Next j
Print
Next i
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。
A. 1 3 3
B. 1 2 2
C. 2 3 3
D. 2 1 1
[单项选择]
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Commandl_Click（ ）
Dim c AS Integer，d As Integer
d=0
c=6
x=Array(2,4,6,8,10,12)
For i=1 To 6
If x(i)＞c Then
d=d+x(i)
c=x(i)
ElSe
d=d-c
End If
Next
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为（）
A. 10
B. 16
C. 12
D. 20
[单项选择]在窗体上画一个名称为Command1的命令按钮。有下列程序：
Option Base 1
Private Sub Command1_Click( )
Dim a
a = Array(45, 27, 34, 24, 91, 37, 11, 67, 82, 63)
For i = 1 To 9
For j = i + 1 To 10
If a(i)＞ a(j)Then
a1 = a(i)
a(i)= a(j)
a(j)= a1
End If
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub
程序运行后，单击命令按钮，则窗体上第二行和第三行显示的内容是________。
A. 27和34
B. 34和24
C. 45和63
D. 24和27
[单项选择]在窗体上绘制一个名称为Commandl的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Commandl_Click（ ）
Dim c As Integer,d As Integer
d=0
c=6
x=Array(2，4，6，8，10，12)
Fori=1 To 6
1fx(i)＞c Then
d=d+x(i)
c=x(i)
Else
d=d-c
End If
Nexti
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为( )。
A. 10
B. 16
C. 12
D. 20
[填空题]设计一个窗体，窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序代码，井按要求将程序补充完整。
Private Sub Command1_Click（ ）
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
【9】
Text1.ForeColor=CommonDialog1.Color
End Sub
[单项选择]在窗体上画一个名为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click（ ）
Dim a
a=Array(1，2，3，4)
j=1
For i=3 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，其输出结果是
A. 1234
B. 12
C. 34
D. 4321
[单项选择]在窗体上画一个名为Command 1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim Arr
Arr=Array(1, 2, 3, 4, 5)
j=1
For i=5 To 1 Step -1
S=S+Arr(i)*j
j=j*10
Next
Print S
End Sub
程序运行后，单击命令按钮，输出结果为( )。
A. 54321
B. 123
C. 12345
D. 345
[单项选择]在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_ Click（ ） Dim arr(4, 4) For i = 1 To 4 For j = 1 To 4 arr(i, j) = (i - 1) * 3 + j Next j Next i For i = 1 To 2 For j = 1 To 2 Print arr(i, j) Next j Next i End Sub程序运行后，单击命令按钮，输出结果为______ 。
A. 3 4 6 7
B. 7 8 10 11
C. 1 2 4 5
D. 8 9 12 13
[单项选择]在窗体上画一个名为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim Arr
Arr = Array(1,2,3,4,5)
j=1
For i = 5 To 1 Step -1
S = S + Art(i) * j
j =j * 10
Next
Print S
End Sub
程序运行后，单击命令按钮，输出结果为( )。
A. 54321
B. 123
C. 12345
D. 345
[单项选择]在窗体上画一个名为Command1的命令按钮，然后编写下列程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim Arr
Arr=Array(1,2,3,4,5)
j=1
For i=5 To 1 Step-1
S=S+Arr(i)*j
j=j*10
Next
Print S
End Sub
程序运行后，单击命令按钮，输出结果是( )。
A. 54321
B. 123
C. 12345
D. 345
[填空题]
设有如下程序：
Option Base 1
Private Sub Commandl Click（ ）
Dim arrl
Dim Min As Integer，i As Integer
arrl=Array(12,435,76,-24,78,54,866,43)
Min=（）
For i=2 To 8
If arrl(i)＜Min Then（）
Next
Print"最小值是:";Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
[单项选择]在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load （ ） Show Text1.Text = " " Text1. SetFocus End Sub Private Sub Command1 Click（ ） Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______ 。
A. abodefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个名为Command1的命令按钮，并编写如下事件过程： Private Sub Command1_ Click（ ） CommonDialog1. Flags= cd10FNHideReadOnly CommonDialog1. Filter= "All Files (*.*) ｜*.*｜Text File" & _ "(*.txt) ｜*.txt ｜ Batch Files (*.bat)｜ *.bat" CommonDialog1. FilterIndex = 2 CommonDialog1. ShowOpen MsgBox CommonDialog1. FileName End Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______ 。
A. All Files (*.*)
B. Text Files(*.tx
C. Batch Files (*.ba
D. 不确定
[简答题]
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框。程序运行后，Command1显示为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在______处填入适当的内容，将程序补充完整。
Private Sub Form_Load（ ）
Command1. Enabled=False
End Sub
Private Sub Text1______（ ）
Command1. Enabled=True
End Sub |
