以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Commandl的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分)，如下图所示。请填空。 Pfivale Sub Commaildl_C1iCk（) Dimk As hteger Dim

相似题目

• 设窗体上有一个文本框Text1，程序代码中有以下赋值语句（假定用到的控件和变量都存在），其中错误的是________。

  查看最佳答案

• 设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发 。

  查看最佳答案

• 设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发 。

  查看最佳答案

• 窗体上有文本框Text1和一个菜单，菜单标题、名称见表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是（）。

  <img src='https://img2.soutiyun.com/ask/uploadfile/4317001-4320000/63c20c661602bfec53b19f6c83268fac.jpg' /> A.Private Sub save Click（） Text1．Text=file．save．Caption End Sub B.Private Sub save Click（） Text1．Text=save．Caption End Sub C.Private Sub file Click（） Text1．Text=file．save．Caption End Sub D.Private Sub file Click（） Text1．Text=save．Caption End Sub

  查看最佳答案

• 下图窗体上有三个文本框Text1、Text2和Text3以及一个按钮Command1。为完成已知圆直径求圆周长和圆面积的功能，程序如下：

  <img src='https://img2.soutiyun.com/shangxueba/ask/11175001-11178000/11176558/ct_cstvbm_ctvbbblank_00048(200912).jpg' /> 程序填空处应是______。

  查看最佳答案

• 在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名数为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示。请填空。

  Private Sub Option1_Click（Index As Integer） Select Case 【8】 Case 0 a="宋体" Case 1 a="黑体" Case 2 a="楷体_GB2312" End Select Text1 【9】 =a End Sub

  查看最佳答案

• 窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮（

  窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图1所示)，就可以把文本框中的内容写到文件Out．txt中，每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是（）。<img src='https://img2.soutiyun.com/ask/uploadfile/2340001-2343000/9ee39e48e3711140203a592ce77b107b.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/2340001-2343000/54c76f430783fad60b8a548d0f7a9765.jpg' />

  查看最佳答案

• 在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为

  A．123 B．456 C．579 D．123456

  查看最佳答案

• 在名为Form1的窗体上绘制一个文本框（名称为Text1)和一个水平滚动条（名称为 HSl)。在属性窗口中对

  在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对滚动条设置如下属性： Min 500 Max 2000 LargeChange 50 SmallChange 20 编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如下图所示。 <img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182470/ct_ctvbjj_ctvbjbasicope_00061(20096).jpg' /> 注意： 要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise58.vbp，窗体文件名为execise58.frm。

  查看最佳答案

• 在名为Form1的窗体上建立一个名为Cmd1、标题为“显示”的命令按钮。编写适当的事件过程，使程序运行后，若单击“显示”命令按钮，则在窗体上显示“计算机等级考试Visual Bask课程”。程序运行情况如下图所示。

  <img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182610/ct_ctvbjj_ctvbjbasicope_00044(20096).jpg' /> 注意： 不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为 execise77.frm，工程文件名为execise77.vbp。

  查看最佳答案

• 在考生文件夹中有工程文件execise99.vbp和窗体文件execise99.frm。在名为Fom1的窗体上有一个名为Text1的文本框，有两个命令按钮(名称分别是Cmd1和Cmd2，标题分别是Read和Save)。要求程序运行后，单击Read按钮，将文本文件in99．txt中的所有数字读到数组arr中，并在文本框内显示出来。随后Read按钮变为无效；然后单击Save按钮，

  求出数组alt中的各元素的立方并赋值回相应的元素，例如，arr(2)=2,则令art(2)=arr(2)*arr(2) *arr(2)=8。把计算后的数组的值全部写入考生文件夹中的文本文件out99.txt中，并在文本框中显示出来，最后Save按钮也变为无效。 <img src='https://img2.soutiyun.com/shangxueba/ask/11259001-11262000/11261465/ct_ctvbjj_ctvbjsimpapp_00144(20096).jpg' /> 本程序不完整，请补充完整，并能正确运行。 要求； 去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

  查看最佳答案

• 在考生文件夹下有一个工程文件execise3.vbp及窗体文件execise3.frm。在名称为Form1的窗体上已有3个文本框Text1、Text2和Text3，以及程序。请完成以下工作：

  (1)在属性窗口中修改Text3的适当属性，使其在运行时不显示，窗体如下图所示。 <img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182683/ct_ctvbjj_ctvbjcompapp_00297(20096).jpg' /> (3)窗体文件中始出了所有事件过程，但不完整，请去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，以便实现以下功能：当光标所在的文本框中无内容时，“剪切”和“复制”菜单项不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则“粘贴”菜单项不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。 注意： 不能修改程序中的其他部分。各菜单项的标题名称必须正确。存盘时，工程文件名为 execise3.vbp，窗体文件名为execise3.frm。

  查看最佳答案

