首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件vbsj3.vbp,包含了所有控件和部分程序,如图1-239所示。 要求:①利用属性窗口设置适当的属性,使txtInput、txtResult 中数据右对齐;②请编写适当的程序完成以下功能:在txtInput 中输
(1)在考生目录下有一个工程文件vbsj3.vbp,包含了所有控件和部分程序,如图1-239所示。 要求:①利用属性窗口设置适当的属性,使txtInput、txtResult 中数据右对齐;②请编写适当的程序完成以下功能:在txtInput 中输
admin
2019-06-11
46
问题
(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://kaotiyun.com/show/3xUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序代码:PrivateConstNUMAsInteger=10PrivateSubCommandl_Click()DimaAsInteger,bA
在设计阶段,通过属性窗口为命令按钮的Picture属性装入一个图形,但没有显示,其原因是()。
设有如下程序段:()。a$=”BeijingShanghai”b$=Mid(a$,InStr(a$,”g”)+1)执行该程序段后,变量b$的值为
在名称为Form1,标题为“组合框”的窗体上画1个名称为Cornbo1的组合框,利用属性窗口设置适当属性使其在程序刚开始运行时的界面如图所示。注意;存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjt1.frm。
窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shapel的圆靠在左边的Linel直线上(见图);另有1个名称为Timerl的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停
设有语句:Open”c:\Test.Dat”ForOutputAs#1则以下叙述中错误的是()。
(1)在名称为Form1、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。组合框中的文本内容为空,表项内容有“乒乓球”、“羽毛球”和“网球”3项。运行后的窗体如图所示。注意:存盘时必须存放在考生文件夹下,工程文
下面有关标准模块的叙述中,错误的是()。
下列关于文件的叙述中错误的是()。
随机试题
批办是指()
下列哪项最不可能引起溃疡性结肠炎()(1996年)
基坑开挖完毕后,必须参加现场验槽并签署意见的单位有()。[2013年真题]
下列经济活动中涉及的垄断行为,属于《反垄断法》的调整范围的有()。
【2015重庆江津】课程标准与教学大纲的显著差异是课程标准确立了()。
对于素质教育的目的来说,做人是成才的基础,成才是做人的发展。()
做好2014年的经济工作,必须继续实施积极的财政政策和稳健的货币政策,下列选项中属于积极的财政政策的是:①发行国债②降低银行存款利率③征收利息税,调节个人所得税④适度增加货币供应量,缓解通货紧缩⑤积极拓展消费信贷,实行消费补贴⑥提高城镇居民的收
关于消费者权益保护法说法不正确的是()。
Iwasreallyanxiousaboutyou.You______homewithoutaword.
泊珍到偏远小镇的育幼院把生在那里养到1岁的孩子接回来。但泊珍看他第一眼,仿似一声雷劈头而来。令她晕头胀脑,这1岁的孩子脸型长得如此熟悉,她心里的第一道声音是,不能带回去!痛苦纠聚心中,眉心发烫发热,胸口郁闷难展,胃里一股气冲喉而上。院长说这孩子发
最新回复
(
0
)