浙江省湖州市长兴县2020届九年级上学期信息技术期末考试试卷

Private Sub     

MsgBox(“好运中国!”)

EndSub

I=10

J=20

If I>J Then Print I Else Print J

x=10

If x>=10 Then

Value = 5*x

Else

Value=3*x+10

End If

x=Val(Text1. Text)

If x<=2 Then

y=2

Else

If x<=3 Then

y=3

Else

y=4

End If

End If

s = 0

For i=1 To 10 Step 1

s=s+i

Next i

For i=1 To 10 Step 4

s = s+i

Next i

该程序段运行后，语句s=s+i执行的次数为（  ）

x=1

Do While x<28

X = x * 4

Loop

Print x

程序运行后，输出结果是（  ）

For i=1 To 5

For j=1 To 3

Print”*”

Next j

Next i

x=0

For i=1’To 10

For j=i To 10

x=x+1

Next

Next i

……

Dim a As Integer，b As Integer，s As Single，c As Single

a=18

b=9

C=2*(    )   

界面如下：文本框从上到下对象名称分别是Text1，Text2，按钮从左到右名称依次是：Command1，Command2，Command3。

现在程序编写如下：

Private Sub Command1_Click()

Dim C As Sinzle，F As Sinzle

C=(Text1.Text)  (VB中字符转数值函数)

F=(计算华氏温度)

Text2.Text=(F)    (将华氏温度放在TEXT2中，注意要将数值转字符)

End Sub

Private Sub Command1_Click()

Dim x As Integer

x=Val(Text 1.Text)

Select Case

  Case Is>=90

    Text2.Text=“A”

  Case Is>=80

    Text2.Text=“B”

  Case Is

    Text2.Text=“C”

  Case Is>=60

    Text2. Text=“D”

  Case Else

End Select

End Sub

Private Sub Command1_Click()

Dim i As Integer

Dim s As       ‘(s变量存放总和，此处定义它为单精度变量类型)

For i=1 To 

s=

Next i

Print s

End Sub

Private Sub Form-Click()

Dim S As Integer

Dim N As Integer

N=0

S=0    ‘S变量存放的是总和

Do While    (条件)

N=N+1

S=S+N

Loop

Text1. Text=Str()

End Sub