注册

题型：单选题题类：常考题难易度：普通

浙江省高中信息技术 VB基本语句同步练习

阅读下面的程序：

Private Sub Command1_Click()

a=Val(Text1.text)

b=Val(Text2.text)

Do While a Mod b<>0

r=a Mod b

a=b

b=r

Loop

Text3.text=str(b)

End Sub

在Text1、Text2中分别输入30、6，则Text3中的值为（）

A、1 B、3 C、6 D、9

举一反三

【加试题】小张设计了一个“加减运算测试”程序。程序启动时运行界面如右图所示。在文本框Text1中输人计算结果后单击“下一题”按钮Command1，如计算结果正确，则得分加10分，否则不加分，同时显示下一试题内容并计数，直至完成10题测试。实现上述功能的VB程序如下，但加下划线代码有错，请改正。

   Dim n As Integer    '为试题计数器
   Dim s As Integer    's为测试得分
   Dim a As Integer, b As Integer 'a，b 为运箅数
   Dim c As String 'c为运算符："+ "表示加运算，"一"表示减运算
   Private Sub Command1Click()
   If c ="+" Then
      If a + b = Val(Text1.Text) Then
         s = s + 10
      End If
   Else
      If c ="-" Then       ①
         s = s + 10
      End If
   End If
   Label2.Caption = "得分:" + Str(s)
   DispTest
   End Sub
   Private Sub FormLoad()
Randomize
n = 0
s = 0
DispTest
End Sub
Private Sub DispTest()
n = n + 10       ②
If n < 11 Then
    Label1.Caption = "试题" + Str(n)    'a，b为运算数，且要求a不小于b
    a = Int(Rnd() * 100)
    b = Int(Rnd() * 100)
      If Rnd() > 0.5 Then c = "+" Else c = "-"
      Label3.Caption = Str(a) + c + Str(b) + "="
     Text1.Text = ""
Else
   Command1.Caption = "完成测试"
End If
End Sub
①处正确的代码是{#blank#}1{#/blank#}。
②处正确的代码是{#blank#}2{#/blank#}。

以下语句运行后变量c的值是（）

a=”2009”

b=”2008”

c=Val(a)+Val(b)

算法部分流程图如图所示。执行这部分流程，依次输入12、-5、29、18、7，则输出值是（）

闰年条件：能被4整除且不能被100整除或能直接被400整除。写出闰年的VB表达式（年份用变量y）{#blank#}1{#/blank#}。

在Python语言中，已知a=7，b=9，下列运行结果为True的是（）

若 x 是整型变量，下列选项中，与表达式 not(x>=0 and x<8)含义相同的是（）

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服