19.模擬一個簡單計算器,輸入兩個數和一個運算符(加、減、乘、除),進行算術運算,并輸出運算結果。程序界面如圖所示,在文本框Text1輸入第一個數a,在文本框Text2輸入第二個數b,在文本框Text3輸入運算符ch,在文本框Text4中輸出結果。當輸入的運算符不是加、減、乘、除四種運算符時,則輸出“運算符不正確”;當進行除法運算時,如果除數為0,提示輸出“除數不能為零”。相應的Visual Basic程序如下, (1)觀察程序設計界面,共有類對象具有Caption屬性。 (2)實現上述功能的VB程序如下在①、②、③橫線處,填入合適的語句或表達式,把程序補充完整。 Private Sub Command1_Click ( ) Dim a As Single,b As Single,ch As String a=Val(Text1.Text) b=Val(Text2.Text)
If ch=“+“Then Text4.Text=Str(a+b) ElseIf ch=“*“Then Text4.Text=Str(a*b) ElseIf ch=“-“Then Text4.Text=Str(a-b) ElseIf ch=“/“Then If
Then Text4.Text=Str(a/b) Else Text4.Text=“除數不能是零“ Else
(單選,填字母:A.Form1=“字符串生成“/B.Forml.Text=“字符串生成“/C.Form1.Caption=“字符串生成“)。 (2)實現上述功能的VB程序如下,請在橫線處填入合適的代碼。 Private Sub Command1_Click ( ) Dim s As String,t As String,c As String Dim i As Integer,p As Integer s=““:t=““ For i=1To Len(Text1.Text) c=Mid(Text1.Text,i,1) If c=“,“Then p=Val(t) s=s+Mid(Text2.Text,p,1) t=““ Else t= End If Next i Label1.Caption= End Sub (3)若文本框Text1中輸入內容的結束符缺失(即輸入內容為1,18,9,9),單擊“生成”按鈕后,標簽Label1中顯示的內容是