在菜单编辑器中建立了一个菜单,名为pmenu,用下面的语句可以把它作为弹出式菜单弹出,请填空。Forml._________pmenu
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个标题为“得分”的框架,在框架中有一个名称为Tcxtl的文本框数组,含六个元素;文本框Text2用来输入难度系数。程序运行时,在左边的六个文本框中输入6个得分,输入难度系数后,单击“计算分数”按钮,则可计算出最后得分并在文本框Text3中显示(如图1-228所示)。计算方法:去掉一个最高得分和一个最低得分,求剩下得分的平均分,再乘以3,再乘以难度系数。最后结果保留到第2位小数,不四舍五入。注意:文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。(2)在考生目录下有一个工程文件sjt4.vbp。窗体上的控件如图1-229所示。程序运行时,若选中“阶乘”单选按钮。则“1000”、“2000”菜单项不可用(如图1-229所示),若选中“累加”单选按钮,则“lO”、“12”菜单项不可用。选中菜单中的一个菜单项后,单击“计算”按钮,则相应的计算结果显示在文本框中(例如选中“阶乘”和“10”,则计算10l,选中“累加”和“2000”,则计算1+2+3+…+2000)。单击“存盘”按钮,则把文本框中的结果保存到考生目录下的out4.dat文件中。要求:编写“计算”按钮的Click事件过程。注意:不得修改已经存在的程序,在结束程序运行之前,必须用“存盘”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
在考生文件夹中有一个工程文件exeeise105.vbp,请在Form1窗体上建立一个名称为Opt1的单选按钮数组,含有3个单选按钮,其标题分别为“71”、“81”、“91”,Index属性分别为0、1、2;再绘制一个名称为Cmd1的命令按钮,标题为“计算”;绘制一个名称为Text1的文本框,如图所示,程序的功能是在选定一个单选按钮并单击“计算”按钮后,可以计算出相应的阶乘值,在Text1中显示该阶乘值。请绘制出上述控件并编写程序。注意:不得修改工程中已经存在的内容,在结束程序运行之前,必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序,否则无成绩。最后按原文件名存盘。
一个控件在窗体上的位置由Top和Left属性决定,其大小由【 】和【 】属性决定。
下面程序是用来打印九九乘法表的,请填空。 Dim i As Integer, j As Integer, Strl $ Strl =" " For i = 1 To 9 For j = 1 To 9 If【 】Then Strl =Strl +Str$ (j) +" x" +Str$ (i) +" =" +Str$ (Val(i*j)) Else Strl = Strl & Chr( 13 ) 【 】 End If Next Next Print Strl
已知变量x、y为整数型,且x=4,y=12,s为字符串型,且s=a,LblOk为标签控件,下列赋值语句不合法的是( )。
Visual Basic窗体设计器的主要功能是: ______。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Pic的图片框,通过属性窗口将考生文件夹下的文件Tul-1.jpg添加到图片框,然后编写适当的事件过程。运行程序时,单击窗体,在图片框中显示“VB等级考试”,如图1-21所示。注意:要求程序中不得使用变量,事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjt1.frm。(2)在名称为Forml的窗体上画一个名称为Commandl的命令按钮,标题为“命令按钮”。然后建立一个菜单,标题为“控件”,名称为menu,包含两个子菜单项,一个是“显示命令按钮”,名称为subMenul;另一个是“隐藏命令按钮”,名称为subMenu2,如图1-22所示。编写适当的事件过程,使得程序运行时,如果选择“显示命令按钮”菜单命令,则显示命令按钮控件;而如果选择“隐藏命令按钮”菜单命令,则隐藏命令按钮控件。注意:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sit2.vbp,窗体文件名为sjt2.frm。
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有3个Text控件及5个命令按钮,功能为:开始启动工程时,界面上除“读取数据”及“关闭”按钮有效之外,其他按钮均不可用(灰色显示);单击“读取数据”按钮之后,利用InputBox让用户连续且必须输入8个数。若录人为非数字符号,则给出提示“输人数据无效,请重新输入:”;输入完毕后,“读取数据”变灰,其他变为可用状态;按相应的按钮可分别求出所输入数据的升序排列及平均值,并在右侧对应的文本框中显示(注意用A(8)存放最大数,A(1)存放最小数);单击“清空”按钮将所有文本框清空。如图10一3所示。注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。在名称为Forml,窗体上有3个Label控件、2个Text控件和2个命令按钮。该程序的主要功能是求从1到Textl中用户输入的任意自然数n的累加和。刚启动工程时,可以在输入框内输入任意自然数(n值太大时,运算时间将很长,建议不超过4位)。当输入为非数值时,累加结果为0;单击“开始”可以在,I?ext2中显示累加和,同时“开始”变为“完成”并变灰;单击“关闭”按钮结束程序的运行。如图10—4所示注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
以下语句的输出结果是 ______。 Print Format$("32548.5","000,000.00")
在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
Private Sub Command1_Click()
a=InputBox("请输入日期 (1~31)")
t="旅游景点:"& IIf(a>0 And a10 And a20 And a<=31, "颐和园","")
Text1.Text=t
End Sub
程序运行后,如果从键盘上输入16,则在文本框中显示的内容是
在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮Command1变为可用。请填空。Private Sub Form_Load()Command1.Enabled=FalseEnd subPrivate Sub Text1_【 】()Command1.Enabled=TreeEnd Sub
下列程序是用来计算1+2+3……+10的程序段,请补充该程序。 Dim i, s, k As Integer s =0: k = 0 For【 】To 1 k=k+1 s=s+ k Next i Print s
在考生文件夹中有一个工程文件exeeise86.vbp及窗体文件execise86.frm。在名为Form1的窗体上有一个名称为List1的列表框和一个名称为Cmd1、标题为;显示”的命令按钮。要求程序运行后,如果多次单击列表框中的项,则可同时选择这些项。而如果单击“显示”按钮,则在窗体上输出所有选中的列表项,如下图所示。要求;修改列表框的适当属性,使得运行时可以多选,并去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改过的程序按原名保存。
在考生文件夹中有一个工程文件execise82.vbp及窗体文件exeeise82.frm。在名为Fonn1的窗体上有1个单选按钮数组,含3个单选按钮,标题分别是“小学生”、“中学生”和“大学生”;还有1个标题为“显示”的命令按钮。程序的功能是:在运行时,如果选中一个单选按钮并单击“显示”按钮,。则在窗体上显示相应的信息,例如若选中“小学生”,则在窗体上显示“我是大学生”(如下图所示)。要求:去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分,也不得修改控件的属性。最后原名保存修改后的文件。
在考生文件夹下有工程文件execise13.vbp及窗体文件execise13.frm。在名为Form1的窗体上有5个Labe1控件和2个命令按钮,数据文件in13.dat存放学生的编号:姓名、性别和体重,如下图所示。程序运行后,按Begin按钮后,能从考生文件夹下的in13.dar中读出数据并把体重大于平均体重的学生的所有数据写入考生文件夹下的out13.dat文件中。执行完毕,Begin按钮变成“完成”按钮,且无效。要求:该程序不完整,请在有问号“?”的地方填入正确内容,然后删除问号“?”及所有注释符“’”,但不能修改其他部分。存盘时不得改变文件名和文件夹,相应的数据文件也保存到考生文件夹下,否则没有成绩。
使用菜单编辑器设计菜单时,必须输入的项是( )。
在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 art(i)=i Next i x=InputBox("请输入一个数字:") If Val(x)>4 Then ReDim arr(4) arr(4)=x End If Me.Print(arr(4)-arr(3)) End Sub 程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为【 】。
在名为Form1的窗体上建立一个名为List1的列表框(如下图所示)。编写适当的事件过程,使在程序运行后,通过FormLoad()事件过程加载窗体时,执行语句List1.Addltem”Item";单击某个列表项时,执行语句List1.AddltemList1.Text一次。注意:文件必须存放在考生文件夹中,窗体文件名为execise36.frm,工程文件名为execise36.vbp。
为了使标签Lahel1显示文字“姓名”,可把Label1的______属性设置为“姓名”。
