更多"窗体上有一个名称为Option1的单选按钮控件。当程序运行，并单击某个"的相关试题:
[单项选择]窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程
Private Sub option1_Click(Index As Integer)
…
End Sub
下面关于此过程的参数Index的叙述中正确的是
A)Index为1表示单选按钮被选中，为0表示未选中
B)Index的值可正可负
C)Index的值用来区分哪个单选按钮被选中
D)Index表示数组中单选按钮的数量
[单项选择]
窗体上有一名称为Command1的命令按钮，其事件过程如下：
Private Sub Command1_Click( )
Dim i As Integer,j As Integer , k As Integer
Dim s As Double
s=0 ; i=1 ; j=0 ; k=-1
Do While i<6
s=s+k*（j/i）
i=i+1
j=j+1
k=-k
Loop
Print s
End Sub
以上程序所计算的表达式是（）。
A. 1/2-2/3+3/4-4/5
B. -1/2+2/3-3/4+4/5
C. 1-1/2+2/3-3/4+4/5
D. -1+1/2-2/3+3/4-4/5
[单项选择]如果在窗体上有命令按钮OK，在代码编辑窗口行与之对应的CmdOk Click（ ）事件，则命令按钮控件的名称属性和Caption属性分别为______。
A. Ok，Crud
B. Cmd，Ok
C. CmdOk，Ok
D. Ok，CmdOk
[单项选择]窗体上有一个按钮和一个文本框，程序执行后，在文本框中输入12345，单击按钮后的输出结果为______。
Private Sub Command1_Cliek（ ）
Dim A As Integer, B As Integer
Text1.SelStart=2
Text1.SeILength=2
A=Val(Text1.SelText)
B=Len(Text1.Text)
Print A*B
End Sub
A. 68
B. 115
C. 170
D. 1170
[填空题]在一个窗体上有一个命令按钮CmdMax。单击CmdMax时，窗体上显示“字体由小变大”，字号每次增加2。请填空。
Private Sub Form_Load（ ）
Form1.Caption="字体变化示范"
CmdMax.Caption="字体变大"
End Sub
Private Sub CmdMax_Click（ ）
______
Form1.Print "字体由小变大"
End Sub
[填空题]在一个窗体上有一个命令按钮，CmdMax。单击CmdMax时，窗体上显示“字体由小变大”，字号每次增加2。请填空。
Private Sub Form_Load（ ）
Form1.Caption=“字体变化示范”
CmdMax.Caption=“字体变大”
End Sub
Private Sub CmdMax_Click（ ）
【8】
Form1.Print“字体由小变大”
End Sub
[填空题]在一个窗体上有两个命令按钮，cmdMax 和 cmdMin。单击cmdMax时，窗体上显示“字体由小变大”，字号每次增加2；单击cmdMin时，窗体上显示“字体由大变小”，字号每次减小2。请填空。
Private Sub Form_Load（ ）
Forml．Caption =“字体变化示范”
cmdMax．Caption=“字体变大”
cmdMin．Caption=“字体变小”
End Sub
Private Sub cmdMax_Click（ ）
【 】
Forml．Print”字体由小变大”
End Sub
Private Sub cmdMin_Click（ ）
【 】
Forml．Print“字体由大变小”
End Sub
[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。
Private Sub Command1_Click（ ）
Dim a
a:Array(1,2,3,4,5)
For k=1 To 4
s=s+a(k)
Next
Print s
End Sub
运行程序后，单击命令按钮，输出结果是( )。
A. 10
B. 14
C. 15
D. 120
[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是
Private Sub Command1_Click( )
Dim a
a = Array(1,2,3,4,5)
For k = 1 To4
s=s+a(k)
Next
Print S
End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下：
Private Function fun(ByVal m As Integer)
If m Mod 2=0 Then
fun=2
Else
fun=1
End If
End Function
Private Sub Command1_Click（ ）
Dim i As Integer,s As Integer
s=0
For i=1 To 5
s=s+fun(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，则窗体上输出( )。
A. 6
B. 7
C. 8
D. 9
[单项选择]设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是( )
A. Name
B. Index
C. Caption
D. Left
[单项选择]在窗体上有一个命令按钮Commandl，编写事件代码如下： PrivateSubCommandl_Click（） DimdlAsDate Dimd2AsDate d1＝#12/25/2009# d2＝#1/5/2010# MsgBoxDateDiff（"WW"，d1，d2） EndSub 打开窗体运行后，单击命令按钮，消息框中输出的结果是（）。
A. 1
B. 2
C. 10
D. 11
[单项选择]窗体上有一个按钮和一个列表框(Sorted属性为True)，执行下列过程后的输出结果为______。
Private Sub Command1_Click（ ）
List1.Addltem"China"
List1.Addltem"Great"
List1.Addltem"Is"，1
List1.Addltem"!"，3
Print List1.List(2)
End Sub
A. China
B. Great
C. Is
D. 1
[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。
Private Sub Command1_Clcik（ ）
Dim a
a=Array(1,2,3,4,5)
For k=1 To 4
s=s+a(k)
Next k
Print s
End Sub
A. 10
B. 14
C. 15
D. 120
[填空题]新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，
Form1窗体消失，显示Form2窗体，程序如下：
Private Sub Command1_Click（ ）
【6】
Form2 【7】
End Sub
试补充完整。
[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。
Private Sub Command1_Click（ ）
Dim a
a=Array(1,2,3,4,5)
For k=1 To 4
S=S+a(k)
Next k
Print S
End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]
在窗体上有一个命令按钮Commandl，编写事件代码如下：
PrivateSubCommandl_Click（）
DimxAsInteger，yAsInteger
x＝12：y＝32
CallProc（x，y）
Debug．Printx；y
EndSub
PublicSubProc（nAsInteger，ByValmAsInteger）
n＝nModl0
m＝mModl0
EndSub
打开窗体运行后，单击命令按钮，立即窗口上输出的结果是（）。
A. 2 32
B. 12 3
C. 2 2
D. 12 32
