（ 28 ）下面程序在调试时出现了死循环Private Sub Command1_Click （）n=InputBox （ “ 请输入一个整数 ” ）DoIf n Mod 2=0 Thenn=n+1Elsen=n+2Else IfLoop Until n=1000End Sub下面关于死循环的叙述中正确的是（ ）A ）只有输入的 n 是偶数时才会出现死循环，否则不会B ）只有输入的 n 是奇数时才会出现死循环，否则不会C ）只有输入的 n 是大于 1000 的整数时才会出现死循环，否则不会D ）输入任何整

题目

（ 28 ）下面程序在调试时出现了死循环

Private Sub Command1_Click （）

n=InputBox （ “ 请输入一个整数 ” ）

Do

If n Mod 2=0 Then

n=n+1

Else

n=n+2

Else If

Loop Until n=1000

End Sub

下面关于死循环的叙述中正确的是（ ）

A ）只有输入的 n 是偶数时才会出现死循环，否则不会

B ）只有输入的 n 是奇数时才会出现死循环，否则不会

C ）只有输入的 n 是大于 1000 的整数时才会出现死循环，否则不会

D ）输入任何整数都会出现死循环

相似考题

1.下面程序在调试时出现了死循环Private Sub Command1_Click（）n=InputBox（“请输入一个整数”）DoIf n Mod 2=0 Thenn=n+1Elsen=n+2Else IfLoop Until n=1000End Sub下面关于死循环的叙述中正确的是（ ）。A．只有输入的n是偶数时才会出现死循环，否则不会B．只有输入的n是奇数时才会出现死循环，否则不会C．只有输入的n是大于1000的整数时才会出现死循环，否则不会D．输入任何整数都会出现死循环

2.下面程序在调试时出现了死循环 Private Sub Command1_Click() n=InputBox("请输入—个整数") Do Ifn Mod 2=0 Then n=n+1 Else n=n+2 End If Loop Until n=1000 End Sub 下面关于死循环的叙述中正确的是______。A．只有输入的n是偶数时才会出现死循环，否则不会B．只有输入的n是奇数时才会出现死循环，否则不会C．只有输入的n是大于1000的整数时才会出现死循环，否则不会D．输入任伺整数都会出现死循环

3.下面程序运行结果是( )。 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_

4.假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String*10TelNuin As String*20End Type要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。Private Sub Command1_Clickk()DimB As Booksopen"c:\person.txt"For output As 1B.Name=InputBox("请输入姓名")B.TelNum=InputBox("请输入电话号码")write 1，______close 1End Sub

参考答案和解析
正确答案：D
更多“( 28 )下面程序在调试时出现了死循环Private Sub Command1_Click ()n=InputBox ( “ 请输入一个整 ”相关问题

  • 第1题：

    运行下面的程序，单击命令按钮后，当输入分别为123和456时，输出结果为 ______。 Private Sub Command1_Click() a=InputBox("请输入一个数字:") b=Val(InputBox("请再输入一个数字：")) PrInt a+b End Sub

    A．123

    B．456

    C．123123

    D．579


    正确答案：D
    解析：InputBox函数的默认返回值是字符类型。当输入“123”后，a的值是字符串“123”。当在第二个弹出的对话框内输入456后，经过Val函数的转换，b值为数值456，按照出具类型的自动结合原则，a自动转换为数值型数据后与b进行相加，最终输出结果为579。

  • 第2题：

    阅读下面的程序： n1=InputBox(“请输入第一个数：”) n2=InputBox(“请输入第二个数：”) Print n1+n2 当输入的数分别为111和222时，程序输出______。

    A．111222

    B．222

    C．333

    D．程序出错


    正确答案：A
    解析：由于InputBox函数的默认返回值是字符串，因此n1和n2的值分别为111和222，那么n1+n2就将两个字符串连接为111222。

  • 第3题：

    执行以下程序段，如果在对话框中输入8，输出结果是"Hello"的是______。

    A．n = InputBox("请输入一个数") Select Case n Case 7 To 1 Print "Hello" End Select

    B．n = InputBox("请输入一个数") Select Case n Case Is＞1, Is ＜ 6 Print "Hello" End Select

    C．n = InputBox("请输入一个数") Select Case n Case Is ＞ 5, 1, 3 To 10 Print "Hello" End Select

    D．n=InputBox("请输入一个数") Select Case n Case 1, 5, Is ＞ 9 Print "Hello" End Select


    正确答案：C

  • 第4题：

    执行以下程序段，并输入1.23，则程序的输出结果应是【 】。

    N=Str(InputBox(“请输入一个实数：”))

    p=IiaStr(N，".")

    Print Mid(N，p)


    正确答案：.23
    .23 解析：InStr函数、Mid函数
    InStr([首字符位置]字符串1，字符串2[，n])用来在“字符串1”中查找“字符串2”，如果找到，则返回“字符串2”的第一个字符在“字符串广中的位置。
    如果带有参数“首字符位置”，则从该位置开始查找，否则从“字符串1”的起始位置查找。可选参数“n”用来指定字符串比较方式，可以取0、1或2。如为0，则进行在比较时区分大小写：如为1，则在比较时忽略大小写；如为2，则基于数据库中包含的信息进行比较。
    Mid(字符串，p，n)函数用来在“字符串”中从第p个字符开始，向后截取n个字符。如果省略参数n，则从第p个字符开始，向后截取到字符串的末尾。
    跟踪程序：
    n="1.23"
    p=InStr(n,".")=InStr("1.23"，".")
    p=2
    所以，Mid("1.23",2)所截取的字符是：“.23”。
    最终的输出结果是：.23。

  • 第5题：

    阅读下面的程序，当输入分别为111和222时，程序输出为 ______。 n1=InputBox(”请输入第一个数：”) n2=Val(1nputBox("请输入第二个数：")) Print n1+n2

    A．111222

    B．222

    C．333

    D．程序出错


    正确答案：C
    解析：由于InputBox函数的默认返回值是字符串，因此n1的值为111，n2经过函数Val转换后成为数值型，其值为222。按照Visual Basic自动结合的原则，n1会先自动转换为数值型再和n2进行运算，最终输出结果为333。
      为了提高程序的可读性，最好对每一个变量都进行定义。故在程序的最前面加上：
      Dim n1 As Integer
      Dim n2 As Integer

相关内容