首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有两个水平滚动条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
60
问题
窗体上有两个水平滚动条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全国计算机二级
相关试题推荐
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于
设有下面的类型和变量定义,PrivateTypeRecnameAsStringscore(5)AsIntegerEndTypeDimstudentAsRec则下面正确的语句是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Dimx1AsInteger,x2AsInteger,x3AsInteger
阅读程序:OptionBase1PrivateSubFormClick()DimArr(3,3)AsIntegerFori=1To3Fori=1To3Ifj=iOrj=3一i+1ThenArr(i,j)=
设有如下程序:PrivateSUbFormClick().num=InputBox(“请输入一个实数”):P:InStr(num,“.”)Ifp>0ThenPrintMid(num,P+1)Prim“END”EndIf运行程序单击窗
确定图片框Picturel在窗体上位置的属性是
为了使标签Labell透明且不具有边框,以下正确的属性设置是
为了使文本框显示滚动条,除要设置ScrollBars外,还必须设置的属性是
以下关于窗体的叙述中错误的是
产生100以内(不含100)2位随机整数的VisualBasic表达式是
随机试题
基金的销售宣传内容必须含有明确的风险提示和警示性文字,提醒投资人注意投资有风险,应仔细阅读基金的销售文件。( )
简述八种流行的艺术定义。
房地产公司甲与房地产经纪公司A所签订的委托合同的形式为()。若李某在抵押合同有效期内的房产转让有效,则正确的说法有()。
在工程实施过程中,单位工程施工组织设计通常按()划分阶段进行检查。
账务处理系统中,每张凭证的借贷方数据的平衡关系是由()校对的。
宪政的基本要义、核心内容和根本目的是()。
求下列微分方程的通解:(1)y〞=xex;(2)(1+x2)y〞=1;(3)y〞+yˊ=x2;(4)y〞=1+yˊ2;(5)x2y〞=yˊ2+2xyˊ;(6)(1-y)y〞+2yˊ2=0;(7);(8)y〞+yˊ2=
设n0为哈夫曼树的叶子结点数目,则该哈夫曼树共有(51)个结点。
似没“图书”表中有C型字段“图书编号”,要求将图书编号以字母A开头的图书记录全部打上删除标记,可以使用SQL命令()。
下面代码的输出结果是a=’’Python’’b=’’ASuperlanguage’’print(’’{:一>10}:{:一
最新回复
(
0
)