- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
2014内蒙古计算机类综合考试模拟试题四带答案
20. 题目:“产生随机字母” 按钮Command1,产生10个大写的随机字母放入数组,并显示在图示的标签lblu上;单击“排序” 按钮Command2,将排序后的字母输出到图示的标签lblsort。(涉及的循环要求用for循环)
Dim s(1 To 10) As String
Private Sub Command1_Click()
lblu.Caption =
For i = 1 To 10
s(i) =
lblu.Caption = lblu.Caption s(i)
Next i
End Sub
Private Sub Command2_Click()
lblsort.Caption =
For i = 1 To 9
Min = i
For j =
If s(j) s(Min) Then Min = j
Next j
t = s(Min): s(Min) = : s(i) = t
Next i
For i = 1 To 10
lblsort.Caption = lblsort.Caption s(i)
Next i
End Sub
21.题目:10 个100~200 之间的正整数,将它们按从大到小的顺序排列。运行界面如图所示。(要求用for循环)
Private Sub Command1_Click()
Dim x(1 To 10) As Integer
Cls
Print
Randomize
Print 原始数据:
For i = 1 To 10
x(i) =
Print x(i);
Next i
Print: Print
Print 排序数据:
For i = 1 To 9
Max = i
For j =
If x(Max) x(j) Then
Next j
t = x(Max): x(Max) = : x(i) = t
Next i
For i = 1 To 10
Print x(i);
Next i
End Sub
22.题目:Command1求P 的值。P=1+1/(1+2)+1/(1+2+3)+…+1/(1+2+3+…+10)。(要求for循环实现)运行界面如图:
Private Sub Command1_Click()
Dim p As Single, s As Single
p =
s = 0
For i = 1 To 10
s =
p =
Next i
Print p= p
End Sub
您可能关注的文档
- 2013职高对口高考数学专题训练:随机变量及其概率分布.ppt
- 2013苏南对口单招一模机械专业综合理论试卷(含答案).doc
- 2013职高对口高考数学专题训练:随机变量的均值与方差.ppt
- 2013职高对口高考数学专题训练:随机抽样.ppt
- 2013苏南对口单招一模电子电工专业综合理论试卷(含答案).doc
- 2013苏南对口单招一模机电专业综合理论试卷(含答案).doc
- 2013苏南对口单招一模财会专业综合理论试卷(含答案).doc
- 2013苏南对口单招一模计算机专业综合理论试卷(含答案).doc
- 2013贵州省对口升学数学高考适应性考试试题三(含答案).doc
- 2013贵州省对口升学数学高考适应性考试试题一(含答案).doc
文档评论(0)