单选题
- A、 Text1.MaxLength=0
- B、 Text1.Width=0
- C、 Text1.Visible=False
- D、 Text1.Enabled=False
- A、 Int(Rnd * 51) + 49
- B、 Int(Rnd * 51 + 50)
- C、 Int(Rnd * 50) + 5
- D、 Int(Rnd * 50 + 50)
Dim s As long, x As Integer
s=0 : x=1
Do While (x<10)
s=s+x
x=x+2
Loop
Print s
- A、 10
- B、 25
- C、 50
- D、 100
If a>5 then
if b<4 then
c=a-b
else
c=b-a
End if
Else
if b>3 then
c=a*b
else
c= a mod b
End if
End if
- A、 2
- B、 -2
- C、 6
- D、 1
x=0
For i = 1 to 5
For j = i to 5
x=x+1
Next j
Next i
Print x
- A、 5
- B、 10
- C、 15
- D、 20
a=0
For i=1 To 2
For j=i To 2
For k=1 To j
a=a+2
Next k
Next j
Next i
- A、 2
- B、 8
- C、 10
- D、 20
综合题
Dim G As Integer
Dim M As Integer
Input “输入重量 G = ”; G
If then
M=0.65*G
Else
M=
End if
Print “运费为:”; M
Sub mult( )
Dim Sum As Integer
Sum=0
Dim i as integer
For to 50
If i MOD 2= Then
End if
Next i
Print sum
End Sub
For to 9
For b=0 to 9
For c=0 to 9
For d=0 to 9
X=
If then
print x
End if
Next d
Next c
Next b
Next a