无
*注意事项:
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
If x<=3 Then
y=3
y=4
s = 0
For i=1 To 10 Step 1
s=s+i
Next i
For i=1 To 10 Step 4
s = s+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
x=0
For i=1’To 10
For j=i To 10
x=x+1
Next
……
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
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
Dim i As Integer
Dim s As ‘(s变量存放总和,此处定义它为单精度变量类型)
For i=1 To
s=
Print s
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
Text1. Text=Str()
微信扫码预览、分享更方便
详情