首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序: Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入:")
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序: Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入:")
admin
2019-03-14
31
问题
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("请输入:")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X as Integer)As Integer
If X<10Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single)
Flag=True
End Sub
运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为( )。
选项
A、0
B、5
C、15
D、无任何输出
答案
B
解析
本题考查If语句和函数过程的分析。函数过程f的功能是如果X小于10则返回X,否则返回X+10。窗体的MouseUp事件是松开鼠标时触发的事件。程序运行后,单击窗体,则全局变量Flag的值为Tree,然后单击命令按钮,在输入对话框中输入5,执行If分支语句,调用f函数,由于5<10,因此输出X,即输出5。
转载请注明原文地址:https://kaotiyun.com/show/aZFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面属于字符类的实例是
下列叙述中错误的是
(1)在名称为Forml的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹
文本框Text1的KeyDown事件过程如下:PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger) ...EndSub其中参数KeyCode的值表示的是发生此事件时(
下列叙述中正确的是( )。
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a
下面是求最大公约数的函数的首部:Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是( )。
VisualBasic中的"启动对象"是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中,错误的是( )。
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是
随机试题
《我与地坛》中,用种种事物来类比四季,其整体象征意味是( )
从某神经的强度—时间曲线可了解
A.哌替啶B.芬太尼C.喷他佐辛D.吗啡E.纳洛酮禁用于分娩止痛的药物是
工程质量数据的抽样检验的优点包括( )。
根据《英国工程施工合同文本》(ECC),如果采用固定价格承包,则应该选择()。
建设工程施工合同应以()为合同履行地。
科学发展观最鲜明的精神实质是:①实事求是②与时俱进③求真务实④解放思想⑤和谐发展⑥以人为本
()是英国最著名的人文主义者,其教育思想主要体现在《乌托邦》中。
下面关于嵌入式系统逻辑组成的叙述中,错误的是()。
HarperLeecannotbecalled(i)______writerasshehaspublishedonlyonemajorwork;however,herwritinginthatnovelisso(i
最新回复
(
0
)