运行下列程序: x=InputBox("input value of x") Select Case X CaseIs>0 y=y+1 CaseIs=0 y=x+2 C
相似题目
-
设有语句 X:=InputBox(‘输入数值’,’0’,’示例’) 程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中正确的是()
-
设有语句:x=InputBox$("输入数值","示例","0"),程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中不正确的是()
-
有如下程序: s=InputBox("input va lue of s:") SELECT CASE s CASE IS<6 f=s+1 CASE IS<5 f=s+2 CASE IS<4 f=s+3 CASE ELSE f=s+4 END SELECT PRINT s;f 运行时从键盘输入6,输出的结果是()
-
在VisualBasic中,InputBox函数的默认返回值类型为字符串,用InputBox函数输入数值型数据时,下列操作中可以有效防止程序出错的操作是()
-
Private Sub Command1_Click() a=Val(InputBox("请输入a的值=")) b=Val(InputBox("请输入a的值=")) x=a+b Ifa>b Then x=a-b End If Print x End Sub 若运行时从键盘输入a和b分别为3和4,则程序输出的结果为()
-
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox(请输入一个整数))fun(x)EndSubPrivateSubfun(xAsInteger)IfxMod2=0Thenfun(x/2)Printx;EndSub执行上述程序,输入8,结果是___________。
-
设有语句:x = InputBox(输入数值, 0, 示例)程序运行后,在键盘上输入10后按Enter键,下列描述中正确的是( )。
-
运行下面程序,如果输入80,则输出结果是_____。 Dim a As Integer, i As Integer a = InputBox(input a:) If a > 60 Then i = 1 If a > 70 Then i = 2 If a > 80 Then i = 3 If a > 90 Then i = 4 Print i=
-
下面程序段的运行结果是( )。char st[8]=\input
-
运行下面程序,如果输入80,则输出结果是_____。Dim a As Integer, i As Integera = InputBox(\input a:\)If a > 60 Then i = 1If a > 70 Then i = 2If a > 80 Then i = 3If a > 90 Then i = 4Print \i=
-
下列程序执行后,分别输入 54 , 21 , 38 ,打印结果是_______ Private Sub Command1_Click() X=InputBox(\X\) Y=InputBox(\Y\) Z=InputBox(\Z\) If X>y Then t=x : x=Y : Y=t If X>z Then t=x : x=z : z=t If y>z Then t=Y : Y=z : z=t Print x,Y,Z End Sub
-
有如下程序: Private Sub Command1_Click() x = InputBox(\input value\) Select Case x Case Is > 0 y = x + 3 Case Is = 0 y = x + 2 Case Else y = x + 1 End Select Print x; y End Sub 假设运行时从键盘上输入-8,输出结果是(______)。
-
某人编写了向随机文件中写一条记录的程序,代码如下:Type RTypeName As String * 10Tel As String * 20End TypePrivate Sub Command1_Click()Dim p As RTypep.Name=InputBox(\姓名\)p.Tel=InputBox(\电话号\)Open \Books.dat\ For Random As #1Put #1, , pClose #1End Sub该程序运行时有错误,修改的方法是________。
-
程序运行后,单击窗体,在输入对话框中依次输入25、26、35、45,输出结果为______。PrivateSubForm_Click()x=50Fori=1To4y=InputBox(\请输入一个整数\)y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub(5.0分)
-
从键盘输入的数据依次是1,2,3,4,5,6,7,8,9,10,下面程序运行结果是______。 s=0 For i=1 To 10 x=Val(InputBox(\请输入x的值:\)) If x/3=Int(x/3) or x/5=x\\5 Then s=s+x Next i Print \s=
-
若输入52,则下面程序的运行结果是 。main(){int a[8]={6,12,18,42,46,52,67,73};int low=0,mid,high=7,x;printf(\Input a x:\);scanf(\%d\,&x);while(low<=high){mid=(low+high)/2;if(x>a[mid]) low=mid+1;else if(x
-
在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() x = InputBox("Input") Select Case x Case 1, 3 Print "分支 1" Case Is > 4 Print "分支 2" Case Else Print "Else 分支" End Select End Sub 程序运行后,如果在输入对话框中输入2,则窗体上显示的是()。
-
Input语句是从文件中读取数据项,LineInput读取的是文件中的一行,而InputBox函数要求从键盘输入数据。()
-
在窗体上画一个文本框,然后编写如下事件过程: Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为
-
有如下程序 x=InputBox("input value of x") Select Case x CaseIs>0y=y+1 CaseIs=0y=x+2 Case E
-
运行下列事件过程,在输入框中输入“9”,按“确定”按钮,则窗体上显示的结果为()。 Private Sub Command1_Click() Dim x As Integer x = Val(InputBox("请输入一个整数!")) If x > 4 Then Print 2 * x - 1; If x > 5 Then Print 3 * x - 1; End Sub
-
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() x=O Do Until X=-1 a=InputBox("请输入a的值") a=Val(a) b=InputBox("请输入b的值") b=Val(b) x=lnputBox("请输入x的值") x=Val(x) a=a+b+x Loop Printa End Sub 程序运行后,单击命令按
-
下面程序运行时,若输入395,则输出结果是_______________。 Private Sub Command1_Click() Dim x% x = InputBox("请输入一个3位整数") Print x Mod 10, x 100, (x Mod 100) 10 End Sub
-
程序:a=input()b=input()print(a+b)在键盘输入5和8,运行结果是