设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox(请输入一个整数))fun(x)EndSubPrivateSubfun(xAsInteger)IfxMod2=0Thenfun(x/2)Printx;EndSub执行上述程序,输入8,结果是___________。
相似题目
-
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下的事件过程: Private Sub Command1_Click() s = 0 For i = 0 To 15 X = 2 * i - 1 If X Mod 3 = 0 Then s = s + 1 Next i Label1.Caption = s End Sub 程序运行后,单击命令按钮,则标签中显示的内容为()
-
在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下的事件过程: https://assets.asklib.com/images/image2/2017110811322251127.jpg 程序执行后,单击命令按钮,在两个文本框中显示的值分别为()
-
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: https://assets.asklib.com/images/image2/2018080114161482449.jpg 程序运行后,单击命令按钮,则标签中显示的内容是()
-
窗体上有一个名称为Commad1的命令按钮,其事件过程如下:Private Sub Command1_Click()x = VisualBasicProgramminga = Right(x, 11)b = Mid(x, 7, 5)c = MsgBox(a, , b)End Sub运行程序后单击命令按钮。以下叙述中错误的是(2008年4月)
-
窗体上有文本框Text1、Text2和命令按钮Command1,编写如下事件过程:PrivateSubCommand1_Click()Ifval(Text1.Text)<=3thenText2.Text=“h”ElseText2.Text=“i”EndIfEndSub当用户在文本框Text1中输入6,并单击Command1,则文本框Text2中显示()。
-
假定有如下的Sub过程:Sub fun(x As Single, y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim a As SingleDim b As Singlea = 6b = 4fun a, bPrint a, bEnd Sub程序运行后,单击命令按钮,输出结果为( )。
-
在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:Private Sub Command1_Click()Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后,单击命令按钮,消息框的输出结果是_____。
-
窗体上有一个命令按钮Command1,编写如下事件过程:PrivateSubCommand1_Click()Fori=1to4Forj=4to8sum=sum+1NextjNextiPrintsumEndSub运行时,单击按钮,输出结果是()。
-
设有如下通用过程:PublicFunctionf(xAsInteger)DimyAsIntegerx=30y=8f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程PrivateSubCommand1_Click()StaticxAsIntegerx=15y=6y=f(x)Printx;yEndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是_____。
-
在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程:Private Sub Command1
-
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Next i Print Dec End Sub 程序功能为:单击命令按钮,将产生一个输入对话框,此时如果在对话框中输入一个二进制数,并单击“确定”按钮,则把该二进制数转换为等值的十进制数。这个程序不完整,应在横线处填入的内容是
-
窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1_Click()
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click()
-
设有如下窗体单击事件过程:Private Sub Form_Click()a=1For i=1 To 3 Select Case i Case 1a=a+1
-
在窗体上添加一个命令按钮,名为Command1,其单击事件中有如下程序段,则事件过程执行后,文本框中输出()。 For i= 1 To 4 For j = 1 To 3 x=3 For k =1 To 2 x=x+3 Next k Next j Next i TextText = Str(x)
-
设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下: Private Sub Command1 Click() Static x A S Integer x=f(x+5) Cls Print X End Sub Private Function f(x As Integer)As Integer f=x+x End Function 连续单击命令按钮3次,第3次单击命令按钮后,窗体显示的计算结果是()。
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
-
已知一窗体上命令按钮Command1的Click事件代码如下,则单击Command1后,文本显示的文字为()。
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivatSuCommand1_Click()。程序运行时,单击Command1,则在窗体上输出的结果是()
-
窗体中有命令按钮Command1和文本框Text1,事件过程如下:运行程序,单击命令按钮,输入19,在Text1中会显示“19是奇数”。那么在程序的括号内应填写()
-
窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:运行程序后单击命令按钮Command1,窗体上显示的是()
-
在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程: Private Sub Command1_Click() Text1.Text="VB Programming" Text2.Text=Text1.Text Text1.Text="ABCD" End Sub 程序运行后,单击命令按钮,两个文本框中显示的内容分别为 (8) 和 (9) 。
-
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() Text1.Text = InputBox("请输入数据1") Text2.Text = InputBox("请输入数据2) End Sub 程序运行后,如果单击命令按钮,将先后显示两个输入对话框,在两个输入对话框中分
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() t=0:m=1:Sum=0 Do t=t+ (8) Sum=Sum+ (9) m=m+2 Loop While (10) Print Sum End Sub 该程序的功能是,单击命令按钮,则计算并输出以下表达式的值: 1+(1+3)+(1+3+5)+…+(1+3+5+
推荐题目
- 化学监督指的是()
- 在单线隧道内疏散旅客时,如单线隧道内有横通道、应急疏散通道,应迅速开启临近隧道横通道、应急疏散通道一侧的车门,即()。
- 什么是军事运筹学?
- 某患者,49岁,月经紊乱8月余。遵医嘱连续3个月测得基础体温呈不规则水平线,无高温相,说明其卵巢()
- 使用降烯烃助剂后,液化气中高价值的碳二、碳四烯烃产率()。
- 化工检修方案主要内容有()。
- 高压甲铵泵在启动前其油系统已运行,而曲轴箱的()必须合格。
- 与个人独资企业和合伙企业相比,下列不属于公司制企业特点的是()。
- 直接向承担疫情防治任务的医院捐赠应对疫情物品不能企业所得税或个人所得税税前全额扣除。()
- 功能性消化不良的描述错误的是()