2. 计算机
  3. 编写如下程序： Private Sub Command1_Click() Dim i As Integer, x As Integer i = 1 While i

编写如下程序： Private Sub Command1_Click() Dim i As Integer, x As Integer i = 1 While i

admin2020-07-22  51
问题 编写如下程序：
Private Sub Command1_Click()
   Dim i As Integer, x As Integer
   i = 1
   While i <= 5
      x = InputBox("请输入第" & i & "个数：")
      If x Mod 3 = 2 Then
         If x \ 5 = x / 5 Then
            Print "A";
         Else
            Print "B";
         End If
      End If
      i = i + 1
   Wend
End Sub
程序运行后，单击命令按钮Command1，并依次在输入对话框中输入11、20、15、32、17，输出结果为
选项 A、BAABB
B、ABBAA
C、BABB
D、ABAA
答案C
解析 接收从对话框输入的数字，并将其赋值给整型变量x，如果满足x对3取模为2且x被5整除，则输出A，如果仅满足x对3取模为2但x不能整除5，输出B。11、20、32、17都满足对3取模为2条件，其中20,15能整除5,11,17不能整除5。输出结果为BABB，选择C项。
转载请注明原文地址:https://www.kaotiyun.com/show/ByHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)