2016年vb計算機基礎題庫及答案

　　一、程序改錯題

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