首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个文本框,其名称为Textl,初始内容为空白;然后再画三个单选按钮,其名称分别为Op1、Op2和Op3,标题分别为北京、西安和杭州,编写适当的事
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个文本框,其名称为Textl,初始内容为空白;然后再画三个单选按钮,其名称分别为Op1、Op2和Op3,标题分别为北京、西安和杭州,编写适当的事
admin
2016-01-31
38
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Form1的窗体上画一个文本框,其名称为Textl,初始内容为空白;然后再画三个单选按钮,其名称分别为Op1、Op2和Op3,标题分别为北京、西安和杭州,编写适当的事件过程。程序运行后,如果选择单选按钮Op1,则在文本框中显示“颐和园”;如果选择单选按钮Op2,则在文本框中显示“兵马俑”;如果选择单选按钮Op3,则在文本框中显示“西湖”。程序的运行情况如图3-74所示。要求程序中不得使用变量,事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
审题分析 本题只需在三个单选按钮的Click事件过程中,分别为文本框的Text属性赋予相应内容即可。 操作步骤 步骤1:新建一个“标准EXE”工程,在窗体Form1上画一个文本框和三个单选按钮,其属性及值如表4-44所示。 [*] 步骤2:在代码编辑窗口,编写三个单选按钮的单击事件过程。 参考代码: Private Sub Op1_Click() Text1="颐和园" End Sub Private Sub Op2_Click() Text1.Text="兵马俑" End Sub Private Sub Op3_Click() Text1.Text="西湖" End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 选择控件。
解析
转载请注明原文地址:https://kaotiyun.com/show/trLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:PrivateSubCommand1_Click()ForI=1To2ForJ=1ToIPrintString(I,"Hello");NextJPrintN
下述程序的运行结果是()。j=0DoWhilej<30j=(0+1)*(0+2)k=k+1LoopPrintk;j
使用CommonDialog控件的()方法可显示“打印”对话框。
复选框的Value属性为0时,表示该复选框()。
关系表中的每一横行称为一个
要将窗体Form1标题设为“学习VB”,以下能正确实现该功能的语句为
在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,对应的事件过程是()
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTypeAng KAsInteger
软件工程学中除软件开发技术需重视外,另一重要组成内容是软件的【】。
随机试题
40岁农民,以“发热,周身不适,肌肉痛3天”为主诉入院。查体:面色苍白、冷汗、脉细弱而快,皮肤有少许出血点,T35.8℃BP60/40mmHg,尿蛋白(++),末梢血象WBC30×109/L、N80%、异型淋巴细胞10%、血小板50×109/L。诊断多考虑
某新建项目,建设期为3年,分年均衡进行贷款,第一年贷款300万元,第二年贷款600万元,第三年贷款400万元,年利率为12%,建设期内利息只计息不支付,则建设期利息为()万元。
注浆施工中,在黏土层中宜采用( )注浆法。
常见的由承包商向业主提出建设工程施工索赔的情况有()。
如果企业本年实现了可持续增长,下列等式中成立的有()。
年号是皇帝用以纪年而设置的称号,年号始于西汉()即位之年的“建元”。
下列选项中不属于政治上层建筑的是()。
根据《行政复议法》的规定,有下列哪些情形的,公民、法人或者其他组织可以申请行政复议?()
简述点估计和区间估计的定义,并说明它们的优缺点。
Howtoprotectyourcomputerfrombeingattackedbyavirus:Besuretohaveagoodantivirusprogramandupdateitregular
最新回复
(
0
)