VB24题操作题答案.docx

  1. 1、本文档共30页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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 **************

文档评论(0)

dajuhyy + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档