网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体上画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 Integex,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．Op1_Click 3 Op1(Index)
B．Op1_Click 0 Option1(Index)
C．Option1_Cliek 1 Op1(Index)
D．Option1_Click 2 Option1(Index)
参考答案
更多 “ 在窗体上画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) ” 相关考题
考题
在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名数为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示。请填空。Private Sub Option1_Click（Index As Integer）Select Case 【8】Case 0a="宋体"Case 1a="黑体"Case 2a="楷体_GB2312"End SelectText1 【9】 =aEnd Sub
考题
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。Private Sub Command1_Click（ ）Dim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1（0）max = Text1（0）min = ______For k = ______ To 6If max Text1（k） Thenmax = Text1（k）End IfIf min Text1（k） Thenmin = Text1（k）End Ifsum = sum + Text1（k）Next kText2 = （______） / 5
考题
（26）在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1,程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句。 Private Sub Option1_Click(Index As Integer) Select Case________ Case 0 a="宋体" Case 1 a="黑体" Case 2 a="楷体_GB2312" End Select Text1._______=a End SubA.Option Text B.Index Text C.Index Fonr D.Option Fonr
考题
在名为Form1的窗体上绘制一个文本框，名为Text1；再绘制两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为Hide和Display，如下图所示。请编写适当的事件过程，使得在运行时，若单击Hide按钮，则文本框消失，而如果单击Display按钮，则文本框显示出来。注意：程序中不得使用任何变量：文件必须存放在考生文件夹中，工程文件名为 execise63.vbp，窗体文件名为execise63.frm。
考题
在名为Form1的窗体上绘制一个名为Lab1、标题为空白、BorderStyle属性为1、Visible属性为False的标签，一个名为Text1、Text属性为空白的文本框和一个名为Cmd1、标题为“显示”的命令按钮。然后编写命令按钮的Click事件过程，使程序运行后，在文本框中输入严计算机等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。运行后的窗体如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise31.vbp，窗体文件名为execise31.frm。
考题
请根据以下各题的要求设计Visual Basic应用程序(包括界面和代码)。1．在窗体(名称为Form1)上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏；而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图1—1所示。注意；存盘时，工程文件名为sjt1.vbp．窗体文件名为sjt1.frm。2．在Form1的窗体上画一个命令按钮，其名称为C1，标题为“显示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图1—2所示。
考题
在窗体上先画一个名为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
考题
在窗体上画两个文本框，名称分别为T1、T2，初始情况下均为空白，编写适当的事件过程。程序运行后，如果在T1中输入字符，则所输入的字符立即在T2中显示出来，并把小写字母转换为相应的大写字母，如图1—1所示。要求：程序中不得使用任何变量。注意：存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。2．在窗体上画二个文本框，名称为Text1和Text2，内容为空；再画二个标签，名称分别为L1和L2，标题分别为“输入A，B，C：”和“A×B+C＝”；再画一个命令按钮，名称为C1，标题为“运算”。编写适当的程序。程序运行时，在文本框Text1中输入用逗号隔开的3个整数A、B、C，单击“运算”按钮，则计算出A×B+C的值，显示在文本框Text2中。程序运行结果如图1—2所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.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)
考题
在窗体上画一个名称为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 Text =a End SubA．Option TextB．Index TextC．Index FontD．Option Font
考题
在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，都没有初始内容，再画3个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示”、 “隐藏”、 “复制”。程序运行时，向Text1中输入的所有字符，都显示“*”。单击“显示”按钮后，在Text1中显示所有字符。再单击“隐藏”按钮后，Text1中的内容不变但显示的都是“?”。单击“复制”按钮后，把Text1中的实际内容复制到Text2中，如图25所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。
考题
在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个名为Option1的控件数组，程序运行后，如果单击某个单选按钮，则文本框中的字体根据所选择的单选按钮切换，如图1所示。请选择适合空白处的语句（ ）。A. Option TextB. Index TextC. Index FontD. Option Font
考题
窗体上有名为Text1、Text2的两个文本框，和一个由3个单选按钮组成的控件数组0ptionl， 如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中数值与该单选按钮所 对应的运算(乘1、乘10或乘100)，并将结果显示在Text2中，如图2所示。为了实现 上述功能，在程序中的横线处应填入的内容是（ ）。A. Option1．IndexB. IndexC. Option1(Index1)D. Option1(Index)．Value
考题
窗体上有名称为Text1、Text2的两个文本框，和一个由3个单选按钮构成的控件数组Opfion1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中数值与该单选按钮所对应的运算(乘1、乘10或乘100)，并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的横线处应填入的内容是( )。 Private Sub Option1_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 SubA．Option1.IndexB．IndexC．Option1(index)D．Option1(index).Value
考题
在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Option1_Click(Index AS Integer) Select Case______ Case 0 a="宋体" Case 1 a="黑体"A．Option TextB．Index TextC．Index FontD．Option Font
考题
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上创建两个名称分别为Option1和Option2，标签分别为“教授”和“研究员”的单选按钮，再建立一个名称为Label1的标签，实现如下功能：当选中“教授”时，标签上显示“博士学位以上”，如果选中“研究员”，则标签上显示“硕士学位以上”，结果如图67-1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sj1．vbp，窗体文件名为sj1．frm。（2）在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框，再画一个命令按钮，其名称为Command1、标题为“判断”。编写适当的事件过程，要求程序运行后，如果在Text1中输入一个数，单击命令按钮Command1，判断输入的是否为偶数，如图67-2所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。
考题
（ 24 ） 窗体上有名称分别为 Text1 、 Text2 的 2 个文本框 ， 有一个由 3 个单选按钮构成的控件数组 Option1 ，如图 2 所示 。 程序运行后 ， 如果单击某个单选按钮 ， 则执行 Text1 中的数值与该单选按钮所对应的运算（乘以 1 、 10 或 100 ），并将结果显示在 Text2 中，如图 3 所示。为了实现以上功能，在程序中的问号（ ? ）处应填入的内容是（ ）。Private Sub Option1_Click(Index As Integer)If Text1.Text “ “ ThenSelect Case ?Case 0Text2.Text=Val(Text1.Text)Case 1Text2.Text=Val(Text1.Text)*10Case 2Text2.Text=Val(Text1.Text)*100End SelectEnd IfEnd SubA ） IndexB ） Option1.IndexC ） Option1(Index)D ） Option1(Index).Value
考题
在考生文件夹下有一个工程文件sjt5．vbp。其窗体中有一个名称为Text1的文本框数组，下标从0开始。程序运行时，单击“产生随机数”按钮，就会产生10个3位数的随机数，并放入Text1 数组中，如图6(a)所示单击“重排数据”按钮，将把Text1中的奇数移到前面，偶数移到后面，如图6(b)所示。文件中已经给出了所有控件和部分程序。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 提示：在“重排数据”按钮的事件过程中有对其算法的文字描述，请仔细阅读。
考题
在考生文件夹中有一个程文件execise43.vbp和窗体文件execise43.tim。在名为Form1的窗体上已经有一个标签Lab1。请绘制一个单选按钮数组，名为Opt1，含3个单选按钮，它们的Index属性分别为0、1、2，标题依次为“汽车”、“自行车”和“步行”；再绘制一个名称为Text1的文本框。窗体文件中已经给出了Opt1的Click事件过程，但不完整，要求去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使得在运行时单击“汽车”或“自行车”单选按钮时，在Text1中显示“我坐汽车去”或“我骑自行车去”，单击“步行”单选按钮时，在Text1中显示“我步行去”。运行结果如下图所示。注意：不能修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
考题
（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）在名称为Form1的窗体中绘制一个名称为Label1的标签，其标题为空，BorderStyle属性为1；再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图61-1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sj1．vbp，窗体文件名为sj1．frm。（2）在窗体上设置一个文本框，名称为Text1，再添加一个命令按钮，名称为Command1，标题为“当前时间／日期切换”；每次单击按钮时，Text1就显示出当前时间，再单击一次，Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图61-2所示。注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2．vbp与sj2．frm。
考题
在名为Form1的窗体上，绘制一个名为Text1的文本框。设置文本框属性，在文本框中显示“文本框”；再建立一个名为Cmd1，标题为Clear的命令按钮，如下图所示。编写适当的事件过程，使程序运行后，若单击Clear命令按钮，则清除文本框中所显示的信息。注意：文件必须存放在考生文件夹中，窗体文件名为execise5.frm，工程文件名为exeeise5.vbp。
考题
在窗体上画一个文本框，名称为Text1(可显示多行)，然后再画三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图8所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5．txt文件中的所有英文字符放入Text1 (可多行显示)；单击“统计”按钮，找出并统计英文字母i、i、k、l、m、n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母i～n出现次数的统计结果依次存到考生目录下的顺序文件out5．txt中。 注意：存盘时必须存放在考生文件夹下，工程文件名为sit5．vbp，窗体文件名为sjt5．frm。
考题
在考生文件夹中有一个工程文件exeeise105.vbp，请在Form1窗体上建立一个名称为 Opt1的单选按钮数组，含有3个单选按钮，其标题分别为“71”、“81”、“91”，Index属性分别为0、1、2；再绘制一个名称为Cmd1的命令按钮，标题为“计算”；绘制一个名称为Text1的文本框，如图所示，程序的功能是在选定一个单选按钮并单击“计算”按钮后，可以计算出相应的阶乘值，在Text1中显示该阶乘值。请绘制出上述控件并编写程序。注意：不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。
考题
（ 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。
考题
在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。Private Sub Option1_Click（Index As Integer）Select Case ______Case 0a = "宋体"Case 1a = "黑体"Case 2a = "楷体＿GB2312"End Selecttext1. ______ =aEnd Sub
热门标签
最新试卷