19.模擬一個簡單計算器,輸入兩個數(shù)和一個運算符(加、減、乘、除),進行算術(shù)運算,并輸出運算結(jié)果。程序界面如圖所示,在文本框Text1輸入第一個數(shù)a,在文本框Text2輸入第二個數(shù)b,在文本框Text3輸入運算符ch,在文本框Text4中輸出結(jié)果。當(dāng)輸入的運算符不是加、減、乘、除四種運算符時,則輸出“運算符不正確”;當(dāng)進行除法運算時,如果除數(shù)為0,提示輸出“除數(shù)不能為零”。相應(yīng)的Visual Basic程序如下, (1)觀察程序設(shè)計界面,共有類對象具有Caption屬性。 (2)實現(xiàn)上述功能的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=“除數(shù)不能是零“ Else
(單選,填字母:A.Form1=“字符串生成“/B.Forml.Text=“字符串生成“/C.Form1.Caption=“字符串生成“)。 (2)實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適的代碼。 Private Sub Command1_Click ( ?。?br />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中輸入內(nèi)容的結(jié)束符缺失(即輸入內(nèi)容為1,18,9,9),單擊“生成”按鈕后,標簽Label1中顯示的內(nèi)容是