- 1、本文档共18页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
历年江苏省计算机上机真题(2008年春至2012年春)
2008年(春)
一、改错
【题目】本程序的功能如下图所示,将输入的一个由数字字符组成的字符串,从第一位、第二位……直到倒数第二位,依次取两位数据,得到一组两位整数输出到列表框1,再将其中的素数挑选出来输出到列表框2(注意,如果截取到的两位数字,第一位为0,例如05,则无效,将其丢弃)。
Option Explicit
Private Sub Command1_Click()
Dim st As String, num() As Integer
Dim k As Integer, i As Integer
st = Text1
i = 1: k = 1
Do
If Mid(st, i, 1) 0 Then
ReDim Preserve num(k) err 无Preserve
num(k) = Val(Mid(st, i, 2))
List1.AddItem num(k)
k = k + 1
End If
i = i + 1
Loop While i Len(st) err i = Len(st)
For i = 1 To UBound(num)
If prime(num(i)) Then List2.AddItem num(i)
Next i
End Sub
Private Function prime(n As Integer) As Boolean
Dim i As Integer
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit Function err Exit For
Next i
prime = True
End Function
二、编程题
【题目】编写程序,将 10~5000之间的一组数据,变换到(0, 1)区间。变换的方法是,找出这组数据中的最大数,用大于它的第一个能被100整除的数n ,分别除以这组数据中的每个数。例如,在下图数据中最大数为4810,则n为4900,用所有数据除以4900进行变换。
Option Explicit
Option Base 1
Dim a(20) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 20
a(i) = Int(Rnd * (4999 - 10 + 1)) + 10
Text1.Text = Text1 Str(a(i))
If i Mod 5 = 0 Then Text1.Text = Text1 vbCrLf
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, n As Integer
n = ((maxv \ 100) + 1) * 100
For i = 1 To 20
List1.AddItem a(i) --- CSng(a(i) / n)
Next i
End Sub
Private Function maxv() As Integer
Dim i As Integer
maxv = a(1)
For i = 2 To 20
If maxv a(i) Then maxv = a(i)
Next i
End Function
Private Sub Command3_Click()
Text1.Text =
List1.Clear
Command1.SetFocus
End Sub
2008年秋
二级Visual Basic语言(试卷代号VB01)
(本试卷完成时间70分钟)
【考试须知】
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考;
2.答题完成后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码应缩行书写(呈锯齿形)。
一、改错题(14分)
【题目】本程序的功能是:随机生成一个有n个元素的数组(n由InputBox函数输入),找出其中的最大元素并将它删除,再输出删除后的数组。
Option Explicit
Option Base 1
Dim a() As
您可能关注的文档
- 政法干警考试民法学—第二部分 物权.doc
- 河南省煤监办监察安全考核汇报材料.doc
- 我国公民的环境权.ppt
- 44个拐点问题——朱运凌.doc
- 以马列主义市场经.ppt
- 北方汽修-TVC广告创意沟通稿.ppt
- 2010年经济师考试中级邮电真题及答案.doc
- 4 外汉概论 之四 第四讲 第二语言习得理论概述.ppt
- 组织行为与传播第六讲.ppt
- 第十三讲 组织中的.ppt
- 2023-2024学年广东省深圳市龙岗区高二(上)期末物理试卷(含答案).pdf
- 2023-2024学年贵州省贵阳市普通中学高一(下)期末物理试卷(含答案).pdf
- 21.《大自然的声音》课件(共45张PPT).pptx
- 2023年江西省吉安市吉安县小升初数学试卷(含答案).pdf
- 2024-2025学年广东省清远市九校联考高一(上)期中物理试卷(含答案).pdf
- 广东省珠海市六校联考2024-2025学年高二上学期11月期中考试语文试题.pdf
- 2024-2025学年语文六年级上册第4单元-单元素养测试(含答案).pdf
- 2024-2025学年重庆八中高三(上)月考物理试卷(10月份)(含答案).pdf
- 安徽省安庆市潜山市北片学校联考2024-2025学年七年级上学期期中生物学试题(含答案).pdf
- 贵州省部分校2024-2025学年九年级上学期期中联考数学试题(含答案).pdf
文档评论(0)