2016年vb計算機基礎題庫及答案
- 計算機三級
- 關注:1.47W次
一、程式改錯題
1. 程式設計求1-99的平方根的和並輸出結果。(保留兩位小數)
Private Sub cmdSqrt_Click()
Dim i As Integer, s As Single
s = _________
For i = 1 To 99
________________
Next i
s = Round(s, 2)
FontSize = 12
FontBold = True
Print s
End Sub
答案:s = s + Sqr(i)
a(j)+1
二、程式改錯題
1.程式功能:求當N=10時,S=1+2+3+……+N的值。程式中有一行有錯誤。改正錯誤,使它能輸出正確的結果。
Private Sub Command1_Click()
s = 0
n = 1
Do While n <= 10
n = n + 1
S = S + 1
Loop
Print “S=”;S
答案:第三行n = 1改成n = 0
三、程式設計題
1.在窗體上畫3個標籤,名稱分別為L1,L2,L3。標題分別為“運算元1”,“運算元2”和“結果”;再在窗體上畫3個命令鈕,名稱分別為cmd1,cmd2,cmd3。標題分別為“加法”,“減法”和“乘法”。最後在窗體上畫3個文字框,名稱為Text1,Text2,Text3,內容為空。編寫適當的程式,程式的'功能是實現簡單的加法、減法和乘法的運算。程式的執行結果如圖1所示:
Private Sub cmd1_Click()
End Sub
Private Sub cmd2_Click()
End Sub
Private Sub cmd3_Click()
End Sub
答案:
1.加法:
Private Sub cmd1_Click()
= Val() + Val() End Sub
減法:
Private Sub cmd2_Click()
= - End Sub
乘法:
Private Sub cmd3_Click()
= * End Sub
2.在窗體上有一個命令按鈕:Command1,4個文字框控制元件:Text11~Text4功能是找出三個數中的最大數,介面如下圖所示:
Private Sub Command1_Click()
End Sub
答案:
Dim a!,b!,c!,max!
a =
b =
c =
max = a
If b > max Then max = b
If c > max Then max = c
= max
- 文章版權屬於文章作者所有,轉載請註明 https://xuezhezhai.com/zh-tw/jsj/sanji/qrjxwr.html