kl800.com省心范文网

考前VB调试

VB 调试部分考点解析
一、正确代码二选一(正确:第一段) '====== 第一段程序代码 ===== '====== 第二段程序代码 ===== s=a+b s=a-b If s = Val(Text1.Text) Then If s <0 Then Label5.Caption = "正确!" Label5.Caption = "两数差为负数!" Else Else Label5.Caption = "错误!" Label5.Caption = "两数差为正数!" End If End If a = Int(Rnd() * 100) a = Int(Rnd() * 100) b = Int(Rnd() * 100) b = Int(Rnd() * 100) Label1.Caption = Str(a) Label1.Caption = Str(a) Label2.Caption = Str(b) Label2.Caption = Str(b) Text1.Text = "" Text1.Text = "" 二、单击 Command3 按钮显示“df.jpg”图片 (正确:将“"head.jpg"”改为“df.jpg”) Private Sub Command3_Click() Image1.Picture = LoadPicture("head.jpg") '① End Sub 三、该程序的功能是 (正确:重组后最大整数) Private Sub Command1_Click() Dim n As Integer, max As Integer Dim a As Integer, b As Integer, c As Integer, t As Integer x = Val(Text1.Text) a = x \ 100 b = x \ 10 Mod 10 c = x Mod 10 If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = c: c = b: b = t max = a * 100 + b * 10 + c Text2.Text = Str(max) End Sub 四、注释①和②所在行中找出惟一的错误并改正 (正确:将注释②“Text3.Caption”改为“ Text3.Text”) Dim n As Long '总观众人数 If n Mod 5 <> 0 Then num = num + 1 Dim m As Double '分钟数 s = m * 60 '① Dim s As Double '秒数 Randomize Dim num As Double '总组数(设定每 5 人一组) sum = 0 Dim sum As Double '所有人通过出口所需要的总 For i = 1 To num 时间 a = Int(Rnd * 3 + 3) Dim a As Integer '每一组通过出口的时间 sum = sum + a Dim doors As Integer '出口数 Next i Dim i As Integer doors = Int(sum / s) n = Val(Text1.Text) If sum Mod s <> 0 Then doors = doors + 1 m = Val(Text2.Text) Text3.Caption = Str(doors) '② num = n / 5 五、注释①和②所在行中找出惟一的错误并改正 (正确:将注释②“True”改为“False”) Private Sub Command1_Click() Image2.Visible = True '① Image3.Visible = False Image4.Visible = False Image5.Visible = True '② End Sub 六、修改程序中“①”所在行的语句, 实现验证码为密码的奇数位字符 (正确:在 nu 后加 step 2) Private Sub Command1_Click() Dim x, m As String Dim nu As Integer yz = "" x = Text1.Text

nu = Len(x) Label2.Caption = Str(nu) For i = 1 To nu ' ① m = Mid(x, i, 1) yz = yz + m Next i Label3.Caption = yz End Sub 七、修改程序中的一处代码 (正确:将“Label7.text”改为“Label7.caption” ) Dim n As Integer s = 0.9 * n * p Dim s As Single ElseIf n >= 10 Then n = Val(Text1.Text) s = 0.95 * n * p If n >= 100 Then Else s = 0.7 * n * p s=n*p ElseIf n >= 50 Then End If s = 0.8 * n * p Label7.text = "总费用为:" + Str(s) + " +运费" ElseIf n >= 20 Then 八、注释①和②所在行中找出惟一的错误并改正 (正确:将注释②“Str(s)”改为“s”) Private Sub Command1_Click() ElseIf pm <= 200 Then Dim pm As Single, s As String s = "中度污染" pm = Val(Text1.Text) ElseIf pm <= 300 Then If pm <= 50 Then s = "重度污染" s = "优" Else '① ElseIf pm <= 100 Then s = "严重污染" s = "良" End If ElseIf pm <= 150 Then Label2.Caption = Str(s) '② s = "轻度污染" End Sub 九、修改程序中的一处代码 (正确:在 End Sub 前一行加 Next i) Private Sub Command1_Click() Text2.Text = "" Dim i As Integer, s As String For i = 1 To Len(Text1.Text) Text2.Text = Text2.Text + Chr(Asc(Mid(Text1.Text, i, 1)) + 3) End Sub 十、修改①处的语句 (正确:将“Text1.Text”改为“Mid(Text1.Text,1,6)” ) Private Sub Command1_Click() Dim str1, str2 As String Text2.Text = Text1.Text '①归属地为身份证号码前 6 位 str1 = Mid(Text1.Text, 7, 8) '出生年月日为身份证号码从第 7 位开始的 8 位 Text3.Text = Left(str1, 4) + "年" + Mid(str1, 5, 2) + "月" + Right(str1, 2) + "日" '生日由截取的出生年、月、日连接得到 str2 = Mid(Text1.Text, 17, 1) '性别根据第 17 位得到 If Val(str2) Mod 2 = 0 Then Text4.Text = "女" Else Text4.Text = "男" End If End Sub 十一、注释①和②所在行中找出惟一的错误并改正 (正确:将“If (a / 62 = 0) And (a / 94 = 0) Then”改为“If (a Mod 62 = 0) And (a Mod 94 = 0) Then” Private Sub Command1_Click() Dim a As Long For a = 5008 To 5998 Step 10 If (a / 62 = 0) And (a / 94 = 0) Then '① Text1.Text = Str((a - 5008) / 10) '② End If Next a End Sub


