原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
安徽学业水平测试信息学VB专项练习题
2015 新题库 VB专项练习12题
第1题：
代码如下：（红色字体部分是参考答案）
Private Sub Command1_Click()
Dim i As Integer, a(1 To 10) As Integer
Me.Cls
Randomize
For i = 1 To 15 此行有一处错误 For i = 1 To 10
a(i) = Int(Rnd * (99 - 80) + 80) 此行有一处错误 以下四种答案都应该对，但是系统判分一个都不对
Int(Rnd * (99 - 80) + 80)+1 Int(Rnd * (100 - 80) + 80) Int(Rnd * (99 - 79) + 80) Int(Rnd * (99 - 80) + 81)
Print a(i);
Next j 此行有一处错误 Next i
End Sub
第2题：
代码如下：（红色字体部分是参考答案）
Private Sub Command1_Click()
Dim i As Integer, J As Integer, k As Integer
Me.Cls
For i = 2 To 1000
For J = 2 To Sqr(i)
If i Mod J = 0 Then Exit For
Next I 此行有一处错误 Next j
If J Sqr(i) Then
Print Format(i, @@@@);
k = i + 1 此行有一处错误 k = k + 1
If k Mod 10 = 0 Then Print
End If
Next J 此行有一处错误 Next i
End Sub
注：每行5个数据输出代码和运行结果如下
第3题：
代码如下：（红色字体部分是参考答案）
Private Sub Command1_Click()
Const pi As Single = 3.14159
Dim r As Single, h As Single, k As Single 此行有一处错误 Dim r As Single, h As Single, s As Single
r = Val(Text1.Text)
h = Val(Text2.Text)
s = pi * r ^ 2 + 2 * pi * r * h 此行有一处错误 s = 2*pi * r ^ 2 + 2 * pi * r * h
Text3.Text = Val(s) 此行有一处错误 Text3.Text = Str(s) 或者Text3.Text = s 或者 不修改
End Sub
第4题：
代码如下：（红色字体部分是参考答案）
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
Dim x1 As Double, As Double 此行有一处错误 Dim x1 As Double, x2 As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a 0 Then
d = b * 2 - 4 * a * c 此行有一处错误 d = b ^ 2 - 4 * a * c
If d 0 Then 此行有一处错误 If d = 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Label5.Caption = x1= Str(x1) Chr(10) x2= Str(x2)
Else
Label5.Caption = 方程没有实数解
End If
Else
If a = 0 Then
If b = 0 Then
MsgBox 系数为0，请重新输入
Else
x1 = -c / b
Label5.Caption = x1= Str(x1)
End If
End If
End If
End Sub
第5题：
代码如下：（红色字体部分是参考答案）
Private Sub Command1_Click()
Dim s As Long, As Long, i As Long 此行有一处错误 Dim s As Long, m As Long, i As Long
s = 0
m = 0
For i = 1 To 2014 此行有一处错误 For i = 1 To 2015
m = m +
文档评论（0）