首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Function Fun(x) y=0 If x<10Then y=x Else y=y+10 End If Fun=y End Function Private Sub Command1_
在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Function Fun(x) y=0 If x<10Then y=x Else y=y+10 End If Fun=y End Function Private Sub Command1_
admin
2019-04-29
84
问题
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:
Function Fun(x)
y=0
If x<10Then
y=x
Else
y=y+10
End If
Fun=y
End Function
Private Sub Command1_Click()
n=InputBox("请输入一个数"):n=Val(n)
P=Fun(n):PrintP
End Sub
运行程序,单击命令按钮,将显示输入对话框,如果在对话框中输入100,并单击“确定”按钮,则输出结果为
选项
A、10
B、100
C、110
D、出错信息
答案
A
解析
本题是一个简单的函数调用,在函数中会判断参数x的值,根据x的值不同执行If语句的不同分支。由于实际参数为100不满足x<10,因此函数返回值为10。
转载请注明原文地址:https://kaotiyun.com/show/2GUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条,其刻度范围为1~100;再画一个名称为Text1的文本框,初始内容为1。程序开始运行时,焦点在滚动条上。请
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签,并设置适当属性以满足以下要求:①标签的内容为“计算机等级考试”;②标签可根据显示
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图3-25所示。运行程序时,从数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,并统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。
考生文件夹下的工程文件sjt3.vbp中有一个菜单、两个标签和两个文本框。程序运行时,用鼠标右键单击窗体会弹出一个弹出式菜单(如图3-160所示)。当选中“计算100以内自然数之和”菜单项时,将计算100以内自然数之和并放入Text1中;当选中“计算7!”
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组,含三个命令按钮,它们的Index属性分别为0、1、2,标题依次为“是”、“否”、“取消”,每个按钮的高
下列关于线性表的叙述中,不正确的是()。
在窗体上有两个文本框:Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowText1.Text=“”:Text2.Text=“”:Yext2.SetFocusEnd
大学中每个年级有多个班,每个班有多名学生,则实体班级和实体学生之间的联系是()。
对于命令按钮,下列说法中正确的是()。
随机试题
计算固定资产的折旧额可采用的方法有()
ParrotsarebecomingoneofthemostpopularpetsinAmericaforgoodreasons.Theparrotisanextraordinarybirdthatcanbet
客户品质的基础分析包括()。
甲公司为增值税一般纳税人,适用的增值税税率为17%,2016年6月25日收到通知.乙公司5月10从甲公司所购B商品不符合合同规定的质量标准,要求甲公司在价格上给予10%的销售折让。该批商品总售价为600万元,增值税税额为102万元,总成本为500万元,
上海市市标中的船只名称和代表的时代是()。
“吾爱吾师,吾更爱真理”中的“吾”和“吾师”分别指谁?()
下面哪一种办法可以消除以太网阻塞?(1)启用全双工以太网。(2)在以太网络中冲突难以彻底避免。(3)启用半双工以太网。(4)将共享Hub全部替换成以太网交换机。(5)创建VLAN。
Wheredoesthedialoguetakeplace?
Experiencetwogreattheme(主题)parksinonegreatscenicspots—Disney’sCaliforniaAdventureparkandrightnextdoorDisneyland
DearMr.Suzuki,ThegoodswereceivedonJuly15werefoundnottomatchourorder.ThegoodsweorderedwereItemNo.2345
最新回复
(
0
)