表单里有一个选项按钮组,包含两个选项按钮Optionl和Option2,假设Option2没有设置Click事件代码,而Optionl以及选项按钮组和表单都设置了Click事件代码,那么当表单运行时,如果用户单击Option2,系统将( )。

A:执行表单的Click事件代码 B:执行选项按钮组的Click事件代码 C:执行Optionl的Click事件代码 D:不会有反应

完成下列问题:
在考生文件夹下有工程文件sjt3.vbp。程序运行时的窗体如图3所示。输入商品名称后,选中一种付款方式,则“成交”按钮变为可用,选择一种或多种“服务”后,单击“成交”按钮,则把相应信息显示在下面的图片框中,如图4所示。若不选任何“服务”,则显示如图5所示。单击“放弃”按钮,则恢复到图3状态。
[*]
[*]
[*]
程序已经给出但不完整,请在横线处填写正确的内容,以实现上述功能。
要求:考生不得修改窗体文件中已经存在的控件和程序,最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Command1_Click( )
Dim flag As Boolean
flag=False
Picture1.Print Label1.Caption, Text1.Text
Picture1.Print Frame1.Caption; ":",
For k=0 To 3
If Optionl(k).Value=True Then
Picture1.Print Optionl(k).Caption
End If
Next k
For k=0 To 2
If Check1(k).Value= (1) Then
If Not flag Then
Picture1.Print Frame2.Caption; ":",
flag=True
End If
Picture1.Print Check1(k).Caption; "";
End If
Next k
Picture1.Print
End Sub
Private Sub Command2_Click( )
(2) =""
For k=0 To 3
Optionl(k).Value=False
Next k
For k=0 To 2
Checkl(k).Value=0
Next k
Picture1.Cls
Command1.Enabled=False
End Sub
Private Sub Option1_Click(Index As Integer)
(3)
End Sub

[操作步骤]
第1步:打开工程文件sjt3.vbp。
第2步:分析并修改源程序。
第3步:调试、运行并保存程序。
[1]1 [2]Text1.Text [3]Command1.Enabled=True

在窗体上画两个单选按钮,名称分别为Option1和Option2,标题分别为“黑体”和“楷体”;一个复选框,名称为Cheek1,标题为“粗体”。要求程序运行时,“黑体”单选按钮和“粗体”复选框被选中,则能够实现上述要求的语句序列是( )

A:Optionl.Value=True B:Cheek1.Value=False C:Optionl.Value=True D:Cheek1.Value=Tme E:Option2.Value=False F:Check1 Value=True G:Optionl.Value=True H:Check1 Value=1

窗体上有名称为Text1、Text2的两个文本框,和一个由3个单选按钮构成的控件数组Optionl,如图1所示。程序运行后,如果单击某个单选按钮,则执行Text1中数值与该单选按钮所对应的运算(乘1、乘10或乘100),并将结果显示在Text2中,如图2所示。为了实现上述功能,在程序中的横线处应填入的内容是( ) Private Sub Optionl Click(Index As Integer) If Text1.Text<>" "Then Select Case__________________ Case 0 Text2.Text=Text1.Text Case 1 Text2.Text=Text1.Text*10 Case 2 Text2.Text=Text1.Text*100 End Select End If End Sub

A:Optionl.Index B:Index C:Optionl(Index) D:Optionl(Index).Value

窗体上有名称为Option1的单选按钮,且程序中有语句:
If Option1.Value=True Then
下面语句中与该语句不等价的是( )

A:If Option1.Value Then B:If Option1.True Then C:If Value=True Then D:If Optionl Then

表单里有一个选项按钮组,包含两个选项按钮Option1和Option2。假设Option2没有设置Click事件代码,而Option1以及选项按钮组和表单都设置了Click事件代码。那么当表单运行时,如果用户单击Option2,系统将

A:执行表单的Click事件代码 B:执行选项按钮组的Click事件代码 C:执行Optionl的Click事件代码 D:不会有反应

在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为“宋体”和“黑体”;一个复选框,名称为Check1,标题为“粗体”;一个文本框,名称为Text1,Text属性为“改变文字字体”。要求程序运行时,“宋体”单选按钮和“粗体”复选框被选中(窗体外观如图16-2所示),则能够实现上述要求的语句序列是______。

A:Optionl. Value=True
Checkl. Value=False
B:Optionl. Value=True
Checkl. Value=True
C:Option2. Value=False
Checkl. Value=True
D:Optionl. Value=True
Checkl. Value=1

在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,请选择空白处合适的语句( )。
Private Sub Optionl_Click(Index As Integer)
Select Case
Case 0
a="宋体"
Case 1
a="黑体"
Case 2
a="楷体 GB2312"
End Select
Text1. =a
End Sub

A:Option Text B:Index Text C:Index Font D:Option Font

在窗体上画1个名为Text1的文本框和1个名为Label1的标签,再画4个名为Op1的单选按钮控件数组,其Index属性按季度顺序为0~3,如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时,鼠标单击一个单选按钮,则Text1中显示相应季度的销售总额,并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句( )。 Option Base 1 Dim sales(12) As Long Private Sub Form_Load( ) Open "c:/sales.txt" For Input As #1 For k=1 To 12 Input #1,sales(k) Next k Close #1 End Sub Private Sub______(Index As Integer) Dim sum As Long,k As Integer, month As Integer sum=0 month=Index * ______ For k=1 To 3 month=month+1 sum=sum+sales(month) Next k Label1.Caption=______.Caption & "销售总额:" Text1=sum End Sub

A:Opl_Click 3 Op1(Inde B:Opl_Click 0 Optionl(Inde C:Optionl_C1ick 1 Opl(Inde D:Optionl_C1ick 2 Optionl(Inde

微信扫码获取答案解析
下载APP查看答案解析