电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

19VB程序改错题收集答案在后面

19VB程序改错题收集答案在后面_第1页
1/8
19VB程序改错题收集答案在后面_第2页
2/8
19VB程序改错题收集答案在后面_第3页
3/8
瓯海一高学考专题练习叶胜利编辑VB 中常见的错误1、运行下面的 Visual Basic 程序,单击命令按钮 Command1,出现如下图所示的提示信息:Private Sub Command1_Click() Dim a As Single, b As Single a = Val(Text1.Text) b = 10 If a >= b b = a * a + 2 * b End If Label1.Caption = Str(b)End Sub出现该错误的原因是A.If 语句缺少 Then B.If 语句缺少 ElseC.变量 a 的数据类型说明错误 D.变量 b 的数据类型说明错误2、某 VB 程序的事件过程如下所示:Private Sub Command1_Click ( ) Dim a As Integer a = Val(Text1.Text)Text1.Text = Str(Int( a ))End Sub运行程序,单击按钮 Command1 后弹出如下图所示的错误提示。导致该错误的原因可能是(A.Int 函数计算时出现错误 B.Val 函数应用不正确C.窗体上缺少 Text1 文本框对象 D.变量 a 数据类型定义错误3、某Visual Basic程序段如下: Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2 To 10 a(i) = a(i - 1) * i Next i运行该程序段,会出现的错误提示为(A)下标越界(B)子程序或函数未定义(C)要求对象(D)溢出Interger 类型范围在-32768~32767,而 1 到 10 相乘超出这个范围4、某Visual Basic程序如下:Private Sub Command1_Click() Dim a(1 To 10) As Integer1 / 8)瓯海一高学考专题练习叶胜利编辑 Dim i As Integer For i = 1 To 10 a(i) = i * i Next i List1.AddItem Str(a(i))End Sub运行程序,单击命令按钮Command1后,出现的错误提示为(A) 下标越界(B) 子程序或函数未定义(C) 溢出(D) 类型不匹5、有如下的 Visual Basic 程序:Private Sub Command1_Click() Const pi = 3.14 Dim s As Single, r As Single r = Val(text1.Text) pi = 3.1415 s = pi * r ^ 2 Label1.Caption = "面积为" + Str(s)End Sub程序运行后,单击命令按钮 Command1,出现如图所示的错误提示,下列原因分析正确的是(A)常量不能用小数(B)pi 是常量,不允许赋值(C)文本框 Text1 中输入的数据不是常量(D)表达式结果超过了变量类型的范围6、某 Visual Basic 程序如下:Private Sub Command1_Click()Dim a(1 To 10) As Integer Dim i As Integer For i =...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

19VB程序改错题收集答案在后面

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部