VB考前复习的重点.pdf

VB考前复习的重点 - VB 考前复习重点【一~六】 重点: ★ 掌握面向对象的

VB考前复习重点.doc

VB考前复习重点 - VB 考前复习重点【一~六】 重点: ★ 掌握面向对象的程

vb期末考试复习资料(经典总结版).doc

vb期末考试复习资料(经典总结版) - 第一章 VISUAL BASIC 的特点

计算机二级考前强化vb_图文.ppt

计算机二级考前强化vb - 江苏省二级VB考试概述 ? 春季3月、秋季10月;一

全国计算机二级考试之VB教程(全集)_图文.ppt

全国计算机二级考试之VB教程(全集) - 这个资料非常详细,有需要的可以下载查看...... 全国计算机二级考试之VB教程(全集)_IT认证_资格考试/认证_教育专区。这个资料非...

vb上机考试操作题.doc

vb上机考试操作题 - 上机操作题 Vb 上机操作题 四、基本操作题 1.在考生

VB考试选择题真题精选.doc

VB考试选择题真题精选 - VB 考试真题精选,考前必备神器 20 ? 开通黄钻

VB考试简答题.doc

VB考试简答题 - VB考试简答题 1. 简述事件驱动。 答:传统的编程是面向过

【2017年最新】大学VB考试题库.doc

【2017年最新】大学VB考试题库 - 大学 VB 考试题库 一、单项选择题 1

2017年9月计算机二级考试VB上机操作题及答案(2).doc

2017年9月计算机二级考试VB上机操作题及答案(2) - 一、基本操作题 1[

大学VB考试题库.doc

大学VB考试题库 - 大学 VB 考试题库 一、单项选择题 1、与传统的程序设计

大学计算机二级考试常用vb代码.doc

大学计算机二级考试常用vb代码 - 参考代码如下: Private Sub Co

大一VB编程期末考试试题题库.doc

大一VB编程期末考试试题题库 - 试卷编号:9340 所属语言:Visual Basic 试卷方案:VB_考试 试卷总分:100 分 共有题型:5 种 一、填空 共 6 题 (共计 18 分....

最新大学VB考试题库及答案.doc

最新大学VB考试题库及答案 - 大学 VB 考试题库 一、单项选择题 1、与传统

VB考前复习重点.pdf

VB考前复习重点 - VB 考前复习重点【一~六】 重点: ★ 掌握面向对象的程

大学vb考试试题库大全.doc

大学vb考试试题库大全 - . 一、单项选择题 1、与传统的程序设计语言相比,V

VB考试题及答案.doc

VB考试题及答案 - VB程序设计期末考试题 一、选择题 1 下列常量中,是In

大一VB语言程序期末考试题及答案.doc

A ) 3 下面关于VB的集成开发环境(IDE)的叙述中,不正确的是( A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" ...

VB考试题及答案,DOC.doc

VB考试题及答案,DOC - VB程序设计期末考试题 一、选择题 1 下列常量中

高中信息技术学业水平考试专题复习VB程序典型错误分析.doc

高中信息技术学业水平考试专题复习VB程序典型错误分析 - 高中会考专题复习Visual Basic 程序调试典型错误分析 VB 中常见的程序调试错误可分为编译错误、实时...