网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体上先画一个名为Text1的文本框和—个名为Label1的标签，再画—个名为Op1的有4个单选按钮的单选按钮选项组，其Index属性按季度顺序为0～3(见图1)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击—个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图2是单击“第三季度”单选按钮所产生的结果。请填空。
Dim sales(12) As Long
Private Sub Form_load()
Open "sales.txt" For Input As 1
Fork=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=Op1(Index).【 】&"销售总额"
Text1=sum
End Sub
参考答案
更多 “ 在窗体上先画一个名为Text1的文本框和—个名为Label1的标签，再画—个名为Op1的有4个单选按钮的单选按钮选项组，其Index属性按季度顺序为0～3(见图1)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击—个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图2是单击“第三季度”单选按钮所产生的结果。请填空。Dim sales(12) As LongPrivate Sub Form_load()Open "sales.txt" For Input As 1Fork=1 To 12Input 1,sales(k)Next kClose 1End SubPrivate Sub【 】(Index As Integer)Dim sum As Long,k As Integer,month As Integersum=0month=Index*【 】For k=1 To 3month=month+1sum=sum+sales(month)Next KLabel1.Caption=Op1(Index).【 】"销售总额"Text1=sumEnd Sub ” 相关考题
考题
若窗体中已有一个名为Cmd的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：Private Function f(x As Long) As BooleanIf x Mod 2=0 Thenf=FalseElsef=TrueEnd IfEnd FunctionPrivate Sub Cmd_Click( )Dim n As Longn=Val(Me! text1)p=IIf(f(n), "奇数“，"偶数")Me! Labell. Caption=n"是"pEnd Sub窗体打开运行后，在文本框中输入11，单击命令按钮，则标签显示内容为【 】。
考题
在名为Form1的窗体上建立一个名为Opt1的单选按钮数组，含3个单选按钮，它们的标题依次为First、Second和Third，其下标分别为0，1，2。初始状态下，Third为选中状态；再绘制一个文本框，名称为Text1，内容为空白。编写适当的事件过程，使程序运行后，选中哪个单选按钮，则在文本框Text1中显示该单选按钮的标题。运行后的窗体如下图所示。注意：文件必须存放在考生文件夹中，工程文件名为execise27.vbp，窗体文件名为 execiSe27.frm。
考题
在名为Form1的窗体上绘制一个名为Lab1、标题为空白、BorderStyle属性为1、Visible属性为False的标签，一个名为Text1、Text属性为空白的文本框和一个名为Cmd1、标题为“显示”的命令按钮。然后编写命令按钮的Click事件过程，使程序运行后，在文本框中输入严计算机等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。运行后的窗体如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise31.vbp，窗体文件名为execise31.frm。
考题
在窗体上画1个名为Textl的文本框和1个名为Labell的标签，再画4个名为Opl 的单选按钮控件数组，其Index属性按季度顺序为0～3，如图1所示。在文件Sales．txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句（ ）。Option Base 1 Dim sales(12)As Long Private Sub Fo rm Load（ ） Open"C：＼sales．txt"For Input As#1 For k=1 To 12 Input#1，sales(k) Nextk Close#1 End Sub Private Sub (Index As Integer) Dim sum As Long，k As Integer，month As Integer sum=0 month=Inx* For k=1 To 3 month=month+1 sum=sum+sales(month) Next k Label1．Caption=________．Caption＆"销售总额：" Text1=Sum End SubA.Op1_Click 3 Op1(Index)B.Op1_Click 0 Option1(Index)C.Option1_Click l Op1(Index)D.Option1_Click 2 Option1(Index)
考题
在名为Form1的窗体上绘制3个单选按钮，其名称分别为Opt1、Opt2和Opt3，然后通过属性窗口设置窗体和单选按钮的属性。窗体标题为“设置单选按钮属性”；3个单选按钮的标题分别为First、Second和Third。初始状态为：第1个单选按钮为“选中”。程序运行后，第2个单选按钮“禁用”，第3个单选按钮不可见。程序的运行情况如下图所示。注意：不编写任何代码；文件必须存放在考生文件夹中，工程文件名为execise33.vbp，窗体文件名为execise33.frm。
考题
（1）在名为Form1的窗体上绘制两个标签（名称分别为Label1和Label2，标题分别为“长”和“宽”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“输入”）。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。（2）在名为Form1的窗体上绘制一个标签（名称为Label1，标题为“输入”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”）。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。
考题
在窗体上画1个名为Text1的文本框和1个名为Label1的标签，再画4个名为Op1的单选按钮控件数组，其Index属性按季度顺序为0～3，如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图 2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句( )。Option Base 1Dim sales(12) As LongPrivate Sub Form_Load()open"c:\sales.txt"For Input As #1For k=1 To 12Input #1,sales(k)Next kClose #1End SubPrivate Sub ______ (Index As Integer)Dim sum As Long,k As Integex,month As Integersum=0month=Index*______For k=1 To 3month=month+1sum=sum+sales(month)Next kLabel1.Caption=______.Caption "销售总额:"Text1=sumEnd SubA．Op1_Click 3 Op1(Index)B．Op1_Click 0 Option1(Index)C．Option1_Cliek 1 Op1(Index)D．Option1_Click 2 Option1(Index)
考题
（ 8 ）在窗体上先画 1 个名为 Text1 的文本框和平个名为 Label1 的标签 , 再画 1 个名为 OP1 的有 4 个单选按钮数组 , 其 Index 属性按季度顺序为 0 ∽ 3 （见图 A-5 ）。在文件 sales.txt 中按月份顺序存有某企业某 年12 个月的销售额。要求在程序执行时，鼠标单击 1 个单选按钮，则 Text1 中显示相应季度的销售总额 ， 并把相应的文字显示在标签上。图 A-6 是单击 “ 第 3 季度 ” 单选按钮产生的结果。请填空。Dim sales （—— ） As LongPrivate Sub Form__Load （）open “ sales.txt ” For Input AS 1For k=1 To 12Input 1,sales （ k ）Next kClose 1End SubPrivate Sub ——（ Index, AS Integer ）Dim sum AS Long ,k AS Ingeger,month AS Ingegersum=0month=Index*——For k=1 To 3month=month+1sum=sum+sales （ month ）Next kLabel1.Caption=Opl （ Index ） . Caption “ 销售总额： ”Text1=sumEnd Sub
考题
在窗体上画一个名称为Op1的单选按钮控件数组，其包含4个单选按钮，Index值从0到 3，标题分别为“答案1”、“答案2”、“答案3”和“答案4”；再画一个命令按钮，名称为C1，标题为“选择”；再画一个文本框Text1，名称为Text1，内容为空白。编写适当的程序。程序运行时，单击“选择”按钮，只有选择“答案1”单选按钮时，在Text1文本框中显示“选择正确”，否则显示“选择错误”。程序运行结果如图2—1所示。注意，保存时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。2．在考生文件夹中有工程文件sjt4.vbp，其中包含窗体Form1，该程序是不完整的。请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有三个名称分别为Text1、Text2、Text3的文本框，一个名称为Command1，标题为“计算”的命令按钮(如图2—2所示)。要求程序运行后，在Text1和Text2中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数(含着两个整数)累加起来并在Text3中显示出来。注意：保存时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
热门标签
最新试卷