19.模擬一個(gè)簡(jiǎn)單計(jì)算器,輸入兩個(gè)數(shù)和一個(gè)運(yùn)算符(加、減、乘、除),進(jìn)行算術(shù)運(yùn)算,并輸出運(yùn)算結(jié)果。程序界面如圖所示,在文本框Text1輸入第一個(gè)數(shù)a,在文本框Text2輸入第二個(gè)數(shù)b,在文本框Text3輸入運(yùn)算符ch,在文本框Text4中輸出結(jié)果。當(dāng)輸入的運(yùn)算符不是加、減、乘、除四種運(yùn)算符時(shí),則輸出“運(yùn)算符不正確”;當(dāng)進(jìn)行除法運(yùn)算時(shí),如果除數(shù)為0,提示輸出“除數(shù)不能為零”。相應(yīng)的Visual Basic程序如下, (1)觀察程序設(shè)計(jì)界面,共有類(lèi)對(duì)象具有Caption屬性。 (2)實(shí)現(xiàn)上述功能的VB程序如下在①、②、③橫線處,填入合適的語(yǔ)句或表達(dá)式,把程序補(bǔ)充完整。 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)實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)跈M線處填入合適的代碼。 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中輸入內(nèi)容的結(jié)束符缺失(即輸入內(nèi)容為1,18,9,9),單擊“生成”按鈕后,標(biāo)簽Label1中顯示的內(nèi)容是