浙江省湖州市长兴县2018-2019学年九年级上学期信息技术...

i=20

j=10

if i<j then print j

print i

Dim n as integer

…

If     them

MsgBox"恭喜，本站有车!"

Else

MsgBox"很遗憾，本站车已经借完!"

End If

…

划线处应填写的条件表达式是（  ）

a=14

b=30

select case b\10     ‘“\”是整除，运算结果只保留整数部分。

Case 0

    c=a+b

Case 1 to 9

    c=a*10+b

Case 10 to 99

    c=a*100+b

End select

Print c

Private Sub Command 1_Click()

a=10

for k=1 to 5 Step -1

a=a -k

Next k

Print a， k

End sub

For i=1 to 10 Step 4

s=s+i

Next i

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

x=5

For i=1 to 10 Step 2

x=x+i

Next i

Private Sub Form_Click()

Dim x as integer

x=1

n=0

Do while x<100

x=x*3

n=n+1

Loop

Print x，n

End Sub

Private Sub begin_cmd_Click（）

a=1

b=2

c=3

text1. text=c>a+borb-1>c-1 and c+a>a

end sub

这一过程所对应的事件是(鼠标单击\鼠标双击\鼠标移过)；所对应的控件对象是。（填写对象名称）

Private Sub Command 1_Click（）

Dim r as single， c as single，

c=2*3．14*r

s=3．14*r*r

Text3 text=str(s)

End sub

x=val(Text1 text)

IfThen

y=1.5*x

Else

End If

Text2 text=str(y)

Private Sub Form_Click()

n=1

s=0

Do while

s=

n=n+1

Loop

Print s

End sub

程序代码如下：

Private Sub Form Click()

Dim ji As Integer    ‘鸡

Dim tu As Integer    ‘兔

Dim tui As Integer    ‘腿数

Dim tou As Integer    ‘头数

    For ji=

        For tu=1 to 25

            tui=     ‘计算腿的数量

            tou= ji+tu    ‘计算头的数量

            IFThem

                Print ji, tu

            End If

        Next tu

    Next ji

End sub