首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体文件中已给出所有控件和部分程序,如图1-249所示。 要求:①利用属性窗口设置适当的属性,使txtInput、txtResult 中数据右对齐;②请编写适当的程序完成以下功能:在txtInp
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体文件中已给出所有控件和部分程序,如图1-249所示。 要求:①利用属性窗口设置适当的属性,使txtInput、txtResult 中数据右对齐;②请编写适当的程序完成以下功能:在txtInp
admin
2018-12-05
65
问题
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体文件中已给出所有控件和部分程序,如图1-249所示。
要求:①利用属性窗口设置适当的属性,使txtInput、txtResult 中数据右对齐;②请编写适当的程序完成以下功能:在txtInput 中输入40(度数),选择一个单选按钮,单击“计算”按钮,则根据所选择的单选按钮,计算出相应的正弦、余弦值(保留3位小数,第4位截去,π取3.14159),并显示在txtResult中。
注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须进行一种计算,在txtInput中输入的必须是40,必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
程序源码:
Private Sub Form_Unload(Cancel As
Integer)
mysub
End Sub
Sub mysub()
For k% =0 To 1
If Form1.optFun(k).Value =
True Then
n% = k%
End If
Next k%
Open "out3.txt" For Output As
#1
Print #1, n%, Form1.txtInput,
Form1. _
txtResult
Close #1
End Sub
(2)在考生文件夹下有一个工程文件vbsj4.vbp,窗体上已经画出所有控件。如图1-250所示。在txtInput文本框中输入一个任意的字符串(要求串的长度≥10),然后选择组合框中的3个截取运算选项之一。单击“计算”按钮,将截取运算后的结果显示在txtResult 中。窗体文件中已经给出了程序,但不完整,请去掉程序中的注释符,把程序中的“?”改为正确的内容。
注意:不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。
程序源码:
Dim is_num As Boolean
Private Sub cmdCal_Click()
Dim tmpStr As String * 50
’Select Case ?
Case 0
tmpStr=
Left(Trim(txtInput. _
Text), 3)
Case 1
tmpStr=
Right(Trim(txtInput.
Text), 3)
Case 2
’tmpStr=
Mid(Trim(txtInput. _
Text), ?)
End Select
’txtResult.Text=?
End Sub
选项
答案
第1小题 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件vbsj3.vbp,程序界面如图2-13所示。 [*] 步骤2:依次选中窗体中的两个文本框,将其Alignment 属性值设置为1-Right Justify。 步骤3:双击窗体中的“计算”命令按钮,在打开的代码编辑窗口中编写其单击事件过程。 参考代码: Private Sub cmdCal_Click() If optFun(0).Value = True Then txtResult.Text = Format(Sin(Val _ (txtInput.Text)*3.14159/180) -0.0005,"0.000") Else txtResult.Text = Format(Cos(Val _ (txtInput.Text)*3.14159/180) _ -0.0005,"0.000") End If End Sub 步骤4:按<F5>键运行程序,在左侧文本框中输入“40”,选择不同选项,单击“计算”按钮,结果如图2-14所示。 [*] 步骤5:单击窗体右上角的关闭按钮以结束程序。 步骤6:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件vbsj4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Select Case cboLong.ListIndex tmpStr = Mid(Trim(txtInput.Text), 3, 4) txtResult.Text = tmpStr 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/okFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设运行程序时弹出的菜单如图所示.关于该菜单,以下叙述中错误的是( )。
在程序中要使用Array函数给数组arr赋初值,则以下数组变量定义语句中错误的是( )。
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。
以下可以判断是否在文本框(名称为Text1)内按下了回车键的事件过程是
对于某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是
为了读取数据,需打开顺序文件"D:\data5.txt",以下正确的命令是
窗体上有一个名称为VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
窗体上已有的3个单选按钮组成了1个名为ChkOpt1的控件数组。用于区分控件数组ChkOpt1中每个元素的属性是( )。
下面不能作为结构化方法软件需求分析工具的是()。
窗体上有一个名称为VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
随机试题
甲公司拥有“熊鹿牌”电子产品注册商标。乙公司向国外某公司发出了“熊鹿牌”电子产品的报价单。甲公司得知此事后,对乙公司提起诉讼。下列有关说法中,哪些是正确的?()
听口线是指
男,56岁,突然头晕,呕吐8h。体检:双眼向右水平眼震,指鼻和跟膝胫试验右侧不稳,颈轻度抵抗。肌力和感觉检查无明显异常。血压150/85mmHg。临床诊断为
主人体生殖的阴精是()
在统治前期,()励精图治、锐意改革,唐朝出现了“开元盛世”的局面。
宪法的地位主要体现在()。
与中国隔海相望的国家,除了韩国、日本之外,还有()。
HowDidNewtownBecomeaVeryCleanPlace?TodayNewtownisaverycleanplace.Manyyearsago,however(然面,不管怎样),therearemil
______suchheavyloss,thebusinessmandidn’thavethecouragetogoon.
【B1】【B20】
最新回复
(
0
)