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()
Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub
減法：
Private Sub cmd2_Click()
Text3.Text = Text1.Text - Text2.Text End Sub
乘法：
Private Sub cmd3_Click()
Text3.Text = Text1.Text * Text2.Text End Sub
2.在窗體上有一個命令按鈕：Command1,4個文本框控件：Text11~Text4功能是找出三個數中的最大數，界面如下圖所示：
Private Sub Command1_Click()
End Sub
答案：
Dim a!,b!,c!,max!
a = Text1.Text
b = Text2.Text
c = Text3.Text
max = a
If b > max Then max = b
If c > max Then max = c
Text4.Text = max
【vb計算機基礎題庫及答案】相關文章：
2016年計算機基礎題庫與答案12-18
計算機二級《VB》上機題題庫(含答案)09-15
計算機二級考試《VB》基礎習題及答案10-21
9月全國計算機二級vb題庫及答案10-26
全國計算機二級vb題庫09-23
體育基礎知識題庫及答案12-07
計算機二級公共基礎知識題庫及答案12-03
2016年大學計算機基礎試題題庫及答案11-26