首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,一个名称为Textl的文本框。编写如下程序: Private Sub Commandl_Click() Dim x As Integer x=Val(InputBox(”输入数据”))
窗体上有一个名称为Commandl的命令按钮,一个名称为Textl的文本框。编写如下程序: Private Sub Commandl_Click() Dim x As Integer x=Val(InputBox(”输入数据”))
admin
2019-04-29
63
问题
窗体上有一个名称为Commandl的命令按钮,一个名称为Textl的文本框。编写如下程序:
Private Sub Commandl_Click()
Dim x As Integer
x=Val(InputBox(”输入数据”))
Text1=Str(x+fun(x)+fun(x))
End Sub
Private Function fun(ByRef n As Integer)
Ifn Mod 3=0 Then
n=n+n
Else
n=n*n
End If
fun=n
End Function
对于上述程序,以下叙述中错误的是
选项
A、语句fun=n有错,因为n是整型,fun没有定义类型
B、运行程序,输入值为5时,文本框中显示655
C、运行程序,输入值为6时,文本框中显示42
D、ByRef表示参数按址传递
答案
A
解析
本题中的函数fun的功能是判断参数是否能被3整除,若可以整除则将n翻倍,否则将n变为n的平方返回。在函数头部没有声明函数的返回值类型,默认为变体型,可以接受任何数据类型的赋值;ByRef表示参数按址传递,对形参的改变将会影响实参;当输入5的时候输出5+25+625=655;当输入6的时候输出6+12+24=42。
转载请注明原文地址:https://kaotiyun.com/show/DGUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩形的左
考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮:请画一个标题为“各行平均数的最大值为”的标签Label2,再画一个初始内容为空的文本框Text2,如图3-97所示。程序功
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及名称为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求:
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签,并设置适当属性以满足以下要求:①标签的内容为“计算机等级考试”;②标签可根据显示
在考生文件夹下有一个工程文件sjt4.vbp,含有Form1和Form2两个窗体,Form1为启动窗体,窗体上的控件如图3-146(a)所示。程序运行后,在Form1窗体的文本框中输入有关信息(“密码”框中显示“*”字符),然后单击“提交”按钮则弹出“确认
在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(
下面表达式的值不为5的是()。
以下说法中正确的是()。
以下说法中正确的是()。
随机试题
下列选项中,符合针刺得气表现的有
患者,女,16岁,症见身热恶寒,热轻寒重,无汗头痛,四肢不温,倦怠嗜卧,面色苍白,舌淡苔白,脉浮无力者。治宜选用
确定某暴露因素与某疾病联系的强度用
患者,女,因肺癌住院化疗,不妥的是
单位(子单位)工程所含分部工程有关( )的检测资料应完整。
119.假设在“营改增”试点地区,以下情形不需要缴纳增值税的是()。
国际储备
一个随机抽取的顾客群样本回答了一项市场调查中的问题。6个月之后,另一个随机抽取的顾客群样本回答了相同的问题,只是问题排列顺序调换了一下。两组样本对许多单个问题的回答方式有很大不同,这表明有时某个问题只因它前面的问题就会导致不同的回答。以上论述依据下
下面4种I/O接口标准中,采用并行方式传送数据的是()
窗体上有一个名称为Command1的命令按钮,并有如下程序代码:OptionBase1PrivateSubCommand1_Click()Dima%(3,3)Fori=1To3Forj=
最新回复
(
0
)