- 1、本文档共19页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
13-14-2VB期末复习2
按题号保存下列各题。每题涉及的知识点请理解透彻。
要求:设计一个显示信息的窗口(见图),要求在文本框中输入文本信息,单击按钮,文本信息显示在窗体上. ?
要求:编一程序如图所示,其中文本框的背景色为黄色,前景色为红色,单击“放大”按钮,文本框显示的文字放大三倍;单击“加粗”按钮,文本框显示的文字加粗;单击“斜体”按钮,文本框文字加粗;单击“还原”按钮,文本框中的文本格式恢复到初始状态。
要求编写一程序,程序界面如图所示,输入半径的值,点击“计算”按钮,计算球的体积和面积,并在文本框中显示。
设计一个调色板程序,建立三个水平滚动条(HScroll1、HScroll2、HScroll3)作为红、绿、蓝三种基本颜色的输入工具,合成的颜色显示在的标签(Label1)中。
Private Sub HScroll1_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
设计一程序,使用InputBox输入三个整数,按照从小到大的顺序在窗体上输出。
Dim a%(1 To 5)
Private Sub Command1_Click()
Dim i%
Picture1.Print 输入的数是:;
For i = 1 To 5
a(i) = Val(InputBox(请输入五个整数))
Picture1.Print a(i);
Next i
Picture1.Print
End Sub
Private Sub Command2_Click()
Dim i%, j%
For i = 1 To 4
For j = i + 1 To 5
If a(i) a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
Picture1.Print 排序后:;
For i = 1 To 5
Picture1.Print a(i);
Next i
End Sub
随机产生20个不重复的两位正整数,并将他们按从小到大的顺序排列起来,在窗体上直接显示排列前和排列后的数。
Option Base 1
Const length = 20
Dim a(length) As Integer, i%, temp%
Private Sub Command1_Click()
Randomize Timer
For i = 1 To 20
a(i) = Int(Rnd() * 90 + 10)
For j = 1 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next j
Next i
For i = 1 To 20
Picture1.Print a(i);
If i Mod 10 = 0 Then
Picture1.Print
End If
Next i
End Sub
Private Sub Command2_Click()
Picture1.Print
For i = 1 To 10
temp = a(i)
a(i) = a(21 - i)
a(21 - i) = temp
Next i
For i = 1 To 10
Picture1.Print a(i);
Next i
Picture1.Print
For i = 11 To 20
Picture1.Print a(i);
Next i
End Sub
使用InputBox输入一正整数,程序判断是否是素数,用MsgBox输出判断结果,如图所示。
Private Sub Form_Click()
Dim a!, b!
a = Val(InputBox(dsad))
For b = 2 To a - 1
If a Mod b = 0 Then
MsgBox (bushisushu)
Exit For
Else
MsgBox (shi)
End If
Next b
End Sub
随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据按升序排列,并且使用InputBox函数插
您可能关注的文档
- 11级机械设计课程设计(张)减速器设计.doc
- 11级双学位《服装厂设计》课程大作业.doc
- 11级机电一体化技术课程标准.doc
- 11级英语二班五四红旗团支部申请材料.doc
- 11级机械设计课程设计格式(张)减速器设计.doc
- 11级建筑力学B答案.doc
- 11级通信原理课程设计题目.doc
- 11邱晨专业英语.doc
- 11计本3班学生考勤系统的Oracle实现.doc
- 11软件工程3班黄靖进毕业设计(论文)开题报告.doc
- 白天晚上教学课件.ppt
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题参考答案详解.docx
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题带答案详解.docx
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题及参考答案详解.docx
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题及参考答案详解一套.docx
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题及完整答案详解1套.docx
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题及参考答案详解1套.docx
- 2025年山东菏泽市事业单位招聘急需紧缺岗位目录(第一批)笔试模拟试题参考答案详解.docx
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题及答案详解1套.docx
- 画西瓜教学课件.ppt
最近下载
- 单层钢结构厂房施工组织设计-.doc VIP
- 未来可期,不负高三——高三启动仪式高三第一课-2024-2025学年高中主题班会(共29张ppt).pptx VIP
- T∕CHES 32-2019 节水型高校评价标准(可复制版).pdf
- 墙面粉刷施工工艺.docx VIP
- 环氧地坪施工.docx VIP
- 2025广西南宁市交通运输综合行政执法支队招聘编外聘用人员5人备考试题及答案解析.docx VIP
- 青少年航天知识竞赛题库及答案.docx
- 环氧地坪施工工艺流程.docx VIP
- DB 34T 2752-2016 用人单位职业病危害现状评价导则.docx VIP
- 2025年高考全国1卷读后续写讲评课件 -2026届高考英语一轮复习专项.pptx
文档评论(0)