首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: Private Sub Form_Click() Dim x As Integer, p As Integer x = InputBox("请输入一个整数") p = fee(x) Print p End S
设有如下程序: Private Sub Form_Click() Dim x As Integer, p As Integer x = InputBox("请输入一个整数") p = fee(x) Print p End S
admin
2020-02-27
27
问题
设有如下程序:
Private Sub Form_Click()
Dim x As Integer, p As Integer
x = InputBox("请输入一个整数")
p = fee(x)
Print p
End Sub
Function fee(a As Integer)
If a < 20 Then
y = a
Else
y = 20 + a
End If
fee = y
End Function
运行程序,单击窗体,在输入对话框中输入20,单击"确定"按钮,输出结果为
选项
A、10
B、20
C、30
D、40
答案
D
解析
程序主要是从输入对话框中得到一整数x,并将x作为参数,带入fee(x)函数,返回p值,并输出。其中InputBox是Visual Basic函数,功能是弹出一个对话框,在其中显示提示,等待用户输入文字并按下按钮,然后返回用户输入的文字,将返回用户输入的数字存储在x中;fee(x)为题目的一个函数。Function fee(a As Integer)中参数为整数a,当a< 20时,返回值为a,否则返回值为20+a。故可知当输入对话框中输入20时,x=20,执行p=fee(x)=20+20=40。故选项D正确。
转载请注明原文地址:https://kaotiyun.com/show/YUTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
注意:下面出现的“考生文件夹”均为%IJSER%。在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
在考生文件夹下有一个工程文件sjt5.vbpc,其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。程序功能如下:(1)考生文件夹下in5.
(1)在考生文件夹下有工程文件sjt3.vbp。程序运行时的窗体如图2.185(a)所示。输入商品名称后,选中一种付款方式,则“成交”按钮变为可用,选择一种或多种“服务”后,单击“成交”按钮,则把相应信息显示在下面的图片框中,如图2.185(b)所示。若不
在标准模块中用Public关键字定义的变量,其作用域为()。
在窗体上画2个文本框(名称分别为Text1和Text2),一个命令按钮(名称为Command1)。并定义以下记录类型和变量:PrivateTypeTeacherIDAsIntegerNameAsString*10En
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
以下关于局部变量的叙述中错误的是()。
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
深度为7的二叉树共有127个结点,则下列说法中错误的是()。
下列说法中错误的是()。
随机试题
数据库的创建是数据库系统的核心。()
设函数y=lnysinx,则dy=____________.
急性乳腺炎最常见的病因是
取葡萄糖4.0g,加水30ml溶解后,加醋酸盐缓冲溶液(pH3.5)2.6ml,依法检查重金属(《中国药典》),含重金属不得超过百万分之五,问应取标准铅溶液多少ml(每1ml相当于Pb10μg/ml)
A.手背静脉B.肘正中静脉C.颈静脉D.左手无名指内侧E.耳垂成人静脉采血推荐的采血部位是()
编制公路工程施工组织设计时,确定施工顺序的原则包括( )。
下列有关招投标签订合同的说明,正确的是( )。
全程跟单是指“跟”到货款到账、合同履行完毕为止。()
在OSI的7层协议中,完成数据格式变换、数据加密和解密、数据压缩与恢复功能的是()。
Lastweek,onBlackFriday,theTrumpadministrationtriedtoburyacongressionallymandatedreportontheconsequencesofclim
最新回复
(
0
)