某簡單計算器功能如下:在文本框Text1中輸入一個加減算式,點擊“計算”按鈕Command1,計算結果在標簽Label3上顯示,同時在列表框List1中記錄每次算式及結果。已知文本框Text1只包含正整數和“+”、“-”符號,同時以“=”結束。程序運行界面如圖a所示,請回答下列問題。

(1)設計應用程序界面時,為添加“計算”按鈕,應使用圖b所示“控件工具箱”中的 44(填寫相應編號)控件,并在圖c所示的“屬性窗口”中,將 CaptionCaption屬性的值設置為“計算”。
(2)要實現程序運行時,單擊文本框Text1即可將文本框清空,則應在 BB(選填字母:A.Command1_Click ( )/B.Text1_Click ( )/C.Form_Load ( ))過程中添加語句Text1.Text=““。
(3)實現上述功能的VB程序如下,請在橫線處填入合適的代碼。
Private Sub Command1_Click ( )( )
Dim s As String,ch As String
Dim fh As Integer,p As Integer,sum As Integer
s=Text1.Text:fh=1:p=0:sum=0
For i=1To Len(s)
ch=Mid(s,i,1)
If ①ch>=“0“Andch<=“9“ch>=“0“Andch<=“9“ Then'判斷取出的字符是否為數字
p=p*10+Val(ch)
Else
sum=sum+p*fh
p=0
If ch=“-“Then
②fh=-1fh=-1
ElseIf ch=“+“Then
fh=1
End If
End If
Next i
Label3.Caption=Str(sum)
List1.AddItem ③s&“=“&Str(sum)s&“=“&Str(sum)
End Sub
(4)運行程序,在文本框Text1中輸入“5+5-2”,單擊“計算“按鈕后,標簽Label3上將顯示:AA。(選填字母:A.10/B.8/C.程序出錯無法顯示)。
【考點】設計應用程序的界面;編輯事件處理過程的代碼.
【答案】4;Caption;B;( );ch>=“0“Andch<=“9“;fh=-1;s&“=“&Str(sum);A
【解答】
【點評】
聲明:本試題解析著作權屬菁優網所有,未經書面同意,不得復制發布。
發布:2024/6/27 10:35:59組卷:2引用:2難度:0.4
相似題
-
1.有如下VB程序段:
在文本框Text 1中輸入“985-3+-”,執行該程序段后,文本框Text2中顯示的值為( )A.2 B.3 C.4 D.5 發布:2025/1/2 11:0:1組卷:1引用:1難度:0.4 -
2.某 vb 工程的代碼窗口如圖所示,則下列說法正確的是( )
A.該窗體中可能有一個名為 Lab1 的 TextBox 類型對象 B.當前正在編輯的是 Command1 的單擊事件 C.當窗體加載時,程序將產生 30 個隨機數 D.該程序運行時,單擊對象 Command1,可能會出現報錯信息提示 發布:2025/1/2 11:0:1組卷:0引用:1難度:0.4 -
3.小李編寫了按奇數位數字升序和偶數位數字降序排列的 VB 程序,功能如下:程序運行時,在標簽 Label1 中顯示排序前的數字,單擊“排序”按鈕,在標簽 Label2 中輸出排序的結果,運行界面如圖所示。
實現上述功能的 VB 程序如下。
(1)根據程序代碼,窗體中顯示“排序”文字的按鈕對象名稱為_____。
(2)程序代碼中,加框處代碼有錯,請改正。
(3)程序代碼中,將 Label2.Caption 賦值語句補充完整。
(4)程序代碼中,與下劃線語句 i Mod 2=0 功能相同的是_____ (單選,填字母:A.j Mod2=1/B.(i+j) Mod 2=0/C.k<>i)發布:2025/1/2 11:0:1組卷:0引用:1難度:0.9