网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

执行x=InputBox("请输入半径",0,"求面积")在输入框中输入3后回车,则下列叙述正确的是()。

  • A、x的值是数值3
  • B、x的值是字符"3"
  • C、0是默认值
  • D、对话框标题是"求面积"

参考答案

更多 “执行x=InputBox("请输入半径",0,"求面积")在输入框中输入3后回车,则下列叙述正确的是()。A、x的值是数值3B、x的值是字符"3"C、0是默认值D、对话框标题是"求面积"” 相关考题
考题 请输入B的值在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox("请输入A的值")a=Val(a)b=InputBox("请输入B的值")b=Val(b)x=InputBox("请输入x的值")x=Val(x)() A.2B.3C.15D.14

考题 在E盘当前目录文件夹下建立一个名为"Student.txt"的顺序文件,要求用InputBox函数输入5个学生的姓名(StuName) 、年级(StuGrade) 和年龄(StuAge) 。Private Sub Form_Click()【12】For i=1 To 5StuName=InputBox("请输入姓名")StuGrade=InputBox("请输入年级号")StuAge=InputBox("请输入年龄")【13】Next i【14】End Sub

考题 执行x$=InputBox("请输入x的值") 时,在弹出的对话框中输入123,在列表框List1选中1个列表项(数据为456) ,使有的值使123456的语句是( )。A.y=x$+List1.List(0)B.y=x$+List1.List(1)C.y=Val(x$) +Val(List1.List(0) )D.y=Val(x$) Val(List1.List(1) )

考题 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x=0Do Until x=-1a=InputBox("请输入第一个数字a的值")a=Val(A)b=InputBox("请输入第二个数字b的值")b=Val(b)x=InputBox("请输入第三个数字x的值")x=Val(x)a=a + b + xLoopPrint aEnd Sub在程序运行后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出结果为 【9】 。

考题 下列程序执行时,从键盘上依次输入123和234,则程序的输出结果是【 】。Dim a,b As Integera=InputBox("请输入第一个整数")b=InputBox("请输入第二整数")Print a+b

考题 下列程序执行时,从键盘上依次输入123和234,则程序的输出结果是【 】。a=InputBox("请输入第一个整数")b=InputBox("请输入第二整数")Print a+b

考题 给定年份,下列程序用来判断该年是否是闰年,请填空。Sub YN()Dim x As Integerx=InputBox("请输入年号")If (x Mod 4=0 【10】 x Mod 100 0) 【11】 (x Mod 400=0) ThenPrint "是闰年"ElsePrint "不是闰年,是普通年份"End IfEnd Sub

考题 执行x = InputBox("请输入半径",0,"求面积") ,在输入框中输入3后回车,则下列叙述正确的是( )。A、 x的值是数值3B、 x的值是字符"3"C、 0是默认值D、 对话框标题是"求面积"

考题 下面程序运行结果是( )。 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End SubA._35_2510B.25102510C._35_35_D.2510_35_

考题 如果执行一个语句后弹出如图所示的窗口,则这个语句是( )。A.InputBox(”输入框”,”请输入VB数据”)B.x=InputBox(”输入框”,”请输入VB数据”)C.InputBox(”请输入VB数据”,”输入框”)D.x=InputBox(”请输入VB数据”,”输入框”)

考题 (14)窗体中有一个命令按钮,然后编写下列事件过程: Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox("请输入第一个数字a的值") a=Val(a) b=InputBox("请输入第二个数字b的值") b=Val(b) x=InputBox("请输入第二个数字x的值") x=Val(x) a=a+b+x Loop Print a End Sub 在程序运行后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出的结果是。

考题 以下程序的功能是,从键盘上输入若干学生的成绩,统计并输出最高分数和最低分数,当输入负数时结束输入,请填空。Private Sub Command1_C1iek()Dim x As SingleDim amax As Single,amln As Singlex=InputBox("请输入分数")amax=xamin=xDo While【 】If x>amax Thenamax=xEnd IfIf【 】Thenamin=xEnd Ifx=InputBox("请输入分数")LoopPrint amax,aminEnd Sub

考题 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()X=0Do While X<>-1X=Val(InputBox("请输入数据X:"))Y=Val(InputBox("请输入数据Y:"))If X*Y<X+Y Then Print X,YLoopEnd Sub程序运行后,依次输入7,2,-3,8,-5,-10,18,-1,-1,则输出结果是【 】

