首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画两个复选框,名称分别为Chl、Ch2,标题分别为”程序设计”、”数据库原理”;然后画一个文本框,名称为Textl;再画一个命令按钮,名称为C1,标题为”确定”(如图2-209所示)。请编写适当的事件
在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画两个复选框,名称分别为Chl、Ch2,标题分别为”程序设计”、”数据库原理”;然后画一个文本框,名称为Textl;再画一个命令按钮,名称为C1,标题为”确定”(如图2-209所示)。请编写适当的事件
admin
2019-06-11
38
问题
在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画两个复选框,名称分别为Chl、Ch2,标题分别为”程序设计”、”数据库原理”;然后画一个文本框,名称为Textl;再画一个命令按钮,名称为C1,标题为”确定”(如图2-209所示)。请编写适当的事件过程,使得在运行时,选中复选框并单击”确定”按钮,就可以按照下表的要求把结果显示在文本框中。存盘时,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。
注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前,必须进行产生表2-9一个结果的操作。
选项
答案
步骤1:打开考生文件中的本题工程文件sjt3.vbp,如表3-123在窗体中画出控件并设置属性。 步骤2:在代码编辑窗口,编写”确定”按钮的单击事件。 参考代码: Private Sub C1_Click( ) Textl.Text=“我选的课是” If Chl.Value Then Textl.Text=Textl.Text+Chl.Caption EndIf If Ch2.Value=1 Then Textl.Text=Textl.Text+Ch2.Caption EndIf End Sub 步骤3:按要求将文件保存至考生文件夹中。 [*]
解析
转载请注明原文地址:https://kaotiyun.com/show/tAUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下程序:PrivateSubForm_Click()Dima(4)AsInteger,b(4)AsIntegerFork=0To2a(k+1)=Val(InputBox("请输入一个整数:"))b(3-k)=a(k+1)Ne
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Open"c:\f1.txt"For
假定有如下语句:answerS=MsgBox("String1",,"String2","String3",2)执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answerS的值为
以下关于VB的叙述中,错误的是
有下面程序代码:PrivateSubCommand1_Click()DimaAsStringa="COMPUTER"n=search(a,"T"):PrintIIf(n=0,"未找到",n)EndSubPrivateFunctio
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:PrivateSubfune(LAsLabe1)PrivateSubCommand1_Click()L.Caption="1234
有如下过程代码:Subvar_dim()StaticnumaAsIntegerDimnumbAsIntegernuma=nurna+2:numb=numb+1:printnuma;numbEndSub连续3次调用vardim过
判断复选框是否被选中的属性为
随机试题
TheColdPlacesTheArcticisapolarregion.Itsurrounds(环绕)theNorthPole.LikeAntarctica(南极洲).theArcticisala
证券公司申请介绍业务资格,应当符合的条件有()。
下列关于基金托管人的托管费叙述,不正确的是()。
根据《公司法》规定,下列各项中,属于公司法定公积金主要用途的有()。
社会工作者的一般特征有( )。
下列属于宪法关系的内容是()。
“一二.一”运动的基本口号是()。
算法的有穷性是指()。
Hefounditnecessaryforus______fromeachother.
如果受害者被及时送到医院,他本来会有机会活下来。(虚拟语气)
最新回复
(
0
)