欢迎来到人人文库网! | 帮助中心 人人文档renrendoc.com美如初恋!
人人文库网
全部分类
  • 图纸下载>
  • 教育资料>
  • 专业文献>
  • 应用文书>
  • 行业资料>
  • 生活休闲>
  • 办公材料>
  • 毕业设计>
  • ImageVerifierCode 换一换
    首页 人人文库网 > 资源分类 > DOC文档下载  

    VB上机练习题.doc

    • 资源ID:16440048       资源大小:77.50KB        全文页数:9页
    • 资源格式: DOC        下载积分:5积分
    扫码快捷下载 游客一键下载
    会员登录下载
    微信登录下载
    三方登录下载: 微信开放平台登录 支付宝登录   QQ登录   微博登录  
    二维码
    微信扫一扫登录

    手机扫码下载

    请使用微信 或支付宝 扫码支付

    • 扫码支付后即可登录下载文档,同时代表您同意《人人文库网用户协议》

    • 扫码过程中请勿刷新、关闭本页面,否则会导致文档资源下载失败

    • 支付成功后,可再次使用当前微信或支付宝扫码免费下载本资源,无需再次付费

    账号:
    密码:
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源(1积分=1元)下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    VB上机练习题.doc

    第1题程序填空(1分)(题号:532)【程序填空】''题目:输入n个数,n由用户输入。' 程序的功能是将输入的n个数反向输出?请在【】处填入正确的Private Sub Form_Load() Dim n As Integer Dim k As Integer Dim m As Integer Dim h As Integer Dim t As Integer Show Dim a(100) As Single n = Val(InputBox("输入个数n") Print "处理前数据 :" '*SPACE* For k = 1 To 【?】 a(k) = Val(InputBox("请输入第" & k & "个数") Print a(k); Next k Print '*SPACE* m = Int(【?】) For k = 1 To m h = n - k + 1 '*SPACE* t = a(h): 【?】: a(k) = t Next k Print "处理的结果 :" For k = 1 To n Print a(k); Next kEnd Sub答案:1). n 2). n / 2 3). a(h) = a(k)第2题程序填空(1分)(题号:498)'【程序填空】''题目:本程序执行功能为,命令按钮单击一次后,窗体上输出结果为:'36'25'16'9请在【】处填入正确的内容Private Sub Command1_Click() Dim xx(6) As Integer Dim k% Open App.Path & "al.dat" For Output As #1 For I = 1 To 6 '*SPACE* j = 【?】 Print #1, j Next I Close #1 Open App.Path & "a1.dat" For Input As #2 k = 0 Do While Not EOF(2) '*SPACE* k = 【?】 Input #2, xx(k) Loop Close #2 '*SPACE* For I = k To k / 2 Step【?】 Form1.Print xx(I) Next IEnd Sub答案: 1). I * I 2). k + 1 或 1 + k 3). -1第3题程序填空(1分)(题号:501)'【程序填空】''题目:本程序执行后,最终在窗体上打印数字7。请在【】处填入正确的内容Private Sub Command1_Click() Dim a As String '*SPACE* Open App.Path & "abc.bat" For 【?】 As #1 n = 8 For I = 1 To n Print #1, I + 1 Next I Close #1 '*SPACE* Open App.Path & "abc.bat" For 【?】 As #1 For I = 1 To n Input #1, a If I Mod 5 = 0 Then '*SPACE* Print CInt(a) + 【?】 End If Next I Close #1End Sub答案: 1). Output 2). Input 3). 1第4题程序填空(1分)(题号:46)'【程序填空】''题目:从键盘输入学生分数,统计学生总人数和各分数段人数,' 即优秀(90-100)、良好(80-89)、中等(70-79)、' 及格(60-69)、不及格(60以下)的人数。Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5%msg = "请输入分数(-1结束)"msgtitile = "输入数据"score = Val(InputBox(msg, msgtitle)'*SPACE*While 【?】 total = total + 1'*SPACE* Select Case 【?】 Case Is >= 90 n1 = n1 + 1 Case Is >= 80 n2 = n2 + 1 Case Is >= 70 n3 = n3 + 1 Case Is >= 60 n4 = n4 + 1 Case Else n5 = n5 + 1'*SPACE* 【?】score = Val(InputBox(msg, msgtitle)WendPrint n1, n2, n3, n4, n5,totalEnd Sub答案: 1). score >=0 And score <= 100 或 0<=score And score <= 100 或 0<=score And 100>=score 或 score >=0 And 100>=score 2). score 3). End Select第5题程序填空(1分)(题号:503)'【程序填空】''题目:用户界面如图所示,用实现左右两个组合框中数据的左移和右移功能。' 程序开始运行时,在左边组合框中生成10个由小到大排列的随机三位' 正整数 (假设在设计阶段该组合框的Sorted属性值已设置为True), 现要求完成:' (1)单击""钮,左边组合框中的10个数全部移动到右边组合框,并由大到' 小排列,同时使""钮能响应,""钮不能响应。' (2)单击""钮,右边组合框中的10个数全部移到左边的组合框,并由小到' 大排列,同时使""钮能响应,""钮不能响应;' (3)单击"结束"按钮,结束程序运行。请在【】处填入正确的内容Private Sub cmdLeft_Click() Dim i As Integer For i = 0 To comboRight.ListCount - 1 comboLeft.AddItem comboRight.List(i) Next i comboRight.Clear '*SPACE* 【?】= False '*SPACE* 【?】 = True End SubPrivate Sub cmdRight_Click() Dim i As Integer '*SPACE* For i = 0 To 【?】 - 1 comboRight.AddItem comboLeft.List(i) Next i '*SPACE* 【?】.Clear cmdRight.Enabled = False cmdLeft.Enabled = TrueEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load() Dim i As Integer Label1.Caption = "组合框1" Label2.Caption = "组合框2" cmdRight.Caption = ">>" cmdRight.Enabled = True cmdLeft.Caption = "<<" cmdLeft.Enabled = False cmdExit.Caption = "结束" comboLeft.Text = "" For i = 1 To 10 comboLeft.AddItem Int(Rnd * 900) + 100 Next i comboRight.Text = ""End Sub答案: 1). cmdLeft.Enabled 2). cmdRight.Enabled 3). comboLeft.ListCount 4). comboLeft第6题程序填空(1分)(题号:511)'【程序填空】''题目:程序输出结果为:n=3 x=42 y=9请在【】处填入正确的内容Private Sub Command1_Click() Dim n, x, y As Integer '*SPACE* n = 0: x =【?】: y = 0 Do While x < 20 '*SPACE* n = n 【?】 y = x + y x = x * (x + 1) '*SPACE* 【?】 Form1.Print "n=" & Str(n) Form1.Print "x=" & Str(x) Form1.Print "y=" & Str(y)End Sub答案: 1). 1 2). + 1 3). Loop第7题程序填空(1分)(题号:523)'【程序填空】'题目:下面的程序用于求三个数中最大数'请在【】处填入正确的内容 Private Sub Command1_Click() Dim a, b, c, max, min As Integer a = Val(InputBox("请输入第一个数: ") b = Val(InputBox(" 请输入第二个数: ") c = Val(InputBox("请输入第三个数: ") '*SPACE* 【?】 = a min = a '*SPACE* If b > max Then 【?】 If b < min Then min = b '*SPACE* If 【?】 Then max = c ' If c < min Then min = c Print "最大数为: " max Print "最小数为:" min End Sub答案: 1). max 2). max = b 3). c > max 或 max < c第8题程序填空(1分)(题号:507)'【程序填空】'题目: 本程序实现功能:将顺序文本文件 “MYFILE.TXT” 的' 内容一个字符一个字符地读入文本框txtTest中请在【】处填入正确的内容Private Sub Form_Click() Dim InputData As String * 1 txtTest.Text = "" '*SPACE* Open App.Path & "MYFILE.TXT" For 【?】 As #1 '*SPACE* Do While 【?】 EOF(1) Input #1, InputData '*SPACE* txtTest.Text = txtTest.Text + 【?】 Loop Close #1 End Sub答案: 1). Input 2). Not 3). InputData第9题程序填空(1分)(题号:50)'【程序填空】''题目:从键盘上输入一串字符,以"?"结束,统计输入字符中的' 大、小写字母和数字的个数。Private Sub Form_Click()Dim ch$, n1%, n2%, n3%n1 = 0n2 = 0n3 = 0ch = InputBox("请输入一个字符")'*SPACE*While 【?】 Select Case ch Case "a" To "z" n1 = n1 + 1'*SPACE* Case 【?】 n2 = n2 + 1 Case "0" To "9" n3 = n3 + 1 End Selectch = InputBox("请输入一个字符")'*SPACE*【?】Print n1, n2, n3End Sub答案: 1). ch <> "?" 2). "A" To "Z" 3). Wend第10题程序填空(1分)(题号:62)'【程序填空】''题目:输入任何一个英文字母x,若x的值 为"a","c","d-f" ,则' 显示x的大写字母;若x的值为"m","o","p-z",则显示x的' 小写字母;若为其它的值,则显示xa(如输入的X的值是' g,则显示ga)。Private Sub Command1_Click()x = Text1.Text'*SPACE* 【?】 Case "a", "c", "d" To "f" Label1.Caption = UCase(x)'*SPACE* Case 【?】 Label1.Caption = LCase(x)'*SPACE* 【?】 Label1.Caption = Trim(x) + "a" End SelectEnd Sub答案: 1). Select Case x 2). "m", "o", "p" To "z" 3). Case Else第11题程序填空(1分)(题号:65)'【程序填空】'题目:根据输入的学习成绩,分别显示优秀(90分以上), 良好(75' 分以上),及格(60分以上),不及格几个等级。Private Sub Command1_Click()x = Val(Text1.Text)If x >= 90 Then Print "优秀"'*SPACE*【?】 Print "良好"ElseIf x >= 60 Then'*SPACE* 【?】'*SPACE*【?】 Print "优秀"End IfEnd Sub答案: 1). ElseIf x >= 75 Then 或 ElseIf 75 <= x Then 2). print "及格" 3). Else第12题程序填空(1分)(题号:60)'【程序填空'题目:输入任何一个英文字母x,' 若x的值 为"a","c","d-f" ,则显示x的大写字母;' 若x的值为"m","o","p-z",则显示x的小写字母;' 若为其它的值,则显示xa(如输入的X的值是g,则显示ga)。Private Sub Command1_Click()x = Text1.Text'*SPACE* 【?】'*SPACE* Case 【?】 Label1.Caption = UCase(x) Case "m", "o", "p" To "z" Label1.Caption = LCase(x) Case Else'*SPACE* 【?【 Ejd SelectEnd Sub答案: 1). Select Case x 2). "a", "c", "d" To "f" 3). Label1.CapÓion = Trim(x) + "a"第13题程序填空(1分)(题号:495)'【程序偫牺】'题目:本程序将利用文本框txtInput输入的一行字符串中的所有'字母加密,加密,加密结果在文本框txtCode中显示。加密方法如'下:将每个字母的序号移动5个位置,即"A"->"F","a ->"f",'"B"->"G"."Y"->"D","Z"->"E".程序段如下:'请在【】处填兡正确的内容Private Sub Form_Click() Dil strInput As String * 70 '输入字符串 Dim Code AS String * 70 '加密结果 Dim strTemp As String * 1 '当前处理的字符 Dim i As Intager Dim Length As Integer '字符串长度 Dim iAsc As Inege2 '第i个字Ascii码 '*SPACE*(* 【?】 叆字符串 i = 1 Code = "" '*SPACE* 【?】 '去掉字符串右边的空格,求真正的长度 Do While (i <= Length) '*SPACE* 【?】 '取第i个字符 If (strTemp >= "A" And strTemp <= "Z") Then iAsc = Asc(strTemp) + 5 If iAsc > Asc("Z") Then iAsc = iAsc - 26 Code = Left$(Code, i - 1) + Chr$(iAsc) ElseIf (strTemp >= "a" And strTemp <= "z") Then iAsc = Asc(strTemp) + 5 If iAsc > Asc("z") Then iAsc = iAsc - 26 Code = Left$(Code, i - 1) + Chr$(iAsc) Else Code = Left$(Code, i - 1) + strTemp End If i = i + 1 Loop '*SPACE* 【?】 '显示加密结果End Sub答案:'strInput = txtInput.Text 'Length = Len(RTrim(strInput) 'strTemp = Mid(strInput, i, 1) 'txtCode.Text = Code txtCode = Code 答案: 1). strInput=txtInput 或 strInput=txtInput.Text 2). Length = Len(RTrim(strInput) 3). strTemp = Mid(strInput, i, 1) 4). txtCode.Text = Code 或 txtCode = Code第14题程序填空(1分)(题号:531)'【程序填空】''题目:打印出 100-999 之间的所有水仙花数' 如果一个数的 百位,十位,个位数的立方和等于这个数本身' 则这个数为水仙花数请在【】处填入正确的内容Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer '*SPACE* For i = 100 To 【?】 '*SPACE* a = Int(i / 【?】) b = Int(i - 100 * a) / 10) '*SPACE* c = i - 100 * a - 【?】 If a * a * a + b * b * b + c * c * c = i Then Print i End If Next iEnd Sub答案: 1). 999 2). 100 3). 10 * b 或 b * 10第15题程序填空(1分)(题号:36)'【程序填空】''题目:以下程序的功能如(图1)。Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox("请输入a的值")b = InputBox("请输入b的值")c = InputBox("请输入c的值")d = b * b - 4 * a * cp = -b / (2 * a)If d >= 0 Then'*SPACE* If 【?】 Then r = Sqr(d) /(2 * a) x1 p + r x2 = p - r Else x1 = p x2 = p'*SPACE* 【?】 Print "x1=": x1, "x2=" x2'*SPACE*【?】 q = Sqr(-d) / (2 *a) Print "x1=" p; "+" q; "i", "x2=" p; "-" q; "i"End IfEnd Sub答案: 1). d > 0 或 0 < d 2). End If 3). Else第16题程序填空(1分)(题号:47)'【程序填空】'题目:以下程序段用于实现:输入两个正整数m和n,求其最大' 公因数和最小公倍数。 Private Sub Form_Click()Dim a%, b%, num1%, num2%, tempnum1 = InputBox("请输入一个正整数")num2 = InputBox("请输入一个正整数")'*SPACE*If 【?】 Then temp = num1: num1 = num2: num2 = tempEnd Ifa = num1b = num2'*SPACE*While 【?】 temp = a Mod b a = b'*SPACE* 【?】WendPrint "最大公因数为:" aPrint "最小公倍数为:" num1 * num2 / aEnd Sub答案: 1). num1 < num2 或 num2 > num1 2). b <> 0 3). b = temp第17题程序填空(1分)(题号:520)'【程序填空】'题目:完成程序,使程序输出值为 15'请在【】处填入正确的内容Private Sub Command1_Click() '*SPACE* Dim i, j, x,【?】 As Integer For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 '*SPACE* For 【?】 = 1 To 2 '*SPACE* x = x + 【?】 Next k Next j Next i Print x End Sub答案: 1). k 2). k 3). 6第18题程序填空(1分)(题号:539)'【程序填空】'题目: 随机生成10个数存入数组中,并将数组排序后输出'请在【】处填入正确的内容Private Sub Command1_Click() Dim a(10) As Integer Dim i, j, t As Integer For i = 1 To 10 '*SPACE* a(i) = CInt(10 【?】 Rnd + 1) Next For i = 1 To 9 '*SPACE* For j = 【?】 To 10 '*SPACE* If a(i) >【?】 Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i For i = 1 To 10 Print a(i) Next End Sub答案: 1). * 2). i + 1 或 1 + i 3). a(j)第19题程序填空(1分)(题号:537)'【程序填空】''题目:窗体中有Text1-Text7共7个文本框,单击按钮Command1在' Text7中显示前6个文本框中的数值的最大数请在【】处填入正确的内容Private Sub Command1_Click() Dim a, b, c, d, e, f, m As Integer a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) d = Val(Text4.Text): e = Val(Text5.Text): f = Val(Text6.Text) Call max(a, b, c, m) Call max(m, d, e, m) Call max(m, f, f, m) '*SPACE* Text7.Text = 【?】 End Sub'*SPACE*Sub max(x, y, z, 【?】) If x > y Then m = x Else m = y End If '*SPACE* If m < 【?】 Then m = z End IfEnd Sub答案: 1). m 2). z, m 3). z第20题程序填空(1分)(题号:56)'【程序填空】''题目:代码功能:输入数字1-7,显示其对应的星期几(例:输入' 1,显示星期日,如果输入其它内容,一律显示"输入错误"Private Sub Command1_Click()dim x as integerdim y as stringx=val(text1.text)'*SPACE* 【?】case 1y="今天是星期日"case 2 y="星期一"case 3y="星期二"case 4y= "星期三"case 5y="星期四"case 6'*SPACE*【?】case 7y= "星期六"'*SPACE* 【?】 y = "输入错误"end selectText2.Text = yEnd Sub答案: 1). select case x 2). y="星期五" 3). Case Else

    注意事项

    本文(VB上机练习题.doc)为本站会员(今天)主动上传,人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知人人文库网(点击联系客服),我们立即给予删除!

    温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。




    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

    网站客服QQ:2881952447     

    copyright@ 2020-2024  renrendoc.com 人人文库版权所有   联系电话:400-852-1180

    备案号:蜀ICP备2022000484号-2       经营许可证: 川B2-20220663       公网安备川公网安备: 51019002004831号

    本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知人人文库网,我们立即给予删除!