2016年vb计算机基础题库及答案

相关推荐

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()