在窗体上建立一个文本框、一个图片框和三个命令按钮,把三个命令.
vb第三章课后习题答案
习题一、单项选择题1、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（）A.PrintA=x+yB. Print"A="；x+yC. Print"A="+Str(x+y)D. Print"A="&x+y2、假定有如下的命令按钮(名称为Command1)事件过程：PrivateSubCommand1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEndSub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（）A. x的值是数值10B. 输入对话框的标题是“输入整数”C. 信息框的标题是“输入数据：10”D. 信息框中显示的是“输入的数据是：”3、有如下程序a=3;b=4PRINT b＜aEND运行后，输出的结果是( )A.4＞3B.-1C.0D.显示出错信息4、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是（）A. Private Sub Text1_Change()B. Private Sub Command1_Click()Command1.Caption=”计算机等级考试”Caption=”计算机等级考试”End Sub End SubC. Private Sub Form1_Click()D. Private Sub Command1_Click()Text1.Caption=”计算机等级考试”Text1.Text=”计算机等级考试”End Sub End Sub5、假定有如下的窗体事件过程：Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是（）A. Microsoft VisualB. MicrosoftC. BasicD. 56、窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示（）A. 434B. 45678C. 溢出D. 语法错误7、执行下面的程序，单击窗体，则在窗体上显示的是（）。
Visual Basic程序设计期末复习试题(A)含答案
（1）编写一个子过程，计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
VB课程试卷（A）卷第1页共3页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
3.执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
6.返回系统当前日期和时间的函数是(D)。
(A) Time()(B) Day() (C) Date()(D) Now()
6.运行以下程序后，x的值是(B)。
x=2
fori= 1 to 10 step 2
x = x +i
nexti
(A) 25(B) 27 (C) 38(D) 57
7.要让一个控件不显示，应将该控件的（D）属性设置成False。
Print x , y
14.下列程序的结果是________________。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1 to 5
X = X + i
Next r
VB模拟试题一
VB模拟试题一一、选择题1．工程文件的扩展名是（）A．.vbg B．。
vbp C．.vbw D．。
vbl2．一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有（）A．窗体文件（。
frm)、项目文件（.vbp/vbw）B．窗体文件（。
frm）、项目文件（。
vbp/vbw）和代码文件（。
bas)C．窗体文件（.frm)、项目文件（。
vbp/vbw)和模块文件(。
bas）D．窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（。
frx）3．以下关于窗体描述正确的是（）A．只有用于启动的窗体可以有菜单B．窗体事件和其中所有控件事件的代码都放在窗体文件中C．窗体的名字和存盘的窗体文件名必须相同D．开始运行时窗体的位置只能是设计阶段时显示的位置4．VB中控件主要分为3类,下面哪一种不是VB中的控件类（)A．标准控件B．ActiveX C．可插入控件D．外部控件5．在VB的基本数据类型中,通用类型(Variant)可以表示任何类型的变量,如果有定义Dim a,则以下变量赋值中正确的是（）A．a=”OK”B．A＄=OK C．a=04/01/2001 D．a＄=”OK”6．在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：Private Sub Command1_Click( )A=1。
2C=Len(Str＄（A)+Space（10))Text1.text=CEnd Sub程序运行后，单击命令按钮，在文本框中显示（）A．3 B．8 C．14 D．107．在MsgBox函数中哪一个参数是必须的（）A．prompt B．buttons C．title D．context8．以下语句的输出结果是（）Print Format＄（1234.5,”00,000。
00”)A．1234。
5 B．01，234.50 C．01,234.5 D．1,234.509．有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu。
大学VB期末考试题库终极版绝对全
一、单项选择题1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术2、赋值语句：a=123 & MID("123456",3,2)执行后，a变量中的值是（C）。
A、"12334"B、123C、12334D、1573、保存一个工程至少应保存两个文件，这两个文件分别是（B）。
A、文本文件和工程文件B、窗体文件和工程文件C、窗体文件和标准模块文件D、类模块文件和工程文件4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。
A、="VisualBasic窗体"B、Form1.Title="VisualBasic窗体"C、Form1.Caption="VisualBasic窗体"D、Form1.Text="VisualBasic窗体"5、为了装入一个Visual Basic应用程序，应当（D）A、只装入窗体文件（.frm）B、只装入工程文件（.vbp）C、分别装入工程文件和标准模块文件（.bas）D、分别装入工程文件、窗体文件和标准模块文件6、赋给一个数组的数据类型一定要（A）。
A、相同B、不相同C、两可D、都不对7、下面正确的赋值语句是（C）。
A、x+y=30B、y=π*r*rC、y=x+30D、3y=x8、Visual Basic 6.0集成环境的主窗口中不包括（C）。
A、标题栏B、菜单栏C、状态栏D、工具栏9、以下叙述中错误的是(C)。
A、Visual Basic 是事件驱动型可视化编程工具B、Visual Basic应用程序不具有明显的开始和结束语句C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D、Visual Basic中控件的某些属性只能在运行时设置10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。
VB课后作业
1.VB最突出的特点是：事件驱动编程机制。
2.VB集成环境的主窗口不包括状态栏。
3.f4激活属性窗口。
属性窗口的4各部分：对象框属性显示方式、属性列表、属性解释。
4.ctrl+F4,关闭窗口5.控件有3类：标准控件，activeX控件，可插入对象。
6.F7——打开代码窗口7.VB开发程序的三步：建立可视用户界面、设置可视界面特性、编写事件驱动代码。
8.控件和窗体的NAME属性是只读属性。
9.代码窗口：左栏：对象，右栏：过程。
10.VB的3个模块为：窗体，标准，类。
11.在窗体上画一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏文本框”和“显示文本框”。
当单击第一个命令按钮时，文本框消失；当单击第二个命令按钮时，文本框重现。
并在文本框中显示“VB程序设计”（字体大小为16）。
答：command1 clickText1.visiable=falseCommand2 clickText2.visiable=true.Text2.fontsize=16Text2.text=”VB程序设计”12.VB中变量名只能以字母开始。
13.or and 取负。
14.Unicode与ANSI的转换函数是：strconv。
Unicode方式，西文，中文都为1个字符，占2个字节。
15.28°=（28/180）*3.1416.任何函数的参数，都要用括号括起。
17.表达式中不可以出现pai，用3.14表示18.乘号要用*代表19.平方：20.数字乘以字母，之间也得加*21.ln2：用（log(2)/log(e)）表示。
22.mid函数，参数是从第几个开始后的几个。
23.VB中字符串要用引号括起来，日期/时间要用井号括起来。
24.优先级：* / \25.print sgn(-6^2)+abs(-6^2)+int(-6^2) →-126.负号与平方一起时：先平方，再负号。
27.format（）。
#不需添0，而0需要添。
vb考题 (1)
VB 期末复习一、选择题(1) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub程序运行后，单击命令按钮，执行的操作为A) 命令按钮移动到距窗体左边界、上边界各500的位置B) 窗体移动到距屏幕左边界、上边界各500的位置C) 命令按钮向左、上方向各移动500D) 窗体向左、上方向各移动500(1) B(2) 在窗体上有若干控件，其中有一个名称为Text1的文本框。
影响Text1的Tab 顺序的属性是A) TabStop B)Enabled C) Visible D)TabIndex(2) D(3) 下列语句合法的是_____A x + y = 2B x > 2 = yC x = y > 2D x = y++参考答案： C(4) 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A) For i=0 To List1.ListCount-1 …… Next C) For i=1 To List1.listCount…… Next (4) A(5) 以下Case 语句中错误的是A) Case 0 To 10 B) Case Is>10 C) Case Is>10 And Is<50 D) Case 3,5,Is>10(5) C(6) 以下关于图片框控件的说法中，错误的是A) 可以通过Print 方法在图片框中输出文本B) For i=0 To ListCount-1 …… Next D) For i=1 To ListCount …… NextB) 清空图片框控件中图形的方法之一是加载一个空图形C) 图片框控件可以作为容器使用D) 用Stretch属性可以自动调整图片框中图形的大小(6) D(7) 执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是A) Visual B) Basic C) 6 D) 11(7) C(8) 以下叙述中错误的是A) 下拉式菜单和弹出式菜单都用菜单编辑器建立B) 在多窗体程序中，每个窗体都可以建立自己的菜单系统C) 除分隔线外，所有菜单项都能接收Click事件D) 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见(8) D(9) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是A) 123.45 B) 12345.00 C) 12345 D)00123.45(9) B(10) 以下叙述中错误的是A) 一个工程可以包括多种类型的文件B) Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C) 程序运行后，在内存中只能驻留一个窗体D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样(10) C(11) 以下关于函数过程的叙述中，正确的是A) 函数过程形参的类型与函数返回值的类型没有关系B) 在函数过程中，过程的返回值可以有多个C) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D) 如果不指明函数过程参数的类型，则该参数没有数据类型(11) A(12) 以下关于变量作用域的叙述中，正确的是A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用B) 全局变量必须在标准模块中声明C) 模块级变量只能用Private关键字声明D) Static类型变量的作用域是它所在的窗体或模块文件(12) B(13) 确定一个控件在窗体上的位置的属性是A) Width和Height B) Width或Height C) Top和Left D) Top或Left(13) C(14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是A) Visual B) Basic C) Program D) 出错(14) D(15) 以下关系表达式中，其值为False的是A) "ABC">"AbC" B) "the"<>"they" C) "VISUAL"=UCase("Visual") D) "Integer">"Int"(15) A(16) 语句Print 5/4*6\5 Mod 2的输出结果是A) 0 B) 1 C) 2 D) 3(16) B(17) 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change()Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是A)空 B) abcdef C) abc D) def(17) D(18) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是A) -5 B) 25 C) 1 D) -1(18) C(19) 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是A) 变量X、Y的作用域相同 B) Y的作用域是Model1C) 在Form1中可以直接使用X D) 在Form2中可以直接使用X和Y(19) C(20) 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。
VB练习题(上机)含答案
VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
2013上VB教学第2章
7.2 VB对象及基本操作7.2.2 VB程序设计基本过程例题，按图要求，设计一个程序，在窗口中添加三个命令按钮，一个文本框。
该程序实现的功能如下：（见例题2.1）单击按钮1，在文本框中显示“欢迎使用Visual Basic 6.0”单击按钮2，清除文本框中显示的内容单击按钮3，退出程序1. 界面设计⑴．启动VB程序工作界面，建立一个EXE工程⑵．在窗体上添加如下图所示的3个按钮和1个文本框对象⑶．按下表设置各个对象的属性值。
属性Width Height Font Caption Text 控件对象窗体6000 4000 楷体、小三“例题2.1”文本框Text1 5000 1000 楷体、小三空按钮Command1 2000 800 楷体、小三“请单击此按钮”按钮Command2 1500 800 楷体、小三“清屏”按钮Command3 1500 800 楷体、小三“程序结束”界面设计完成后的界面外观2．编写程序代码⑴．按钮Command1代码双击按钮Command1，打开代码窗口，输入如下代码。
Private Sub Command1_Click()Text1.Text = "欢迎使用Visual Basic6.0"End Sub⑵．按钮Command2代码设置在代码窗口选择按钮Command2的单击事件Click，并输入如下代码Private Sub Command2_Click()Text1.Text = " "End Sub⑶．按钮Command3代码设置Private Sub Command3_Click()EndEnd Sub说明：Private Sub……End Sub是系统自动生成，中间蓝色的代码是用户按设计要求编写的程序代码。
⑷. 程序代码完成后窗口的内容如下图所示：⑸. 在编写程序中，要随时修改设计语句错误。
（见例题代码错误）一般出现红色文字，表示有语句、语法的错误，要更正。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1、编写程序，用文本框检查口令输入。
在窗体上建立一个文本框、一个图片框和三个命令
按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。
程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中；在文本框中输入口令；单击第二个命令按钮，检查输入口令是否正确。
如果正确，则在图片框中显示图形；否则显示信息框，要求重新输入，此时调用第一个命令按钮的Click 事件过程，重新在文本框中输入口令，直到输入口令正确为止。
如果单击“结束”按钮，则结束程序。
画出界面设计，属性列表，写出相关事件过程代码。
答：Text1
PasswordChar = "*"
Command3
Caption = " 结束"
Command2
Caption = " 检查口令"
Command1
Caption = " 开始"
Image1
Stretch = True
Visible = False
Label1
Caption = " 口令"
Option Explicit
Dim msg As String
Const password = "1234"
Private Sub Command1_Click( Text1.Text = ""
Image1.Visible = False
Text1.SetFocus
End Sub
Private Sub Command2_Click(
If Text1.Text = password Then Image1.Visible = True
Else
msg = "口令不对，请重新输入！" MsgBox msg
Call Command1_Click
End If
End Sub
Private Sub Command3_Click( End
End Sub
除此之外还要画上书上的界面。
2、从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素
对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换。
第5个元素与第6个元素互换。
分别输出数组原来各元素和对换后各元素的值。
答：Dim arra(1 To 10 As Integer, arrb(1 To 10 As Integer
Dim i As Integer, x As Variant
For i = 1 To 10
arra(i = Val(InputBox$("请输入要互换的10个数"
Next i
For i = 1 To 10
arrb(11 - i = arra(i
Next i
Print "原数："
For Each x In arra
Print x; " ";
Next x
Print
Print "互换后的数："
For Each x In arrb
Print x; " ";
Next x
End Sub
3、编写程序，根据输入整数n ，计算并输出S=1!+2!+3!+…+n!的结果，请将求阶层的功编
写为一个函数。
答：'**** 9.2 函数过程****
Function fac(n As Integer As Double
Dim i As Integer, z As Double
z = 1
For i = 1 To n
z = z * i
Next i
factorial = z
End Function
'****9.2 主程序（调用函数过程的事件过程****
Private Sub Command2_Click(
Dim s As Double, a As Integer, b As Integer, c As Integer
a = Val(InputBox$("请输入A"
b = Val(InputBox$("请输入B"
c = Val(InputBox$("请输入C"
s = fac(a + fac(b + fac(c
Print "s="; s
End Sub
4、税务部门征收所得税，规定如下：
1 收入在200元以内的，免征；
2 收入在200~400元内的，超过200元的部分纳税3%；
3 收入超过400元的部分，纳税4%；
4 当收入达到或超过5000元时，将4%税金改为5%。
编写程序接收用户输入的收入值计算并输出此用户应付的税金。
答：
Private Sub Command6_Click(
Dim m As Double, tax As Double
m = Val(InputBox$("请输入收入"
If m <= 200 Then
tax = 0
ElseIf m > 200 And m <= 400 Then
tax = (m - 200 * 0.03
ElseIf m > 400 And m < 5000 Then tax = (m - 400 * 0.04
Else
tax = (m - 400 * 0.05
End If
Print "收入所得税："; tax
End Sub。