首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件vbsj3.vbp,包含了所有控件和部分程序,如图1-239所示。 要求:①利用属性窗口设置适当的属性,使txtInput、txtResult 中数据右对齐;②请编写适当的程序完成以下功能:在txtInput 中输
(1)在考生目录下有一个工程文件vbsj3.vbp,包含了所有控件和部分程序,如图1-239所示。 要求:①利用属性窗口设置适当的属性,使txtInput、txtResult 中数据右对齐;②请编写适当的程序完成以下功能:在txtInput 中输
admin
2019-06-11
39
问题
(1)在考生目录下有一个工程文件vbsj3.vbp,包含了所有控件和部分程序,如图1-239所示。
要求:①利用属性窗口设置适当的属性,使txtInput、txtResult 中数据右对齐;②请编写适当的程序完成以下功能:在txtInput 中输入40(度数),选择组合框中的一个项目,单击“计算”按钮,则根据所选择的项目,计算出相应的正弦、余弦值(保留3位小数,第4位截去,π取3.14159),并显示在txtResult中。
注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须进行一种计算;在中输入的必须是40;必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,按原文件名存盘。
程序源码:
Private Sub Form_Unload(Cancel As
Integer)
Call mysub
End Sub
Sub mysub()
Open "out3.txt" For Output As
# 1
Print # 1, Form1.cboFun.Text,
Form1. _
txtInput.Text,
Form1.txtOutput.Text
Close #1
End Sub
(2)在考生文件夹下有一个工程文件vbsj4.vbp,相应的窗体文件为vbsj4.frm。在窗体上有一个命令按钮,其名称为cmdCal,标题为“计算”。程序运行后,如果单击命令按钮,程序将计算500以内两个数之间(包括开头和结尾的数)所有连续数的和为1250的正整数,并在窗体上显示出来。这样的数有多组,程序输出每组开头和结尾的正整数,并用“~”连接起来,如图1-240所示。该程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。
程序源码:
Private Sub cmdCal_Click()
Dim i As Integer, j As Integer,
iSum _
As Integer
Print "连续和为1250 的正整数是:"
For i = 1 To 500
’? = 0
For j = i To 500
’iSum = ?
If iSum >= 1250 Then Exit
For
Next
’ If iSum = ? Then
Print i; " ~ "; j
End If
Next
End Sub
Private Sub cmdCal_Click()
Call mysub
End Sub
End Sub
选项
答案
第1小题 【操作步骤】 步骤1:打开考生文件夹中的工程文件vbsj3.vbp,依次选中窗体中的两个文本框,将其Alignment 属性值设置为1-Right Justify。 步骤2:双击窗体中的“计算”命令按钮,在打开的代码编辑窗口中编写其单击事件过程。 参考代码: Private Sub cmdCal_Click() Select Case cboFun.Text Case "Sin" txtResult.Text = Int(Sin(Val _ (txtInput.Text)*3.14159/180) _ *1000)/1000 Case "Cos" txtResult.Text = Int(Cos(Val _ (txtInput.Text)*3.14159/180) _ *1000)/1000 End Select End Sub 步骤4:按<F5>键运行程序,在左侧文本框中输入“40”,选择不同选项,单击“计算”按钮。 步骤5:单击窗体右上角的关闭按钮以结束程序。 步骤6:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件vbsj4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: iSum = 0 iSum = iSum + j If iSum = 1250 Then 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/DaN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个标签Label1,并编写了下面的过程PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfB
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序代码:PrivateConstNUMAsInteger=10PrivateSubCommandl_Click()DimaAsInteger,bA
对于命令按钮,下列说法中正确的是()。
设a=10,b=5,c=1,执行语句Printa>b>c窗体上显示的是()。
在考生文件夹下有一个工程文件sjt3.vbp,含有两个窗体,名称分别为Form1、Form2。其中Form1上有两个控件(图像框和计时器)和一个菜单项“操作”,含有三个子菜单(如图1所示)。Form2上有一个名称为Command1、标题为“返回”的命令按钮
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序:PrivateSubeornmandl_Click()DimnIfTextl.Text<>”123456”Thenn=n+1Pr
窗体如图1所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommandl_Click()
以下关于通用对话框的叙述中,错误的是()。
在名称为Form1的窗体上画一个垂直滚动条和一个命令按钮,其名称分别为VScroll1和Command1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置垂直滚动条的属性:Max=窗体高度Min=0Large
在考生文件夹下有一个工程文件sjt5.vbp,界面如图所示,其功能如下:①单击“读数据”按钮,则把考生文件夹下文件in5.dat中的12组整数(其中每组含有10个数,共计120个整数)读到数组a中;②单击“计算”按钮,则对每组数求平均值
随机试题
“市场表现到什么时候,我们就应当追回投资或一定退出?资产负债率高到什么时候,我们就需要停止投资?”这指的是()。
患者男,52岁。膝关节承重时疼痛加重,肿胀明显,活动时有摩擦感,浮髌试验阳性。患者可能诊断为
CRTSⅡ型板式无砟轨道道床施工内容不包括()。
下列报表中,属于反映企业某一日期终了时资金运动变化处于相对静止状态的报表是()。
乙购买甲的一套房屋,已经支付1/3的价款,双方约定余款待过户手续办理完毕后付清。后甲反悔,要求解除合同,乙不同意,起诉要求甲继续履行合同,转移房屋所有权。根据《物权法》的规定,下列选项中,正确的是()。
下列关于贷款损失准备金计提比例的说法,正确的有()。
关于组织内部供给预测中使用的人员调配图的表述,正确的是()。
请你对H公司的股权价值进行评估。有关资料如下:(1)以2006年为预测基期,该年经修正的利润表和资产负债表如下:(2)以2007年和2008年为详细预测期,2007年的预计销售增长率为10%,2008年的预计销售增长率为5%,以后各年的预
注意事项1.本题本由给定资料与作答要求两部分构成。考试时限为180分钟。其中,阅读给定资料参考时限为50分钟,作答参考时限为130分钟。满分150分。2.监考人员宣布考试开始时,你才可以开始答题。3.请在题本、答题卡指定位置填
货币在执行某种职能时,可以是观念上的货币,而不必是现实的货币,这种情况属于
最新回复
(
0
)