首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为"计算"的命令按钮Command1,并编写了以下程序: Private Sub Command1_Click() Call calc(HV.Value,HT.Value) End Su
窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为"计算"的命令按钮Command1,并编写了以下程序: Private Sub Command1_Click() Call calc(HV.Value,HT.Value) End Su
admin
2020-07-22
38
问题
窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为"计算"的命令按钮Command1,并编写了以下程序:
Private Sub Command1_Click()
Call calc(HV.Value,HT.Value)
End Sub
Public Sub calc(x As Integer,y As Integer)
Text1.Text=x*y
End Sub
运行程序,单击"计算"按钮,可根据速度与时间计算出距离,并显示计算结果。
对以上程序,下列叙述中正确的是( )。
选项
A、过程调用语句不对,应为calc(HV, HT)
B、过程定义语句的形式参数不对,应为Sub calc(x As Control, y As Control)
C、计算结果在文本框中显示出来
D、程序不能正确运行
答案
C
解析
访问滚动条控件的值,可以直接使用控件的名称,也可以在名称后面指明Value属性。滚动条位置是用数值来表示的,因此定义Calc过程时参数应该定义为Integer类型。程序中,Text1.Text=x*y语句说明计算的结果在文本框中显示出来。
转载请注明原文地址:https://kaotiyun.com/show/sSHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有窗体的FormMouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If
窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintText1.Text;EndSub运行程序,并在
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是
设有下面程序代码:PrivateSubCommand1_Click()DimaAsVarianta=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)m=a(0)n=mFork=1T
下列叙述中正确的是()。
要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MuhiSelect属性设置为()。
下列合法的变量名是
表达式12/2\4的值是
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击”合并数组”按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击”找最大值”按钮时,调用find过程分别找
程序流程图中带有箭头的线段表示的是()。
随机试题
Inordertohaveenoughmoneytorunthebusiness,hesoldhisnewly-boughthouseatauctionevenatasubstantialloss.
严重肝、肾功能不良患者,应用糖皮质激素全身治疗时应选用
A.急性胆囊炎B.急性阑尾炎C.胃十二指肠溃疡穿孔D.急性胰腺炎E.右输尿管结石
图6~10中,《中国药典》规定,以芦丁为质量控制成分之一的是
根据《消费税暂行条例》规定,啤酒按照从价定率和从量定额复合计税的办法计算消费税。()
如果现在投资5000元,年收益率为12%。大约()年这笔投资将达到10000元。
()不属于海南省的“吃”的四大特点。
蒲松龄故居位于()。
根据下列材料回答问题。2012年某市开展了市民阅读情况调查。调查采取随机抽样方式,访问了本市12周岁以上的1000名市民。调查显示,多数受访者保持每天阅读的良好习惯。其中,阅读时间在1—2小时的为44.8%,2—3小时的为111.6%,3
统一的安全电子政务平台包括统一的可信Web服务平台、统一的Web门户平台与统一的()。
最新回复
(
0
)