首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Dim SW As Boolean Function func(X As Integer) As Integer If X<20 Then Y=X Else Y=20+X End If f
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Dim SW As Boolean Function func(X As Integer) As Integer If X<20 Then Y=X Else Y=20+X End If f
admin
2010-11-20
27
问题
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Dim SW As Boolean
Function func(X As Integer) As Integer
If X<20 Then
Y=X
Else
Y=20+X
End If
func=Y
End Function
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
SW=False
End Sub
Pdvate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
SW=True
End Sub
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("")
If SW Then
Print func(intNum)
End If
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果为
选项
A、输出0
B、输出25
C、输出45
D、无任何输出
答案
C
解析
本题考查的是鼠标事件,当按下鼠标左键(发生MouseDown时),SW的值为False,当松开鼠标左键(触发MouseUp时),SW的值为True。
转载请注明原文地址:https://jikaoti.com/ti/rTO0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请写出下面程序的运行结果:publicclassTestextendsTT{publicstaticvoidmain(Stringargs[]Testt=newTest("Tom.");
执行下面的程序段,输出结果为______。publicclassQ{publicstaticvoidmain(Stringargvr)){intanar[]=newint[5];System.out.println(anar[0
源程序文档化要求程序加注释。注释一般分为序言性和【】。
下列关于Applet的叙述中,错误的是()
下列代码段的执行结果为()。publicclassBitOperator{publicstaticvoidmain(Stringargs[]){inta=-67,b=11
编写和运行javaapplet程序与编写和运行javaapplication程序不同的步骤是()。
任何非空树中有且仅有—个结点没有前驱结点,该结点就是树的【】。
冒泡排序算法在最好的情况下的元素交换次数为【】。
数据库系统的三级模式分别为【】模式、内部级模式与外部级模式。
以下合法的VisualBasic标识符是
随机试题
下列国家中,实行单一制的是()
10个月患儿,女,发热咳嗽3天,半天来嗜睡,因抽搐昏迷4小时来急诊。T38.4℃,前囟膨隆。R44次/分,双肺散在细湿啰音,P140次/分,肝肋下2cm,白细胞:22×109/L,N75%。首先要给予的治疗是()
下列关于工作的时间参数的表述,正确的是()
______不是企业第一领导者的职责。
根据债券合约条款中是否规定在约定期限向债券持有人支付利息,可以将债券划分为()。
从进化的角度来看,最古老的感觉是()。
求函数f(x)=x3-3x的极值。
从所给四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性:
A、 B、 C、 D、 B
设f(u)连续可导,且,L为半圆周,起点为原点,终点为B(2,0),则=__________.
最新回复
(
0
)