修改时间:2024-07-13 浏览次数:181 类型:期末考试 编辑
查看解析 收藏 纠错
+选题
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
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)
x=val(Text1 text)
IfThen
y=1.5*x
Text2 text=str(y)
n=1
s=0
Do while
s=
Print s
程序代码如下:
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
Next tu
Next ji
试题篮