- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
2014内蒙对口升学计算机VB模拟试题十一带答案
6.题目:“产生数据” 按钮Command1,产生5个10~99之间的随机整数放入数组s,并显示在图示的标签lblra上;单击“排序” 按钮Command2,将数组排序后的数据输出到图示的标签lblre。(要求for循环实现)
Dim s(1 To 5) As String
Private Sub Command1_Click()
lblra.Caption =
For i = 1 To 5
s(i) =
lblra.Caption = lblra.Caption Str(s(i))
Next i
End Sub
Private Sub Command2_Click()
lblre.Caption =
For i = 1 To 4
Min = i
For j =
If Then Min = j
Next j
t = s(Min): : s(i) = t
Next i
For i = 1 To 5
lblre.Caption = lblre.Caption Str(s(i))
Next i
End Sub
7. 题目:… + 1/n!+ …,计算e的近似值,直到当前累加项小于10-7为止。运行界面如下图所示。单击“计算”按钮在标签lblre中输出结果。(要求用while…wend循环)
Private Sub Command1_Click()
Dim t As Single
Dim i As Integer
Dim e As Single
t = 1: i = 1: e = 1
DO While 1 / t = 0.0000001
t = t * i
LOOP
lblre.Caption = e
End Sub
8.题目:….产生随机数 mnura 二级菜单 ….判断 mnupd 二级菜单 单击“产生随机数”菜单项,产生1个60~90之间的随机整数,显示在文本框中。单击“判断”菜单项,判断该随机数能否被3整除,判断结果显示在标签上。窗体运行如下图。
Private Sub mnupd_Click()
If Then
Label1.Caption = 能被3整除
Else
Label1.Caption = 不能被3整除
End If
End Sub
Private Sub mnura_Click()
Text1.Text =
End Sub
您可能关注的文档
- 2013贵州省对口升学英语适应性考试试题二(含答案) .doc
- 2013贵州省对口升学英语适应性考试试题五(含答案).doc
- 2013贵州省对口升学英语适应性考试试题四(含答案) .doc
- 2013贵州省对口升学语文高考适应性考试试题一(含答案) .doc
- 2013贵州省对口升学语文高考适应性考试试题三(含答案) .doc
- 2013贵州省对口升学语文高考适应性考试试题二(含答案) .doc
- 2013贵州省对口升学语文高考适应性考试试题四(含答案).doc
- 2013贵州省职中对口升学数学模拟考试试题一(含答案) .doc
- 2013贵州省职中对口升学数学模拟考试试题三(含答案) .doc
- 2013贵州省职中对口升学数学模拟考试试题二(含答案) .doc
最近下载
- 孤独症康复教育人员上岗培训课程考试题题库.docx VIP
- 抖音短视频运营部门各岗位KPI关键绩效考核指标.pptx
- 数媒艺术概论:第1章 数媒基础.ppt
- 一种室内燃气管道暗埋系统.pdf VIP
- 部编版小学语文六年级上册第六单元整体解读与教学规划.pdf VIP
- 2024年时事政治点题库选择题300道a4版.docx
- 新苏科版七年级上册生物全册电子教案.doc
- KA_T 20.5-2024 非煤矿山建设项目安全设施设计编写提纲 第5部分:尾矿库建设项目安全设施重大变更设计编写提纲.docx VIP
- SAE AMS2355-1965(R2017) 铝合金和镁合金制品(锻坯除外)及轧制、锻造或闪光焊环的质量保证、取样和试验.pdf
- 北京旅游攻略 4日具体行程(国外英文资料).doc
文档评论(0)