考题 单击命令按钮,并在对话框内输入6,下列程序段的执行结果为______。 Private Sub Command1_Click() Dim n As Integer n=InputBox ("请输入日期") Select Case n Case Is <= 0 n=InputBox("错误!请重新输入日期!") Case Is>7 n=InputBox("错误!请重新输入日期!") Case 1 To 3 Print "江苏" Case 4 To 5 Print "浙江" Case 6 To 7 Print "双休日" End Select End SubA.错误!请重新输入日期!B.江苏C.浙江D.双休日

考题 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_ Click() x=0 Do Until x=-1 a=InputBox(“请输入A的值”) a=Val(a)b=InputBox(“请输入B的值”) b=Val(b)x=InputBox(“请输入x的值”) x=Val(x) a=a+ b+ x Loop Print aEnd Sub程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为 ______。A.2B.3C.14D.15

考题 下列程序执行后,分别输入5,10,则输出的结果是______ 。 a= InputBox (“请输入数据”“a”“的值”) b= InputBox (“请输入数据”“b”&“的值”) c= a + b +“5”Print cA.15 5B.5105C.20D.25

考题 下面的程序执行时,可以从键盘输入一个正整数,然后把该数的每位数字按逆序输出。例如:输入7685,则输出5 8 6 7;输人1000,则输出0 0 0 1。请填空。 Private Sub Command1_Click Dim x As Integer X=InputBox(“请输入一个正整数”) While x 【11】 Print x Mod 10; x=x\10 Wend Print 【12】 End Sub

考题 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x=0 Do Until x=-1 a=InputDox("请输入a的值") a=Val(A)b=InputBox("请输入b的值") b=Val(B)x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End sub 程序运行后,单击命令按钮,依次在输入对话框中输入10、8、9、2、11、-1,则输出结果为 ______。A.15B.14C.13D.12

考题 如果执行一个语句后弹出如图所示的窗口,则这个语句是( )。A.InputBox(输人框,请输入VB数据)B.x=InputBox(输入框,请输入VB数据)C.InputBox(请输入VB数据,输入框)D.x=InputBox(清输入VB数据,输入框)

考题 下列程序的输入值分别为100,10则执行结果为非作歹______ 。 m=Val (inputbox (“请输入数学1”) ) n=Val (inputbox (“请输入数学2”) ) If n*m=0 Then MsgBox “两数能不能为0” Exit Sub If m<n Then t=m: m=n: n=t End If End If DO R=m Mod n m=n n=f Loop While r<>0 Print mA. 10B.100C.50D.250

考题 在窗体上添加一个命令按纽,名为COMgAND1,事件过程如下: Private Sub CQmmand1_Click() x =0 Do Until c = -1 a=InputBox(“请输入a的值”) a=Val (A) b=InputBox(“请输入b的值”) b=Val(B) c=InputBox(“请输入c的值”) c=Val (C) a=a+b+c Loop Print a End Sub程序运行后,单击命令按纽,依次在输入对话框中输入5,4,3,2,1,-1后,输出的结果是______ 。A.2B.3C.4D.5

考题 可以实现从键盘输入一个作为双精度变量a的值的语句是A.a=InputBox( )B.a=InputBox(“请输入一个值”)C.a=Val(InputBox(“请输入一个值”))D.a=Val(InputBox( ) )

考题 语句x=inputbox("请输入数据"),输入12345,则x的值为()类型的数据。

考题 执行Len(InputBox("请输入编号:"))在输入框中输入"神州1号"后回车结果为()。A、4B、7C、0D、出错

考题 单选题执行x=InputBox("请输入半径",0,"求面积")在输入框中输入3后回车,则下列叙述正确的是()。A x的值是数值3B x的值是字符3C 0是默认值D 对话框标题是求面积

考题 单选题执行Len(InputBox("请输入编号:"))在输入框中输入"神州1号"后回车结果为()。A 4B 7C 0D 出错

考题 填空题语句x=inputbox("请输入数据"),输入12345,则x的值为()类型的数据。

考题 单选题如果执行一个语句弹出如右图所示的窗口,则这个语句是(  )。A InputBox(″输入框″,″请输入VB数据″)B x=InputBox(″输入框″,″请输入VB数据″)C InputBox(″请输入VB数据″,″输入框″)D x=InputBox(″请输入VB数据″,″输入框″)