设计一个VB程序,通过在文本框Text1输入托运行李的质量,计算并输出托运行李的费用,行李质量超过150千克,则显示“行李超重!”。结果在文本框Label1中显示。程序运行界面如图a所示。
Private Sub Command1_Click( )
Dim x As Double,y As Double
①
If x>150 Then
Label1l.Caption="行李超重!"
Else
If ② Then
y=0.35*50+0.5*(x-50)
Else
y=0.35*x
③
Label1.Caption="行李收费"+ ④ 十"元"
End If
End Sub
画线处应填入的代码为:①;②;③;④。
图1
图2
Private Sub Command1_Click()
Dim a(1 To 100) As String ,s As String, ch As String, word As String
Dim i As Integer, j As Integer, k As Integer, numb As Integer
s = Text1.Text : k = 0 : word = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Or ch >= "A" And ch <= "Z" Then
If ch >= "A" And ch <= "Z" Then
word = word + ch
Else
flag = False
For j = 1 To k
If a(j) = word Then flag = True
Next j
If Not flag And word <> "" Then
a(k) = word
numb = numb + 1
End If
End If
Next i
Text2.Text = str(numb)
End Sub
Private Sub CmdTJ_Click()
Dim count(25) As Integer
Dim ch, ch2 As String
Dim m As Integer
ch = Text1.Text
For k = 1 To Len(ch)
n = Asc(ch2)-Asc(“a”)
If n >= 0 And n <= 25 Then
count(n) = count(n) + 1
List1.AddItem "字母" + ch2 + "出现" + Str(count(n)) + "次"
End If
Next k
m = count(0)
For k = 1 To 25
If Then m = count(k)
Next k
Label1.Caption = "字母最高出现" + Str(m) + "次"
End Sub
Private Sub Command1_ Click ()
Dim i As Integer
Dim s As String, s2 As String
s =Text1. Text
For i=1ToLen(s)
s2 = Mid(s,i,1)
List1.AddItem s2 & ":”& Str (Asc (s2))
Next i
End Sub
则程序界面上用于输出的控件的图标为( )
请分析任务,完成下列题目。
程序代码如下:
Private Sub Command1_Click()
Dim s As single
Dim Max , Min ,i As Integer
Dim a(5) As Integer
Max = 0
Min = ①
s = 0
For i = 1 To 5
a(i) = InputBox("请输入第" & i & "个分数")
s = s + a(i)
If ② Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
s = ③
Text1.Text = Max
Text2.Text = Min
Text3.Text = s
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
End Sub
请分析任务,完成下列题目。
Private Sub Command1_ Click()
Dim a(1 To 10) As Integer .
Dim i As Integer, n As Integer
Dim s As Integer, max As Integer
n= Val(Text1. Text)
i=1:s=0
Randomize '随机函数的初始化语句
Do While i <=n
a(i)= Int(Rnd * 100)
List1. AddItem Str(a(i))
s= s+ a(i)
Loop
max=a(1)
For i=2 To n
If a(i)> max Then
Next i
List1. AddItem“和为:”+
List1. AddItem“最大值为:”+Str( max)
End Sub