- 1、本文档共30页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB24题操作题答案
1、编写程序,使用多分支(Select Case)语句结构对输入的学生成绩给出A、B、C和D四个等级判断。要求,学生成绩由文本框(Text1)输入,结果显示在文本框(Text2)中。评分标准如下: 90≤成绩≤100 A 80≤成绩90 B 60≤成绩80 C成绩60 DPrivate Sub Command1_Click()或者Dim x As Integerx = Val(Text1.Text)Select Case x Case 90 To 100 Text2.Text = A Case Is = 80 Text2.Text = B Case Is = 60 Text2.Text = C Case Is = 0 Text2.Text = D End Select End SubPrivate Sub Command1_Click()Dim x As Integer x = Val(Text1.Text)Select Case x Case 90 To 100 Text2.Text = A Case 80 To 90 Text2.Text = B Case 60 To 80 Text2.Text = C Case Is 60 Text2.Text = D End SelectEnd Sub2、编写程序,使用If块结构语句对输入的学生成绩给出等级判断。要求:学生成绩由文本框(Text1)输入,结果显示在文本框(Text2)中。评分标准如下:成绩60不及格60≤成绩70 及格70≤成绩80 中等80≤成绩90 良好90≤成绩优秀Private Sub Command1_Click()Dim n As Integern = Val(Text1.Text)If n 60 ThenText2.Text = 不及格ElseIf n = 60 And n 70 ThenText2.Text = 及格ElseIf n = 70 And n 80 ThenText2.Text = 中等ElseIf n = 80 And n 90 ThenText2.Text = 良好ElseIf n = 90 And n = 100 ThenText2.Text = 优秀End IfEnd Sub3、求1+2+3+....+n的值,n从文本框Text1输入,请以n=999验证结果。要求:计算结果必须保存在Sum中Private Sub Form_Click()***************** Begin ************** Dim n As Integer, Sum As LongDim i As Integer n = Val(Text1.Text)Sum = 0 For i = 1 To n Sum = Sum + i Next iPrint Sum*************** End ************************* Call TestFunc(Sum)End SubPrivate Sub TestFunc(i As Long) Dim OUT As Integer OUT = FreeFile Open App.Path \out.txt For Output As #OUT Print #OUT, i Close #OUTEnd Sub4、编程实现,运行时,单击出题按钮,产生任意两个[1,100]之间的随机整数显示在文本框Text1和Text2内;单击计算按钮,求这两个数的和显示在文本框Text3内。********** Begin **********Private Sub Command1_Click()Text1.Text = Int(100 * Rnd + 1)Text2.Text = Int(100 * Rnd + 1)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub********** End **********5、求1*2*3*....*n的值,n从文本框Text1输入,请以n=9验证结果,结果用Label3输出。要求:计算结果必须保存在F中Private Sub Command1_Click()***************** Begin **************
您可能关注的文档
- Unit9 Myfavorite subject is science复习课件.ppt
- unit7 天气课件.ppt
- Unit3 Weather人人说英语.ppt
- Unit_7形容词性和名词性物主代词专项练习.ppt
- Unit_9_课件老赵.ppt
- UPS与FEDEX的区别.pptx
- U型断面梁式渡槽设计.doc
- VB 12级课件第6章-3(7-1,2,3学时、8-1,2,3学时)北邮.ppt
- VHDL课程设计报告 频率计.docx
- UPS生产运作管理.pptx
- 第12课 大一统王朝的巩固 课件(20张ppt).pptx
- 第17课 君主立宪制的英国 课件.pptx
- 第6课 戊戌变法 课件(22张ppt).pptx
- 第三章 物态变化 第2节_熔化和凝固_课件 (共46张ppt) 人教版(2024) 八年级上册.pptx
- 第三章 物态变化 第5节_跨学科实践:探索厨房中的物态变化问题_课件 (共28张ppt) 人教版(2024) 八年级上册.pptx
- 2025年山东省中考英语一轮复习外研版九年级上册.教材核心考点精讲精练(61页,含答案).docx
- 2025年山东省中考英语一轮复习(鲁教版)教材核心讲练六年级上册(24页,含答案).docx
- 第12课近代战争与西方文化的扩张 课件(共48张ppt)1.pptx
- 第11课 西汉建立和“文景之治” 课件(共17张ppt)1.pptx
- 唱歌 跳绳课件(共15张ppt内嵌音频)人音版(简谱)(2024)音乐一年级上册第三单元 快乐的一天1.pptx
最近下载
- 2024年政务服务行政办事员职业技能考试题库及答案3.docx
- 2024年政务服务行政办事员职业技能考试题库及答案2.docx
- 2024年政务服务行政办事员职业技能提升题库及答案1.docx
- 小学五年级上册数学期末考试试卷含答案【能力提升】.docx
- 天文知识科普文档.doc VIP
- 相许-卿卿日常配乐-五线谱+简谱.pdf
- 2022江西抚州市政务服务大厅面向社会公开招聘2名行政办事员【共500题附答案解析】模拟检测试卷0.docx
- 2024年政务服务行政办事员职业技能考试题库及答案5.docx
- 中医执业医师资格考试时间2023年.pdf
- 浙教版信息科技五年级上册 第三单元 用算法解决问题 大单元整体教学设计.docx
文档评论(0)