- 1、本文档共8页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
07春VB上机
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(2007春)
二级Visual Basic语言(试卷代号VB01)
(本试卷完成时间70分钟)
【考试须知】
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不 予评分;
3.程序代码书写应呈锯齿形。
一、改错题(14分)
【题目】本程序的功能是:输入一个由正整数组成的数字串(各整数由逗号隔开,最后以#号结束),从中找出所有是3的幂的数并显示在列表框中。
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim S As String, ch As String, k As Integer
Dim a() As Integer, t As Integer, i As Integer
S = Text1
For i = 1 To Len(S)
ch = Mid(S, i, 1)
k = k + 1
If ch , And ch # Then
t = t * 10 + Val(ch)
Else
ReDim Preserve a(k)
a(k) = t
t = 0
End If
Next i
For i = 1 To UBound(a)
If Judge(a(i)) Then List1.AddItem a(i)
Next i
End Sub
Private Function Judge(n As Integer) As Boolean
Do While n 1
If n Mod 3 0 Then
Exit Do
End If
n = n \ 3
Loop
Judge = True
End Function
【要求】
1.新建工程,输入上述代码,改正程序中的错误;
2.改错时,不得增加或删除语句,但可适当调整语句位置;
3.将窗体文件和工程文件分别命名为F1和P1,并保存到软盘A的根目录下。
二、编程题(26分)
【题目】编写程序,找出满足下列条件的正整数:①该数的位数为N(N=3,4);②该数的数字全部由偶数数字组成;③该数等于另一个由偶数数字组成的数的平方。
【编程要求】
1.程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界 面元素大小适中,且均可见;
2.在文本框中输入n值,按“运行”按钮,在规定范围内查找符合要求的数据并在列表框 中显示结果;按“清理”按钮,则将文本框及列表框清空,焦点置于文本框;按“结束”按钮,结束程序运行;
3.程序中应定义一个函数过程,用于判断一个数的各位数字均为偶数。
【要求】
将窗体文件和工程文件分别命名为F2和P2,并保存到软盘A的根目录下。
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(2007春)
二级Visual Basic语言(试卷代号VB02)
(本试卷完成时间70分钟)
【考试须知】
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考:
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、改错题(14分)
【题目】从10个各不相同的正整数中,剔除若干个数。使得保留下来的数中,任意两个数的和都不是平方数(所谓平方数就是该数等于某一个数的平方,例如4就是一个平方数)。
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim A(10) As Integer, I As Integer, J As Integer, P As Integer, K As Integer
Do While P = 10
K = Int(20 * Rnd) + 1
For J = 1 To P
If K = A(J) Then Exit Do
Next J
If J P Then
P = P + 1
A(P) = K
Text1 = Text1 Str(K)
End If
Loop
Call Delete(A, P)
For I = 1 To P
Text2 = Text2 Str(A(I))
Nex
文档评论(0)