注册

题型：填空题题类：常考题难易度：普通

浙江省温州市苍南县巨人中学2014-2015学年高二下学期期中考试信息技术试题

如下VB程序段执行后，变量x的值是。

Private Sub Form_Load()

x=1

For i=1 To 5

x=x*i

Next i

End Sub

举一反三

【加试题】小张设计了一个“加减运算测试”程序。程序启动时运行界面如右图所示。在文本框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#}。

【加试题】有10个数据：83，90，96，46，44，36，45，47，55，72依次存放在数组元素a(1)到a(10)中，部分VB程序段如下所示：

m=1：k=1

For i=2 To 10

If a(i)<a(i-1)Then

k=k+1

If k>m Then m=k

Else

k=1

End If

Next i

Text1．Text=Str(m)

End Sub

执行该程序段，文本框Text1中显示的是（）

有如下 Visual Basic 程序段：

s = 0

For k = To 5 s = s + k

Next k

该程序段运行后，循环体 s = s + k 被执行 10 次，则循环变量k的初值是（）

【加试题】某算法流程图如下图所示，该流程图对应的程序段为（）

有如下程序段，运行时程序出现如下错误提示，出错语句的位置是（）

Private Sub Command1_Click()

Dim i As Integer

Dim a(10)As Integer ‘①

For i=1 To 10 ‘②

a(i)=Rnd* 100 ‘③

Next i

Label1.Caption=Str(a(i)) ‘④

End Sub

计算s=1×2×3×……×100，则可以充分利用下列哪种基本结构（）

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

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

在线咨询客服