网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
（ 8 ）在窗体上先画 1 个名为 Text1 的文本框和平个名为 Label1 的标签 , 再画 1 个名为 OP1 的有 4 个单选按钮数组 , 其 Index 属性按季度顺序为 0 ∽ 3 （见图 A-5 ）。在文件 sales.txt 中按月份顺序存有某企业某 年12 个月的销售额。要求在程序执行时，鼠标单击 1 个单选按钮，则 Text1 中显示相应季度的销售总额 ， 并把相应的文字显示在标签上。图 A-6 是单击 “ 第 3 季度 ” 单选按钮产生的结果。请填空。
Dim sales （—— ） As Long
Private Sub Form__Load （）
open “ 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 Ingeger,month AS Ingeger
sum=0
month=Index*——
For k=1 To 3
month=month+1
sum=sum+sales （ month ）
Next k
Label1.Caption=Opl （ Index ） . Caption & “ 销售总额： ”
Text1=sum
End Sub
参考答案
更多 “ （ 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 ” 相关考题
考题
在窗体上添加一个命令按钮(名为Conunand1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2170 n=Len (Str$ (m) +Space (5)) Me! Text1=n End Sub打开窗体运行后，单击命令按钮，在文本框中显示( )。A．5B．8C．9D．10
考题
在窗体上添加一个命令按钮(名为Commandl) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事件代码： Private Sub Commandl_click() m＝2.17 n＝Len(Str$(m) +Space(5) ) Me!Text1＝n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示( )。A．5B．8C．9D．10
考题
以下是一个比赛评分程序。在窗体上建立一个名为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
考题
若窗体中已有一个名为Command1的命令按钮、一个名为Label 1的标签和一个名为Text 1的文本框，且文本框的内容为空，然后编写如下事件代码：Private Function f(x As Long) As BooleanIf x Mod 2＝0 Thenf＝TrueElsef＝FalseEnd IfEnd FunctionPrivate Sub Command1_Click( )Dim n As Longn＝Val(Me!text1)p＝IIf(f(n) ，“Even
考题
若窗体中已有一个名为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的窗体上绘制一个标签，名为Lab1，标题为“体育生活”；再绘制一个名为Chk1的复选框数组，含3个复选框，它们的Index属性分别为0、1、2，标题依次为“足球”、“篮球”和“排球”，请设置复选框的属性，使其初始状态如下表所示。注意：文件必须存放在考生文件夹中，工程文件名为execise109.vbp，窗体文件名为 exeoiSe109.frm。
考题
在名为Form1的窗体上建立一个名为Text1的文本框；一个名为Crud1，标题为“输出”的命令按钮(如下图所示)。要求程序运行后，在文本框中任意输入一个字符串，然后单击“输出”按钮，则将文本框中的文字显示在窗体上。注意：在程序中不能使用任何变量：文件必须存放在考生文件夹中，窗体文件名为 execise61.frm，工程文件名为execise61.vbp。
考题
在名为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。
考题
在窗体上先画一个名为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
考题
在窗体上画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的控件数组，程序运行后，如果单击某个单选按钮，则文本框中的字体根据所选择的单选按钮切换，如图1所示。请选择适合空白处的语句（ ）。A. Option TextB. Index TextC. Index FontD. Option Font
考题
在名为Form1的窗体上建立一个名为Cmd1的命令按钮数组，含3个命令按钮，它们的Index属性分别为0、1、2，标题依次为Yes、No和Cancle，每个按钮的高、宽均为400、 700。窗体的标题为“Cmd窗口”。运行后的窗体如下图所示。注意：文件必须存放在考生文件夹中，工程文件名为execise85.vbp，窗体文件名为 execise85.frm。
考题
若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文 本框，且文本框的内容为空，然后编写如下事件代码：Private Function f(X As Long)As BooleanIf x Mod2=0 Thenf=TrueElsef=FalseEnd IfEnd FunctionPrivate Sub Command1_ Click()Dim n As Longn=Val(Me!text1)p=Ⅱf(f(n)，"Even number"，"Odd number")Me!Labell.Caption=n "is" pEnd Sub窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为【 】。
考题
在Form1的窗体上绘制一个文本框，名为Text1绘制一个命令按钮，名为Cmd1，标题为“显示”，它的Tablndex属性设为0。请为Cmd1设置适当的属性，使得当焦点在Cmd1上时，按Esc键就调用Cmd1的Click事件，该事件过程的作用是在文本框中显示Visual Basic，程序运行结果如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise49.vbp，窗体文件名为execise49.frm。
考题
在名为Form1的窗体上绘制一个文本框，名为Text1：绘制一个命令按钮，名为Cmd1，标题为“显示”，它的Tab Index属性设置为0。请为Cmd1设置适当的属性，使得当焦点在 Cmd1上时，按Esc键就调用Cmd1的Click事件，该事件过程的作用是在文本框中显示“等级考试”，程序运行结果如下图所示。注意：文件必须存放在考生文件夹中，工程文件名为execise101.vbp，窗体文件名为 execiSe101.frm。
考题
在考生文件夹中有一个程文件execise43.vbp和窗体文件execise43.tim。在名为Form1的窗体上已经有一个标签Lab1。请绘制一个单选按钮数组，名为Opt1，含3个单选按钮，它们的Index属性分别为0、1、2，标题依次为“汽车”、“自行车”和“步行”；再绘制一个名称为Text1的文本框。窗体文件中已经给出了Opt1的Click事件过程，但不完整，要求去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使得在运行时单击“汽车”或“自行车”单选按钮时，在Text1中显示“我坐汽车去”或“我骑自行车去”，单击“步行”单选按钮时，在Text1中显示“我步行去”。运行结果如下图所示。注意：不能修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
考题
在名为Form1的窗体上绘制一个标签，名为Lab1，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为Text1，其宽、高分别为1500和300。设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外再把窗体的标题设置为“PassWord窗口”。运行时的窗体如下图所示。注意：以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为execise89.vbp，窗体文件名为execise89.frm。
考题
在Form1的窗体上绘制一个文本框，名为Text1；绘制一个命令按钮，名为Cmd1，标题为Display，它的TabIndex属性设为0。请为Cmd1设置适当的属性，使得当焦点在Text1上时，按Esc键就调用Cmd1的Click事件，该事件过程的作用是在文本框中显示Visual Basic，程序运行结果如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise29.vbp，窗体文件名为execise29.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。
考题
在名为Form1的窗体上，绘制一个名为Text1的文本框。设置文本框属性，在文本框中显示“文本框”；再建立一个名为Cmd1，标题为Clear的命令按钮，如下图所示。编写适当的事件过程，使程序运行后，若单击Clear命令按钮，则清除文本框中所显示的信息。注意：文件必须存放在考生文件夹中，窗体文件名为execise5.frm，工程文件名为exeeise5.vbp。
考题
在名为Foma1的窗体上绘制一个标签(名称为Lab1，标题为Input)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Cmd1，标题为Display)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入Visual Basic，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如下图所示。注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise69.vbp，窗体文件名为exeCise69.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)
考题
在窗体上画一个名称为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。
考题
（ 32 ） 在窗体上添加一个命令按钮 （ 名为 Command1 ） 和一个文本框 （ 名为 Text1 ） ， 并在命令按钮中编写如下事件代码：Private Sub Command1_Click( )m=2.17n=Len(Str$(m)+Space(5))Me!Text1 =nEnd Sub打开窗体运行后，单击命令按钮，在文本框中显示A ） 5B ） 8C ） 9D ） 10
热门标签
最新试卷