版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、vb经典题目及答案1、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm,该程序是不完整的,请在有 ?号的地方填入正确的程序代码,然后删除 ?及所有注释符号(即 号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹和文件名。本题描述如下:在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别是C1、C2和C3,标题分别是读入、加密和存盘。要求程序运行后,点击读入按钮,将文本文件in7.txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击加密按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应
2、字母表中后两个位置的字母。 例如,转换前的字母是a,则转换后的是c,转换前是E,转换后是G;点击存盘按钮, 则将转换后的文本框中的文本保存到out7.txt文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click()Dim strinfo As StringOpen in7.txt For Input As 1Input #1, strinfoClose #1Text1.Text = strinfoEnd SubPrivate Sub C2_Click()Dim strchange As StringDim i As IntegerFor i = 1 To Len(Tex
3、t1.Text) strchange = strchange + Chr(Asc(Mid(Text1.Text, i, 1) + 2)NextText1.Text = strchangeEnd SubPrivate Sub C3_Click()Open out7.txt For Output As 1Print #1, Text1.TextClose #1End Sub2、(1)在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即号),但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下:在窗口中有
4、一个RichText文本框控件(名称为rtx1)和一个文本框控件(名称为Text1),两个命令按钮,名称分别为Command1和Command2,标题分别为加入WY01.TXT、统计字符个数。要求程序运行后,单击command1将考生文件夹下的wy01.txt的内容显示到rtx1中;单击统计字符个数按钮统计Text1中有多少个字符,将结果显示在Text1中。 Option ExplicitPrivate Sub Command1_Click()rtx1.LoadFile App.Path + wy01.txtEnd SubPrivate Sub Command2_Click()If rtx1.
5、Text Then Text1.Text = Len(rtx1.Text)End IfEnd Sub3、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即 号),但不能修改其它部分。存盘时不得改变文件名和文件夹,相应的dat文件也保存到考生文件夹下,否则没有成绩。本题描述如下:在名称为Form1的窗体上有五个Label控件和两个命令按钮, 数据文件prog8a.dat存放一些字符。1)按开始按钮后,能从考生文件夹下的prog8a.dat中读出数据并分别统计出其中数字、大写字母、小写字母和其它类型字符的个数,
6、将结果写入考生文件夹下的prog8b.dat文件中(以标准格式在一行中输出);2)执行完毕,开始按钮变成完成,且无效(变灰) Private Sub COMSTART_Click()Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integermyfile1 = App.Path & & prog8a.datmyfile2 = App.Path & & prog8b.datOpen myfile1 For Input As #1Open myfile2 For Output As #2Wh
7、ile Not EOF(1) Input #1, Ch$ If Asc(Ch$) = 48 And Asc(Ch$) = 65 And Asc(Ch$) = 97 And Asc(Ch$) c2,则为锐角三角形;若一边具有a2+b2c2,则为钝角三角形。Private Sub Command6_Click()Label1.Enabled = FalseFor i = 1 To 10 a(i) = InputBox(请输入第 & i & 个数,请务必输入数值数据!, 输入) Do While IsNumeric(a(i) = False a(i) = InputBox(输入数据无效,请重新输入数
8、值数据! & 请输入第 & i & 个数, 输入) Loop Next iFor i = 1 To 9 For j = i + 1 To 10 If Val(a(j) = 2 * 3.14159 Then c = c Mod (2 * 3.14159) End IfEnd SubPrivate Sub Timer1_Timer()Picture1.Refresh 重画图片框End Sub Dim i As IntegerFor i = 0 To L1.ListCount - 1 L1.Selected(i) = TrueNextEnd SubPrivate Sub C2_Click()Dim
9、i As IntegerOpen out7.txt For Output As 1For i = 0 To L1.ListCount - 1 L1.ListIndex = i Print #1, L1.Text, L1.Selected(i) = FalseNextClose #1End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()r = 20c = 0st = 0.063HScroll1.Min = 1 设置最小值HScroll1.Max = 100 设置最大值End SubPrivate Sub HScro
10、ll1_Change()Timer1.Interval = 200 - HScroll1.Value 根据滚动条的数值设置时间间隔,速度越快,间隔越小End SubPrivate Sub Picture1_Paint()Picture1.FillColor = QBColor(12)Picture1.ForeColor = QBColor(12)Picture1.Circle (0, 0), 2x = Cos(c) * ry = Sin(c) * rPicture1.FillColor = QBColor(14)Picture1.ForeColor = QBColor(14)Picture1.
11、Circle (x, y), 0.5c = c + st If c = 2 * 3.14159 Then c = c Mod (2 * 3.14159) End IfEnd SubPrivate Sub Timer1_Timer()Picture1.Refresh 重画图片框End SubOption ExplicitPrivate Sub Command1_Click()EndEnd SubPrivate Sub Form_Load()Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll1_Change()Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll2_Change()Label4.BackColor
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 学校教学设施维护计划
- 六年级英语下册Unit 1单元话题阅读“寓言故事”(有答案)译林版三起
- 在线教育平台课程资源合作预案
- 商业地产营销推广策略指南
- Module1语法易错+巩固练习-2023-2024学年三年级英语下册寒假自学课(外研版三起)
- 浙江文化英文之旅 2023-2024(2)学习通超星期末考试答案章节答案2024年
- 基本乐理学习通超星期末考试答案章节答案2024年
- 清洗蘑菇用软毛刷相关项目建议书
- 体育健身俱乐部运营方案
- 企业税务风险应对总结报告
- 2022年高中成绩单中英文模板
- 极大似然估计课件
- 徒手胸外心脏按压复苏法的进展
- 某某会计师事务所行政事业单位清产核资专项审计业务约定书
- 整体式集成卫生间安装技术交底施工方案
- 2020-2021年说课大赛全国一等奖:人教版七年级上册生物说课:生物与环境组成生态系统课件
- DB65∕T 4492-2022 和田玉(白玉)分级
- TPO句子简化题全集_翻译答案版
- 矮身材儿童诊治指南最终版(课堂PPT)
- 国旗下演讲讲话稿《重温行为规范,争做文明学生》
- 30个有趣的物理小实验及原理讲解
评论
0/150
提交评论