Visual Basic 课堂作业求助
作者&投稿：蒯甄 （若有异议请与网页底部的电邮联系）
tect1和2分别改成Text1 Text2
并且数值计算需要强制转换类型，用val函数处理一下
x=val(Text1.text)同样的y也需要这么处理
这种问题在知道上出现过无数次了，没人会给你你想要的，如果你是想学习，建议不懂得先查书，找不到就上百度，会有很多人帮你的。如果只是想应付老师作业，那就没有意思了
I.一、单选题
1. 以下叙述中错误的是（）。
C. Visual Basic工具箱中所有控件都具有宽度（Width）和高度（Height）属性：【timer就没有】
2. 使用Visual Basic编程,将工具箱中的工具称为( )。
B. 工具
3. VB是一种面向对象的程序设计语言，构成对象的三要素是（ ）。
A. 属性、事件、方法
4. 以下叙述错误的是（）。
C. Visual Basic 应用程序只能以解释方式执行【编译方式当然也可以的】
5. 合法的变量名是（ ）。
D. Sum
6. 下列变量名写法错误的是（ ）。
D. 123abc【开头必须是字母】
7. 以下不能在"工程资源管理器"窗口中列出的文件类型是( )。
D. .ocx
8. 以下叙述中错误的是（ ）。
C. 程序运行后，在内存中只能驻留一个窗体【当然是多个可以共存】
9. 以下叙述中错误的是（）。
C. 窗体文件包含该窗体及其控件的属性
10. 以下不属于Visual Basic系统的文件类型是（）。
B. .bat
11. 以下叙述中错误的是（）。【前面有过？】
C. Visual Basic应用程序只能以解释方式执行
12. 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。
C. 通用对话框
13. 下列VB变量名中，（ ）是非法的变量名。
C. H 2 【有空格】
14. 以下合法的Visual Basic标识符是（）。
A. ForLoop
15. 符号（ ）是VB中的合法变量名。
D. X35
二、判断题（共 5 道试题，共 25 分。）
1. 标准模块中的任何过程都可以在整个工程范围内被调用。
B. 正确
2. 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样。
B. 正确
3. Visual Basic 应用程序只能以解释方式执行
A. 错误
4. 事件可以由用户引发，也可以由系统引发
B. 正确
5. 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B. 正确
II.
一、单选题（共 15 道试题，共 75 分。）
1. 设x=4,y=8,z=7，表达式x<y And (Not y>z) Or z<x的值是（）。
D. FALSE
2. 结束当前程序的语句是（ ）。
C. end
3. 在以下描述中正确的是（ ）。
A. 标准模块中的任何过程都可以在整个工程范围内被调用
4. 语句Print 5/4*6 Mod 2的输出结果是（ ）。
A. 0
5. 设a=5,b=10，在执行c=int((b-a)*Rnd +a)+1语句后，求c值的范围为（ ）。
C. 6~10
6. 下面程序段运行后，变量Value的值为（ ）。 x=20 IF x>=10 Then Value =5*x Else Value =4*x
A. 100
7. 若某过程声明为Sub aa(n as integer),则调用 实参与形参是按地址传递。
C. Call aa(n) 【注意空格不能掉了】
8. 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是（ ）。
B. Y的作用域是Model1
9. 下面程序段是计算（ ）公式的。 s=0:t=1 For i=1 To 10 t=t*i s=s+t Next i
C. s=1!+2!+3!+4!+5!+6!+7!+8!+9!+10!
10. 以下叙述中错误的是（）
C. 窗体的Hide方法和Unload方法的作用完全相同
11. 下列Visual Basic程序段运行后，变量s、t的值为（）。 s=0:t=1 For k=2 To 4 s=s+k t=t*k Next k
B. 9 24
12. 在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：Private Sub Command1_Click() a$ = "software and hardware" b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1 End Sub 则在弹出的信息框的标题栏中显示的信息是（）。
C. hardware
13. 在窗体Form1的一个事件过程中，使用 来清除窗体上所绘制的图形，是不正确的。
A. Form1.Cls
14. 以下关于MsgBox的叙述中，错误的是（）。
D. "MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数量"
15. 判断点P（x1,y1）是否在圆内（圆的轨迹方程为：x2+y2=4）的表达式为 。
B. x1*x1+y1*y1<4
二、判断题（共 5 道试题，共 25 分。）
1. 如果使用Option Base 2, 则表示缺省的数组下界为2。
A. 错误【用option base 只能设置1，不设置则是0】
2. vb中全局变量必须在标准模块中声明。
B. 正确
3. 窗体的WindowsState属性是可读写属性。
A. 错误
4. OPTION EXPLICIT语句可以放在窗体模块的声明段中。
B. 正确
5. 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递。
A. 错误
III.
一、单选题（共 15 道试题，共 75 分。）
1. 如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（）。
D. -
2. 确定复选框是否选中，可访问的属性是（ ）。
A. Value
3. 不属于VB程序的基本结构的是（ ）。
A. 层次结构
4. 运行时组合框控件Comb1中所选择的表项，可以表示为 。
A. Comb1.Text
5. 设有语句Open "c:\Test.Dat" For Output As #1,以下错误的叙述是（ ）。
D. 执行该语句后，就可以通过Print #语句向文件Test.Dat中写入信息
6. 以下关于多重窗体程序的叙述中，错误的是（）。
A. 用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体
7. 以下叙述中正确的是（）。
B. 随机文件中每个记录的长度是固定的
8. 假定X是数值型变量，由函数组成的表达式INT(X/2)=X/2的作用是（ ）。
A. 用于测试X是否偶数
9. 数学式子sin30°写成VB表达式是（ ）。
D. Sin(30*3.14/180)
10. 以下叙述中错误的是（）。
C. Visual Basic应用程序只能以解释方式执行
11. 以下声明语句中错误的是（）。
B. Dim var2 = 'ABC'
12. 要使shape 控件以实心方式填充，应该设置其 属性。
B. FillStyle
13. 目录列表框的Path属性的作用是（ ）。
A. 显示当前驱动器或指定驱动器上的路径
14. 以下关于过程及过程参数的描述中，错误的是（）。
C. 只有函数过程能够将过程中处理的信息传回到调用的程序中
15. 在窗体上画一个命令按钮，名称为command1，然后编写如下事件过程： Private sub command1_click () a$=”software and hardware” b$=right(a$,8) c$=mid(a$,1,8) msgbox a$, ,b$,c$,1 end sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是（）。
C. hardware
二、判断题（共 5 道试题，共 25 分。）
1. 可以通过Print方法在图片框中输出文本
B. 正确
2. 下列程序段的语法是正确的。 If x >0 Then x=x+2 Else x=x-2 End If
A. 错误
3. 语句Text1.Caption=”Pretty” 的语法是正确的。
B. 正确
4. 单选按钮与复选框对象的Value属性类型不同，且只能取值True 或False。
A. 错误
5. Input语句产生一个具有提示信息并可供用户输入数据的对话框。
A. 错误
巫沈硫酸： (保存时窗体文件名设置为“2.1 取学号中间4位.frm”,工程文件名设置为“2.1 取学号中间4位.vbp”) 这个要求你就自己写吧! 我只能给你上面的代码 数学方法 ,也就把上面的 200912345678 当成一个数 Dim val1 As Double val1 = 200912345678# val1 = Int(val1 / 10000) Mod 10000 msgbox val1 字符处理方法 msgbox mid(＂200912345678＂,5,4)
赛罕区15253211121： vb作业啊 做做？
巫沈硫酸：1- 5 CCBCA 6-10 CCCCD
赛罕区15253211121： Visual Basic程序设计形考作业 - 0001 - ？
巫沈硫酸： 1.C2.C3.A4.D 5.D 6.C 7.A 8.A 9.D 10.B
赛罕区15253211121： visual basic 编程题？
巫沈硫酸： 由于text2.text = a*a 4*a这段代码在End If 后面,所以即使a=＂＂也会计算,那就会出错.可以改为 Private Sub Command1_Click() Dim a As String a = Text1.Text If a = ＂＂ Then MsgBox ＂请输入一个数＂, vbCritical, ＂-_-!!!＂ Text1.Text = ＂＂ Text2.Text = ＂＂ Else On Error Resume Next Text2.Text = a * a 4 * a End If End Sub
赛罕区15253211121： 帮做ViSual Basic/vb程序设计作业 - ？
巫沈硫酸： Function sum4() As StringDim s1%, s2%, s3%, s4%, s As StringFor s1 = 1 To 9 For s2 = 0 To 9 For s3 = 0 To 9 For s4 = 0 To 9 If s1 + s2 + s3 + s4 =...
赛罕区15253211121： Visual Basic 课程考试10道选择题的正确答案,请填空?？
巫沈硫酸： Dim aX$ = InputBox(Left(str1, 6) & i & Right(str1, 9))If X = ＂E＂ Then Exit For
赛罕区15253211121： 大学VB编程作业 - ？
巫沈硫酸： boolean num(x){ boolean bl=true; if(xelse { int t = x/2; for(int i =2;iif(x%i==0){bl =false; break;} } } return bl; }
赛罕区15253211121： 我的VB作业5 - ？
巫沈硫酸： 41.c42.按字母43.d44.d45.b46.F147.d48.b49.c50.d**说明:49绝对是选c,text中没有caption属性,只有text属性用来改框内显示的内容.
赛罕区15253211121： VB程序设计作业？
巫沈硫酸：'仅供参考'----------------------------------------------------------------------------------- 1:B 2:C 3:C 4:＂我觉得这题又点矛盾,因为它四个答案里面都可以对图片框 赋值的,硬要选一个的话就选择C吧,原因,程序运行的时候剪切 板应该没有图片的,如果有...
赛罕区15253211121： 140(1关于VB的一道选择题 1、Visual Basic以( )为运行机制. - ？
巫沈硫酸：[选项] A. 顺序执行 B. 事件驱动 C. 执行计划 D. 后台作业
