首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在窗体上绘制一个名称为Text1的文本框和一个名称为cmd1、标题为“计算”的命令按钮,如图4—3所示。程序运行后,单击“计算”命令按钮,通过在对话框输入整数12,放入整型变量a中,然后计算a!(提示:运算结果应放入Long型变量中),在文本框中显示
(1)在窗体上绘制一个名称为Text1的文本框和一个名称为cmd1、标题为“计算”的命令按钮,如图4—3所示。程序运行后,单击“计算”命令按钮,通过在对话框输入整数12,放入整型变量a中,然后计算a!(提示:运算结果应放入Long型变量中),在文本框中显示
admin
2009-03-26
57
问题
(1)在窗体上绘制一个名称为Text1的文本框和一个名称为cmd1、标题为“计算”的命令按钮,如图4—3所示。程序运行后,单击“计算”命令按钮,通过在对话框输入整数12,放入整型变量a中,然后计算a!(提示:运算结果应放入Long型变量中),在文本框中显示结果,如图4—4所示,并把结果存入文件out.txt中。考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程putdata,考生可以直接调用。
注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。
(2)在考生文件夹中有一个工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有两个容器,其中一个容器中有两个单选按钮,另一个容器中有两个复选框,窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,则对文本框中的文字进行相应的设詈,如图4—5所示。
窗体上的控件已经绘制出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮;必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,按原文件名并在原文件夹中保存修改后的文件。
选项
答案
(1)在窗体上建好控件后,先设置控件属性,再编写事件过程和调试程序,并使其符合题目要求。当运行程序后,所弹出的对话框是通过调用函数InputBox来实现(通过Visual Basic系统本身提供的)。本题主要是考查循环语句的应用。计算一个数值的阶乘时使用了for循环,最后调用了所给模块中的过程将结果进行保存。 ①建立界面并设置控件属性。程序中用到的控件及其属性见下表: [*] ②声明存储运算结果的Long型变量。在编写程序代码时要注意变量范围的设定,题目要求将计算结果存入Long变量中,所以把最后放入文本框内的变量设置为长整型。(例如:Dim temp As Long) ③打开工程资源管理器,在其空白处右键添加模块mode.bas(此文件已在考生文件夹里),模块代码如下: Option Explicit Sub putdata(t_FileName As String,T_Str As Variant) Dim sFile A8 String sFile="\"&t_FileName ()pen App.Path&.sFile For Output As#1 Print#1,T_Str Close#1 End Sub ④打开工程资源管理器,右击窗体,选择查看代码项,在弹出的代码窗口输人代码如下: Private Sub Cmdl Click() Dim a AS Integer Dim temp As Long Dim i AS Integer a=Val(InputBox("请输入")) temp=1 For i=1 To Val(a) temp=temp*i Next i Textl.Text=temp putdata"out.txt",Textl.Text End Sub ⑤调试并运行程序。 ⑥按题目要求存盘。 (2)①打开题目所给工程文件。 ②打开代码窗口输入以下代码: Private Sub Cmdl Click() IfOptl.Value=True Then Textl.Font="宋体" Else Textl.Font="隶书" End If If Chkl.Value=l Then Textl.FontUnderline=Ture Else Textl.FontUnderline=False End If If Chk2.Value=1 Then Textl.FontItalic=True Else Textl.FontItalic=False End If End Sub ③按要求保存文件即完成本题。
解析
转载请注明原文地址:https://kaotiyun.com/show/mV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读和理解下面程序段:classManagerextendsEmployee{publicManager(Stringn,doubles,intyear,intmonth,intday){super(n
以下内容不屈于算法程序所占的存储空间的是()。
要在一个单一的类文件中创建既可用作JavaApplet,又可用作Java应用程序的Java软件代码,下列说法错误的是()
在编写JavaApplication程序时,若需要使用到标准输入输出语句,则必须在程序的开头写上______语句。()
一些重要的程序语言(如C语言和Pascal语言)允许过程的递归调用。而实现递归调用中的存储分配通常用()
对于构造方法,下列叙述正确的是______。
下列有关Java源代码文件三要素的说法正确的是______。
下列属于正则表达式的是()。
若x、a、b和c均是int型变量,则执行表达式x=(a=1,b=2)后的结果是()。
随机试题
盆脏筋膜形成哪些筋膜隔?
Everymoning,kidsfromalocalhighschoolareworkinghard.Theyaremakingandsellingspecialcoffeeatacoofeecafe.They
细胞毒性脑水肿最常见的病因是
我国的建设工程监理属于国际上( )的范畴。
我国东北某新建机场在施工前,被要求执行绿色施工组织模式。在施工过程中发生了以下事件:事件一:监理单位被要求按《民用机场绿色施工指南》(AC一158一CA一2017一02)的相关条款对施工单位的施工实施监理。事件二:在施工单位提交的施工组织设计中,拌合站
某工业建筑物出现放线定位的偏差,且严重超过规范标准规定,若要纠正会造成重大经济损失,但经过分析、论证其偏差不影响生产工艺和正常使用,在外观上也无明显影响,其采取的处理方法是()。
工作方法的隐蔽性和公开性,决定了公安工作的隐蔽性和公开性。( )
逻辑变量x、Y进行逻辑“异或”(用表示)运算的含义是:若X、Y取值相同(都为true或都为false),则XY的值为false,否则XY的值为true。用逻辑“与”(∧)、“或”(∨)、“非”(-)表示XY的式子为(3)。
假设磁盘上的物理块大小为512字节,一个逻辑记录长度为80个字符。若采用记录成组技术存储若干记录,当块因子为4时,磁盘空间的利用率可达到()。
Thesurvivorspouredinandinandpackedtheirbodiessotighttosleeponthebarefloorsthattheirbreathalonewarmedthea
最新回复
(
0
)