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