• 有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，

  则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文 本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中：单击退出按钮则退出。 请将下列程序填空补充完整。 Private Sub Command1_Click() Me!Text1="" Me!Text2="" Me!Text3="" Me!Text4="" End Sub Pdvate Sub Command2_Click() If Me!Text1="" Or Me!Text2="" Or Me!Text3=""then MsgBox"成绩输入不全" Else Me!Text4=(【 】+Val(Me!Text2)+Val(Me!Text3))/3 【 】 End Sub Private Sub Command3_Click() Docmd. 【 】 End Sub

  查看最佳答案

• 在E盘当前目录文件夹下建立一个名为“Student．txt”的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序（）。

  <img src='https://img2.soutiyun.com/ask/uploadfile/3120001-3123000/bacacac96f57f1dc94f1e3a7d09be7d7.jpg' /> <img src='https://img2.soutiyun.com/ask/uploadfile/3120001-3123000/fe7592901253d4ab31df374713bd8b92.jpg' /> A．Print1，s B．Print≠1，i C．Put1，S D．Put 1，，i

  查看最佳答案

• 在考生文件夹中有工程文件execise23.vbp及窗体文件execise23.frm。在名为Form1、标题为“求和程序”的窗体上有3个Labe1控件、2个Text控件和3个命令按钮(如下图所示)。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和。

  <img src='https://img2.soutiyun.com/shangxueba/ask/11193001-11196000/11194560/ct_ctvbjj_ctvbjsimpapp_00218(20096).jpg' /> 要求： (1)刚启动工程时，Result和Clear按钮均为灰色。 (2)可以在输入框内输入任意自然数(n值太大时，运算时间将很长，建议不超过9位)。在输入数的同时Result按钮按钮变为可用。当输入为非数值时，累加结果为0。 (3)单击Result按钮可以在Text2中显示累加和，且该框内的文字不可修改：同时 Result按钮变灰，Clear按钮变为可用。 (4)单击Clear按钮，输入框和显示框均显示“0”。 (5)单击Close按钮结束程序的运行。 本程序不完整，请补充完整，并能正确运行。 要求： 去掉程序中的注释符“”’，把程序中的问号“？”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

  查看最佳答案

• 窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：对于上述程序，以下叙述中错误的是（）

  A．语句fun=n有错，因为n是整型，fun没有定义类型 B．运行程序，输入值为5时，文本框中显示655 C．运行程序，输入值为6时，文本框中显示42 D．ByRef表示参数按址传递

  查看最佳答案

• 在窗体上画一个名称为Text1的文本框，然后编写如下事件过程：PrivatSuForm_Load（）。程序运行后，如果按Shift+F2键，则文本框中的内容是（）

  A．Alt+F2 B．ab1 C．随机显示 D．不显示任何信息

  查看最佳答案

• 在窗体上画一个名为Command1的命令按钮，然后编写以下程序：运行程序后单击命令按钮，在窗体上显示的是（）

  A．6 B．5 C．7 D．8

  查看最佳答案

• 设窗体上有一个名为List1的列表框，并编写下面的事件过程：程序运行时单击一个列表项，则产生的结果是（）

  A．该列表项被移到列表的最前面 B．该列表项被删除 C．该列表项被移动到列表的最后面 D．该列表项被删除后又在原位置插入

  查看最佳答案

• 在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容，将程序补充完整。 Private Sub Command1_Click（) Open"c：est.dat"For Output As 1 For I=1 to Len（Text1.text

  查看最佳答案

• 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click（) Text1.Text=“VB程序设计” End Sub PrivmeSubText1_Change（) Picture1.Print"VB Programming" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是 【7】 ，而在图片框中显示的内容是 【8】 。

  查看最佳答案

• 把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。 在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为 True，然后编写如下的事件过程： Prlvate Sub Form_Click（) Open"D:est1.txt"For Input As 1 Text1.FontSize＝14 Text1.FontName

  查看最佳答案

• 新建一个工程，在窗体中创建上下两个文本框，分别为Textl和Text2。要求实现的功能是：在Text1中输入字符串，Text2中显示全部转换为大写字母的相应字符串。程序运行情况如图8所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为ylc4.vbp，窗体文件名为ylc4.frm。

  查看最佳答案

• 把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_Click（) Open"d：estsmtext1．txt"For lnput As1 Text1.Fontsize=14 Text1.FontN

  查看最佳答案