首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存
admin
2009-02-25
51
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体上有两个单选按钮,名称分别为Op1和Op2,标题分别为“黑体”和“楷体”,一个文本框,名称为Text1,字体为宋体,字号为四号字,还有一个命令按钮,名称为C1,标题为“切换”。要求程序运行后,在文本框中输入“等级考试”,并选择一个单选按钮,如图2-3所示。在单击“切换”按钮后,会根据所选的单选按钮来切换文本框中所显示的汉字字体,如图2-4所示。
(2)在窗体上建立一个名称为Text1的文本框和一个名称为Cmd1,标题为“计算”的命令按钮,如图2-5所示。程序运行后,单击“计算”命令按钮,通过在对话框输入整数12,放入整型变量a中,然后计算a!,(提示:运算结果应放入Long型变量中),在文本框中显示结果,并把结果存入文件out.txt中。在考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程putdata,考生可以直接调用。
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt4.frm,工程文件名为sjt4.vbp。
选项
答案
(1)窗体的控件及属性已经建好,只需编写事件过程空缺的代码即可。 单选按钮和“切换”按钮的是通过它们的Caption属性来设置的,当点击“切换”时触发它的Click事件来使文本框的内容改变的。文本框的字体设置是通过它的Font属性来实现的。 解题步骤: 第一步:编写程序代码。 程序提供的代码: Option Explicit Private Sub C1_Click() If Op1 The n ’ Text1.Font = Op1.? End If If Op2 Then ’ Text1.?:“楷体GB2312” End If End Sub 参考代码: Option Explicit Private Sub C1_Click() If Op1 Then ’ Text1.Font = Op1.Caption End If If Op2 Then Text1.FontName =“楷体GB2312” End If End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。 (2)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 当运行程序后所弹出的对话框是由Visual Basic系统本身提供的,通过调用函数InputBox来实现,本题的主要思想是考查循环语句的应用。计算一个数值的阶乘时使用了for循环,最后调用了所给模块中的过程将结果进行保存。解题步骤: 第一步:建立界面并设置控件属性。本题用到了1个文本框和1个命令按钮,将命令按钮的Caption属性设置为“计算”, Name属性设置成Cmd1,文本框属性为默认设置。 第二步:编写程序代码。 在编写程序代码时要注意变量范围的设定,题目要求将计算结果存入Long变量中,所以把最后放入文本框内的变量设置为长整型,然后保存结果。 参考代码: Private Sub Cmd1_Click() Dim a As Integer Dim temp As Long Dim i As Integer a = Val(InputBox(“请输入”,,"12")) temp = 1 For i =1 To Val(a) temp = temp * i Next Text1.Text = temp putdata"out.txt",Text1.Text End Sub 标准模块代码: Option Explicit Sub putdata(t_FileName As String,T_Str As Variant) Dim sFile As String sFile ="\" & t FileName Open App.Path & sFile For Output As # 1 Print #1,T_Str Close #1 End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/8h1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Java程序的执行过程中用到一套JDK工具,其中jbD.exe是指()。
一元算术运算符中,运算符+的功能是()。
面向数据流的设计方法可以直接把数据流图映射成软件结构。对于变换流,除了输入模块、变换模块和输出模块外还需要一个()。
在JavaApplet程序中,如果对发生的事件做出响应和处理的时候,应该使用下列哪个语句
E-R数据模型一般在数据库设计的______阶段使用。
要从文件“file.dar”文件中读出第10个字节到变量C中,下列哪个方法适合()
运行下列程序,会产生什么结果?()publicclassXexlendsThreadimplementsRunable{publicvoidrun(){System.out.println
下面程序段的输出结果是【】。publicclassTest{publicstaticvoidmain(Stringargs[]){inti=1;switch(i){case
下面程序的输出结果是()。publicclassSun{publicstaticvoidmain(Stringargs[]){inti=1;
随机试题
进行打磨操作人员要站在砂轮机的()。
教师上课时,一边讲授、一边板书,还要观察学生的听课情况,这属于以下哪种注意品质()
以合同的成立是否必须依照某种特定的形式为标准,可将合同分为【】
急性左心功能不全时为减少回心血量可采取
我国的政权组织形式是()。
雅琴,50多岁,机关干部,丈夫在一家公司工作,收入较高,夫妇俩平时感情就不和,现在丈夫早出晚归,常在外“拈花惹草”,对家中的事不管不问,只把工资交给妻子,家里大小事情都由雅琴料理。雅琴夫妇有两个孩子,儿子30岁,从小在奶奶身边长大,与奶奶关系亲密
世界上第一个明确提出“教育心理学化”口号的教育家是
根据中央的十二五规划建议,深圳市深入分析了当前经济工作,明确了未来五年深圳市经济社会发展的奋斗目标。在未来五年,深圳不仅要在十二个五年计划期间实现经济发展方式的根本性转变,经济平稳较快发展,年均增长10%左右,2015年GDP超过1.5万亿元、人均可支配收
经营杠杆作用是指()。
党的十九大报告指出,全面依法治国是国家治理的一场深刻革命,必须坚持厉行法治,推进科学立法、严格执法、公正司法、全民守法。深化司法体制综合配套改革,全面落实司法责任制,努力让人民群众在每一个司法案件中感受到公平正义。其中,司法原则主要有
最新回复
(
0
)