vb练习题,电子版 第七章 Visual Basic控制结构(改)
visualbasic的练习题

visualbasic的练习题Visual Basic(VB)是一种广泛使用的编程语言,它易于学习和使用。
为了帮助读者熟悉VB并通过实践提高编程能力,本文将提供一些VB练习题。
练习题1:计算器应用程序编写一个简单的计算器应用程序,要求用户输入两个数字和操作符(加号、减号、乘号或除号),然后计算并显示结果。
练习题2:学生信息管理系统创建一个学生信息管理系统,要求能够添加、删除和修改学生信息,并能够显示学生列表和单个学生详细信息。
练习题3:文本编辑器设计一个简单的文本编辑器,具备基本的文本编辑功能,如打开、保存、剪切、复制和粘贴。
练习题4:图书管理系统构建一个图书管理系统,能够管理图书库存信息,包括添加新书籍、借阅、归还和查询图书。
练习题5:数据验证工具编写一个数据验证工具,能够根据设定的验证规则对用户输入的数据进行验证,如邮箱格式、手机号码格式等。
练习题6:迷宫游戏开发一个迷宫游戏,用户通过键盘控制游戏角色在迷宫中移动,寻找出口并避免陷阱。
练习题7:汽车租赁系统设计一个汽车租赁系统,要求能够查询可租赁的汽车、租车、归还车辆并计算租金。
练习题8:音乐播放器创建一个简单的音乐播放器应用程序,能够播放音乐文件、显示歌曲信息和控制播放进度。
练习题9:日历应用程序实现一个日历应用程序,能够显示当前月份的日历并提供添加、编辑和删除日程的功能。
练习题10:银行管理系统设计一个银行管理系统,能够管理用户账户,包括存款、取款、转账和查询余额等功能。
以上是一些常见的VB练习题,通过完成这些练习,读者可以对VB编程有一个较为全面的了解,并提高自己的编程能力。
希望读者能够积极参与练习,逐步提升自己在VB领域的技术水平。
Visual Basic 程序控制结构练习及答案

1.对于语句If x=1 Then y=1,下列说法正确的是()。
A、x=1 和 y=1 均为赋值语句B、x=1 和 y=1 均为关系表达式C、x=1 为关系表达式, y=1 为赋值语句D、x=1 为赋值语句, y=1 为关系表达式答案:C,此题考察IF语句的基本理解,等号有关系运算符以及赋值两种作用。
2.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是()。
A、If sex="男"And age<40 And (duty="教授"Or duty="副教授") Then n=n+1B、If sex="男"And age<40 And InStr(duty,"教授")>0 Then n=n+1C、If sex="男"And age<40 And Right(duty,2)= "教授" Then n=n+1D、If sex="男"And age<40 And duty="教授"And duty="副教授" Then n=n+1答案:D ,选项中的InStr(duty,"教授")>0表示duty字符串中含有“教授”两个字,Right(duty,2)= "教授"表示duty字符串右边两个字是“教授”。
3.下面程序段求两个数中的大数,不正确的是()。
A、Max=IIf(x>y,x,y)B、If x>y Then Max=x Else Max=yC、Max=x:If y>=x Then Max=yD、If y>x Then Max=y :Max=x答案:D,在D项中,冒号将两个语句相连,由于Max=x无论如何都会被执行,所以输出的永远是x的值。
visual_Basic程序设计教程_课后习题答案及练习

第三章 VB基本语言
一、填空题
1、一般可以使用__________关键字声明常量。
2、______类型也称变体类型,是一种通用的、可变的数据类型,它可表示或存储任何一种
数据类型。
3、变量的声明分为两种方法:__________和____________。 4、在VB中,用___________________语句设定数组的下界,用_____________ 和__________________语句分别返回数组的上、下界。 5、在代码模块中加入Option Explicit的目的是 _____________________。 6、function aa (a1 as date,optional a2 as boolean) as single,写出optional 命令的作用__________________。 7、在VB中,我们用一个简单的______语句就能实现退出程序。 8、生成消息框的命令是____________,生成输入框的命令是 ____________。 9、通用对话框(commondialog)属activex控件,它可以显示多个标准 对话框,包括打开/另存为、字体、打印等对话框,若要显示所有文 件,则应设置其属性filter=____________,若要使它显示为打印对话 框,则应使用什么方法____________。 10、从字符串中任意位置截取字符的函数是__________。 11、语句For j = 3 To 20 Step 3 使循环体执行了______次。 12、对于正在使用的动态数组Arraya(),要增加一个单元,但不能破坏数组内的数据,则应
二、选择题
1、下面不是VB工作模式的是( ) A.设计模式 B.运行模式 C.汇编模式 D.中断模式 2、可视化编程的最大优点是( ) A.具有标准工具箱 B.一个工程文件由若干个窗体文件组成 C.不需要编写大量代码来描述图形对象 D.所见即所得 3、下列不能打开属性窗口的操作是( ) A.执行“视图”菜单中的“属性窗口”命令 B.按F4键 C.按Ctrl+T D.单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是( ) A.Ctrl+D B.Ctrl+E C.Ctrl+F D.Ctrl+G 5、Visual Basic的编程机制是( ) A.可视化 B.面向对象 C.面向图形 D.事件驱动
visual basic 第七章

输出三者之中最大者。 例1:输入三个数a , b , c ,输出三者之中最大者。 输入三个数a Private Sub Command1_Click() Dim a!, b!, c!, max! a = InputBox(“请输入第 1 个数:”) 请输入第 个数: b = InputBox(“请输入第 2 个数:”) 请输入第 个数: c = InputBox(“请输入第 3 个数:”) 请输入第 个数: max = a ‘ 设 a 为最大值 If b > max Then max = b ‘ 比较后保留最大值 If c > max Then max = c Print a; “、”; b; “ 与 ”; c; “ 之中最大值是:” 之中最大值是: 、 Print Print max End Sub
பைடு நூலகம்
7.1 选择控制结构 在程序设计中常遇到这样问题: 在程序设计中常遇到这样问题:某些运算和操作的执 行取决于某条件是否成立。例如,求变量x的绝对值: 行取决于某条件是否成立。例如,求变量x的绝对值:
这就是说,需要按条件x≥0或x<0分别进行计算。 这就是说,需要按条件x≥0或x<0分别进行计算。对于 x≥0 分别进行计算 这类具有两个分支的操作,VB通过选择结构程序来解 这类具有两个分支的操作,VB通过选择结构程序来解 用条件( 语句来实现。然而,实际问题中, 决,用条件( If )语句来实现。然而,实际问题中, 分支条件往往不限于两个, 分支条件往往不限于两个,需要在不同情况下选择不 同的执行语句。为此, VB 还提供了便于实现多种选 同的执行语句。为此, 择的情况语句( 语句)。 择的情况语句( Select Case 语句)。
3、另一种块结构条件语句 、 格式: 格式: 功能:先计算“条件1”的值 的值, 功能:先计算“条件 的值,若为 条件1 If 条件1 Then True,则执行块 ,尔后转去执行 ,则执行块1, 语句块1 语句块1 If的后续语句;若为 的后续语句; 的后续语句 若为False,则顺 , 条件2 [ ElseIf 条件2 Then 序计算其后的“条件” 序计算其后的“条件”值,当某个 语句块2 语句块2 ] 条件”的值为True,则执行与 “条件”的值为 , [ ElseIf 条件 3 Then 其相关的Then后的语句块,尔后 后的语句块, 其相关的 后的语句块 语句块3 语句块3 ] 的后续语句。 转去执行 If的后续语句。若所有的 的后续语句 …… 条件”均为False,有Else时, “条件”均为 , 时 [ Else 则执行语句块n+1,尔后转去执行 则执行语句块 , 语句块n+1 语句块n+1 ] If的后续语句;无Else时,则什么 的后续语句; 的后续语句 时 End If 也没做,直接转去执行If的后续语 也没做,直接转去执行 的后续语
Basic控制结构(1)

格式: Select Case 测试表达式
Case 表达式列表1 语句块1
[Case 表达式列表2 语句块2]
… [Case 表达式列表n-1
语句块n-1] [Case Else
语句块n] End Select
功能:根据“测试表达式”的值,选择第一个符合条件的语 句块执行。
Select Case语句的执行过程是:先求“测试表达式”的值, 然后顺序测试该值符合哪一个Case子句中情况,如果找 到了,则执行该Case子句下面的语句块,然后执行End Select下面的语句;如果没找到,则执行Case Else下面 的语句块,然后执行End Select下面的语句。
条件判断结构也叫分支结构或选择结构。是指根据 所给的条件,选择执行一组代码。它的特点是在若干个分 支中选一组执行。
条件语句也称为if语句,有两种格式,一种是单行结 构,一种是块结构
7.1.1 单行结构条件语句
格式:if 条件表达式 then 语句1 [else 语句2] 功能:如果条件表达式成立,则执行语句1,否则
原则:每一个“else”部分都与它前面的、未曾被配对的“if –then”配对。
7.1.2 块结构 格式: if 条件表达式 then
语句序列1
[else 语句序列2]
end if 功能: 例: (1)if a>b then
max=b
end if (2)if age1=age2 then
print age1 print “甲与乙同岁”
end if (3)if score>=60 then
str1=“及格”
else print “不及格”
end if
(4)if age1=age2 then print age1 print “甲与乙同岁”
vb试题及答案选择

vb试题及答案选择VB试题及答案选择1. 在Visual Basic中,以下哪个关键字用于声明变量?A. DimB. ConstC. FunctionD. Sub答案:A2. 以下哪个选项不是Visual Basic的控制结构?A. If...Then...ElseB. For...NextC. Do...LoopD. Switch...Case答案:D3. 在Visual Basic中,如何将文本框(TextBox)的内容赋值给一个变量?A. Dim text As String = TextBox1.TextB. Dim text As String = TextBox1.TextC. Dim text As String = TextBox1.ValueD. Dim text As String = TextBox1.Text答案:A4. 如果要在Visual Basic中创建一个窗体(Form),应该使用以下哪个类?A. FormB. UserControlC. PanelD. Button答案:A5. 在Visual Basic中,如何声明一个名为“myFunction”的过程,它不接受参数也不返回值?A. Function myFunction() As VoidB. Sub myFunction()C. Function myFunction() As IntegerD. Sub myFunction() As Integer答案:B6. 如果要在一个事件处理程序中引用当前窗体,可以使用哪个关键字?A. MeB. ThisC. SelfD. Current答案:A7. 在Visual Basic中,如何声明一个数组?A. Dim numbers(5) As IntegerB. Dim numbers As Integer(5)C. Dim numbers(5) As StringD. Dim numbers As Integer[5]答案:A8. 在Visual Basic中,以下哪个是正确的字符串连接运算符?A. +B. &C. *D. =答案:B9. 如何在Visual Basic中声明一个名为“myClass”的类?A. Function myClassB. Sub myClassC. Class myClassD. Dim myClass答案:C10. 在Visual Basic中,以下哪个关键字用于捕获所有未处理的异常?A. Try...CatchB. If...Then...ElseC. For...NextD. While...End While答案:A11. 在Visual Basic中,如何声明一个名为“myButton”的按钮?A. Dim myButton As ButtonB. Sub myButtonC. Function myButtonD. Dim myButton As Control答案:A12. 在Visual Basic中,如何将一个变量的值增加1?A. Increment myVarB. myVar += 1C. myVar = myVar + 1D. myVar.Increment()答案:C13. 在Visual Basic中,如何声明一个名为“myLabel”的标签?A. Dim myLabel As LabelB. Sub myLabelC. Function myLabelD. Dim myLabel As Control答案:A14. 在Visual Basic中,以下哪个关键字用于退出当前的过程?A. ExitB. ReturnC. EndD. Quit答案:A15. 在Visual Basic中,如何声明一个名为“myList”的列表?A. Dim myList As List(Of String)B. Dim myList As String()C. Dim myList As ArrayD. Dim myList As Collection答案:A16. 在Visual Basic中,如何声明一个名为“myDictionary”的字典?A. Dim myDictionary As DictionaryB. Dim myDictionary As HashtableC. Dim myDictionary As List(Of String)D. Dim myDictionary As Array答案:A17. 在Visual Basic中,如何声明一个名为“myEvent”的事件?A. Event myEventB. Sub myEvent()C. Function myEvent()D. Dim myEvent As Event答案:A18. 在Visual Basic中,如何声明一个名为“myDelegate”的委托?A. Delegate myDelegateB. Sub myDelegate()C. Function myDelegate()D. Dim myDelegate As Delegate答案:D19. 在Visual Basic中,如何声明一个名为“myEnum”的枚举?A. Enum myEnumB. Sub myEnumC. Function myEnumD. Dim myEnum As Enum。
VB第七章习题答案

上海立信会计学院班级:学号:姓名:指导教师:系部:专业:习题七 p1911.框架的作用是什么如何在框架中创建控件答:框架的作用:(1)对单选按钮进行分组,每一组单选按钮都是独立的,对一组单选按钮进行操作不会影响其他组单选按钮的选择。
(2)对窗体上现有控件进行分组,提供视觉上的区分和总体的激活或屏蔽特性。
在窗体上创建框架及其内部控件时,必须先建立框架,然后在其中建立各种控件。
在框架内创建控件的方法如下:(1)先单击工具箱上的工具,然后利用出现的“+”指针,在框架内适当位置拖拉出适当大小的控件,不能使用双击工具箱上工具的自动方式。
(2)如果要用框架对窗体中现有控件进行分组,则应先选定控件,然后剪切(Ctrl+X)到剪切板,最后粘贴(Ctrl+V)到控件上。
2.如果要让定时器每30s产生一个Timer事件,则InterVal属性应设置为多少答:Interval属性值的单位是ms(),因此要让定时器每30s产生一个Tiner事件,则Interval属性值应设置为30000。
5.在使用“字体”对话框之前必须设置什么属性答:在显示字体对话框之前必须设置Flags属性,指示选用何种字体,否则将发生不存在字体错误。
6.热键与快捷键有什么区别应如何实现答:如果要通过键盘来访问菜单项,则需要为菜单项定义热键与快捷键。
热键是菜单项中带有下划线的字符,建立热键的方法是在菜单标题的某个字符前加上一个“&”符号,显示时这一字符下面有一个下划线,表示该字符是一个热键字符。
快捷键不是用来打开菜单,而是直接去执行相应的操作。
要为菜单项指定快捷键,只要打开快捷键下拉式列表框并选择一个键,则菜单项标题的右边就会显示快捷键名称。
9.简述窗体之间数据互访如何才能实现。
答:在多重窗体程序中,不太窗体之间可以互相访问,即一个窗体可以访问另一个窗体中的数据。
两个窗体之间访问有下列三种情况:(1)一个窗体可以直接访问另一个窗体上控件的属性,形式如下:另一个窗体名.控件名.属性(2)一个窗体直接访问在另一个窗体中定义的全局变量,形式如下:另一个窗体名.全局变量名(3)在模块中定义公共变量实现相互访问,这是最常用的方法。
vb练习题(有答案)(打印)

《大学Visaul Basic程序设计》复习题第一章Visual Basic程序设计概述第一题:是非题(共10分,每项1分)1. VB6.0只能运行在Windows 2000下,不能运行在Windows 98下。
13A.对B.错√2. 用户控件和系统控件都可以加载到工具箱上,并且永久保留。
4A.对B.错√第二题、单选题(共45分,每项1.5分)1. VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。
15A.工具B.编辑C.视图√D.调试2. 在VB的集成环境中创建VB应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是______。
2A.窗体布局窗口B.立即窗口C.代码窗口√D.监视窗口第二章VB的编程机制第一题:是非题(共10分,每项1分)1. 在事件驱动的应用程序中,代码是按照预定的路径执行的。
15A.对B.错√2. 标签控件即可以用来显示用户不能编辑和修改的文本,也可以用来编辑和修改文本。
9A.对B.错√3. 每一个控件实质上都是一个微型程序。
2A.对√B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。
A.对√B.错第二题、单选题(共45分,每项1.5分)1. 文本框没有_____属性。
21A.EnabledB.VisibleC.BackColorD.Caption√2. 文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是___。
9A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的______事件中判断。
3A.ChangB.KeyDownC.Click√D.KeyPress4. 如果文本框的Enabled属性设为False,则___。
6A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容√C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容第三题、简单程序(共15分,每项1.5分)1. 以下程序的输出结果是______。
vb练习题,电子版_第七章_Visual_Basic控制结构(改)

1.VB的3中结构化程序设计的3种基本结构是________。
A) 选择结构、过程结构、顺序结构B) 递归结构、选择结构、顺序结构C) 过程结构、转向结构、递归结构D) 选择结构、顺序结构、循环结构2.用If语句表示分段函数3311()11x xf xx x⎧-≥=⎨+<⎩,以下________表示方法不正确。
A) f=x^3+1If x>=1 Then f=s^3-1B) If x>=1 Then f=x^3-1If x<1 Then f=x^3+1C) If x>=1 Then f=x^3-1f=x^3+1D) If x<1 Then f=x^3+1 ElseF=x^3-13.执行下面的程序段后显示结果是________。
Private Sub Form_Click()Dim mIf m Then Print m Else Print m+1End SubA) 0 B) 1 C) ””D) False5.下面程序段的运行结果是________。
cj=85If cj>90 Then dj="A"If cj>80 Then dj="B"If cj>70 Then dj="C"If cj>60 Then dj="D"If cj<60 Then dj="E"Print "dj=";djA) dj=B B) dj=C C) dj=D D) dj=E6.下列语句正确的是________。
A) If K<3*N And k>N Then N=k^3B) If K<3*N And k>N Then N=k3C) If K<3*N : k>N Then N=k^3D) If K<3*N And k>N Then N=k**37.设X=2.0,y=8.0,z=6.0,L=True,则下列Visual Basic表达式中值为True的是________。
VB控制结构及答案

VB控制结构一、单选题1. 下面的程序运行后,显示的结果是________。
Dim x%If x Then Print x+1 Else Print xA) 1 B) 0 C)显示错误信息 D) 22. 语句If x = 1 Then y = 1, 下面说法正确的是______。
A) x = 1 和 y = 1均为赋值语句B) x = 1 和 y = 1均为关系表达式C) x = 1 为赋值语句,y = 1 为关系表达式D) x = 1 为关系表达式,y = 1 为赋值语句3. 下面分段函数 , 下面不正确的程序段是______。
A) If x >= 1 then f=sqr(x+1) B) If x >= 1 then f=sqr(x+1) f=x*x+3 If x < 1 then f=x*x +3C) If x >= 1 then f=sqr(x+1) _ D) If x < 1 then f=x*x +3 _ Else f = x*x +3 Else f=sqr(x+1)5. 下面的程序段,显示的结果是 ______。
Dim xx= Int(RnD) + 5Select Case xCase 5Print “优秀”Case 4Print “良好”Case 3Print “及格”Case ElsePrint “不及格”End SelectA)不及格 B)良好 C)及格 D)优秀6. 下面程序段求两个数中较大数,________不正确。
A) Max = IIF(x > y, x, y)B) If x > y Then Max = x Else Max = yC) Max = xIf y >= x Max = yD) If y >= x Max = yMax = x7. 下列循环语句能正常结束的是________。
A) i = 5 B) i = 1Do Doi = i + 1 i = i + 2Loop Until i < 0 Loop Until i = 10 C) i = 10 D) i = 6Do Doi = i - 1 i = i - 2Loop Until i < 0 Loop Until i = 1 12. 变量未赋值时,数值型变量的值为______。
vb各章练习题

第一章选择题1. VB是一种面向对象的可视化程序设计语言,采取了(A )的编程机制。
(A)事件驱动(B) 按过程顺序执行(C)从主程序开始执行(D) 按模块顺序执行2. 以下不属于VB的工作模式的是(c )模式。
(A) 运行(B)设计(C) 编译(D)中断3. 在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体窗口、属性窗口外,必不可少的窗口是( C )。
(A)窗体布局窗口(B)立即窗口(C)代码窗口(D)监视窗口4. 保存新建工程时,默认的路径是(B )。
(A)My Documents (B)VB98 (C)\ (D)Windows5. 将调试通过的VB工程经“文件”菜单的“生成.exe文件”编译成.exe后,将该可执行文件拿到其他机器上不能运行的主要原因是(A )。
(A)运行的机器上无VB系统(B)缺少.frm窗体文件(C)该可执行文件有病毒(D)以上原因都不对6. VB6.0集成开发环境可以(D )。
(A)编辑、调试、运行程序,但不能生成可执行程序(B)编辑、调试、生成可执行程序,但不能运行程序(C)编辑、生成可执行程序、运行程序,但不能调试(D)编辑、调试、运行程序,也能生成可执行程序7. VB6.0集成环境的主窗口中不包含(B )。
(A)菜单栏(B)状态栏(C)标题栏(D)工具栏8. 在设计阶段,当双击窗体上的某个控件时,所打开的窗口是(C )。
(A)工程资源管理器窗口(B)工具箱窗口(C)代码窗口(D)属性窗口9. 下面四个选项中,不是VB6.0工具箱的标准控件的是(C )。
(A)滚动条(B)定时器(C)多媒体(D)框架10. VB6.0的(C )版本,可供专业编程人员开发功能强大的组内分布式应用程序。
(A)初级版(B)学习版(C)企业版(D)专业版11. 英文缩写“OOP”的含义是(A )。
(A)面向对象程序设计(B)结构化程序设计语言(C)事件驱动的编程机制(D)可视化程序设计12. 不能打开代码窗口的操作是(B )。
vb考试题及答案解析

vb考试题及答案解析VB考试题及答案解析1. 以下哪个选项是Visual Basic的简称?A. VBAB. VBSC. VBD. VBScript答案:C解析: Visual Basic的简称是VB,而VBA是Visual Basic for Applications的缩写,VBS是Visual Basic Script的缩写,VBScript是一种脚本语言。
2. 在Visual Basic中,以下哪个关键字用于声明一个变量?A. DimB. SubC. FunctionD. Const答案:A解析: Dim关键字用于声明变量,Sub关键字用于声明一个过程,Function用于声明一个函数,而Const用于声明一个常量。
3. 如果要在一个窗体上显示文本“Hello, World!”,以下哪个代码段是正确的?A. Label1.Text = "Hello, World!"B. Form1.Caption = "Hello, World!"C. TextBox1.Text = "Hello, World!"D. Button1.Text = "Hello, World!"答案:B解析: Form1.Caption属性用于设置窗体的标题栏文本,因此选项B是正确的。
Label1是标签控件,TextBox1是文本框控件,Button1是按钮控件,它们用于显示文本,但不是设置窗体标题。
4. 如何在Visual Basic中创建一个数组?A. Dim numbers(5) As IntegerB. Dim numbers As Integer(5)C. Dim numbers = New Integer(5)D. Dim numbers(5) As Integer()答案:D解析:在Visual Basic中,创建数组的正确方式是声明一个数组变量,并指定数组的类型和大小。
vb考试题及答案解析

vb考试题及答案解析一、单选题(每题2分,共20分)1. 在Visual Basic中,以下哪个关键字用于声明变量?A. DimB. ConstC. SubD. Function答案:A2. 如果一个变量被声明为Static,那么它的生命周期是?A. 仅在过程调用期间B. 直到程序结束C. 直到应用程序结束D. 直到模块结束答案:B3. 在Visual Basic中,以下哪个函数用于计算一个数的平方根?A. SqrB. PowC. AbsD. Round答案:A4. Visual Basic中的哪个控件用于显示文本,但不能编辑?A. TextBoxB. LabelC. ComboBoxD. CheckBox答案:B5. 在Visual Basic中,以下哪个事件用于响应按钮点击?A. ClickB. LoadC. ChangeD. KeyDown答案:A6. Visual Basic中,以下哪个属性用于设置文本框的只读状态?A. ReadOnlyB. EnabledC. VisibleD. MultiLine答案:A7. 在Visual Basic中,以下哪个关键字用于退出当前的过程?A. ExitB. ReturnC. EndD. Stop答案:A8. Visual Basic中,以下哪个控件用于显示下拉列表?A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案:B9. 在Visual Basic中,以下哪个函数用于将字符串转换为数字?A. ValB. StrC. ChrD. Asc答案:A10. Visual Basic中,以下哪个属性用于设置窗体的标题?A. CaptionB. TextC. TitleD. Label答案:A二、判断题(每题1分,共10分)1. Visual Basic是一种面向对象的编程语言。
(正确)2. 在Visual Basic中,所有变量都必须在使用前声明。
《Visual Basic程序设计基础》习题参考答案

第7章对话框与菜单程序设计一、判断题1.√2.√3.√4.×5.×6.×7.√8.√9.√10.√二、选择题1.D 2.A 3.C 4.C 5.B 6.D 7.A 8.B 9.D 10.B三、填空题1.窗体控制菜单、下拉式菜单、快捷菜单2.ShowFont3.打开文件、另存为、颜色、字体、打印对话框4.工程、部件5.CommonDialog1.Action =3、CommonDialog1.ShowColor6.提示信息、对话框类型、对话框标题7.Click8.工具9.代码窗口、Click 10.相同、正四、程序阅读题程序1. 显示提示信息为“5”、标题为“na的输出结果”、有一个“确定”按钮的消息框。
程序2. 显示提示信息为“您选择了第1项”、标题为“第一项”、有一个“确定”按钮的消息框。
五、程序填空题1.(1)Int(Rnd*100) (2)Str(i) (3)Exit For2.(1)False (2)Date (3)CommonDialog1.Color (4)m1六、程序设计题程序1.界面设计略,过程设计如下:Private Sub Command1_Click()CommonDialog1.ShowOpenList1.AddItem CommonDialog1.FileNameEnd Sub程序2.界面设计略,过程设计如下:Private Sub Command1_Click()CommonDialog1.ShowSaveList1.AddItem CommonDialog1.FileNameEnd Sub程序3.界面设计如图10-9、表10-2所示,过程设计如下:Private Sub Sqr_Click()Shape1.Shape = 1End SubPrivate Sub Rec_Click()Shape1.Shape = 0End SubPrivate Sub Oval_Click()Shape1.Shape = 2End SubPrivate Sub Circle_Click()Shape1.Shape = 3End SubPrivate Sub Rrec_Click()Shape1.Shape = 4End SubPrivate Sub RSqr_Click()Shape1.Shape = 5End SubPrivate Sub Shp_Click()Shape1.FillStyle = 2End SubPrivate Sub Shzh_Click()Shape1.FillStyle = 3End SubPrivate Sub Xiex_Click()Shape1.FillStyle = 4End SubPrivate Sub ShPJ_Click()Shape1.FillStyle = 6End SubPrivate Sub XJ_Click()Shape1.FillStyle = 7End SubPrivate Sub FillColor_Click()CommonDialog1.ShowColorShape1.FillColor = CommonDialog1.ColorEnd SubPrivate Sub Exit_Click()EndEnd Sub第8章文件一、判断题1.×2.√3.×4.√5.√6.×7.√8.×9.√10.√11.×12.×13.√14.×15.×二、选择题1.A 2.C 3.B 4.B 5.A 6.C 7.C 8.B 9.C 10.B 11.D 12.B 13.B三、填空题1.ChDir 2.FileLen 3.Change 4.EOF 5.Line Input四、程序阅读题程序1. y= 1 a= 1 程序2. NO. 1 3 程序3.y= 3 a= 2 NO. 2 4 窗体:36 25 16 9 4 1y= 6 a= 3 NO. 3 7 文件:1 4 9 16 25 36y= 10 a= 4 NO. 4 11程序4. 程序5. 1 程序6. 1窗体上显示内容:20 2 2 1 2文件中内容:4 6 8 10 12 3 3 3 1 2 34 4 4 45 5 5 5 5五、程序填空题1.(1)Dim n As Integer (2)"C:\windows\calc.exe"(3)Output (4)End2.(1)For Output As #2 (2)0 (3)"temp.dat" As "c:\a1.dat"3.(1)Open "e:\dataout.txt" For Output As #1(2)t1 Mod t2 = 0 (3)If flag Then (4)Print coun六、程序设计题程序1.界面设计如图10-10所示,过程设计如下:Dim fn As StringPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click()If Right(File1.Path, 1) = "\" Thenfn = File1.Path + File1.FileNameElsefn = File1.Path + "\" + File1.FileNameEnd IfEnd SubPrivate Sub Command1_Click()Dim yesno As Byteyesno = MsgBox("确认要删除吗?", vbYesNo, "删除文件")If yesno = vbYes Then Kill fnFile1.RefreshEnd Sub程序2.建立4个文本框控件依次输入姓名、出生年月、外语、计算机成绩,按“确认”按钮追加该记录到磁盘文件d:\student.dat。
《Visual_Basic程序设计》试题及其答案

《Visual_Basic程序设计》试题及其答案Visual_Basic程序设计试题及其答案Visual_Basic程序设计是一门与Windows操作系统密切相关的编程语言,广泛应用于图形用户界面(GUI)的开发。
下面是一套Visual_Basic程序设计的试题,以及详细的答案解析。
一、概念题(共10题,每题2分,共20分)1. 什么是Visual_Basic程序设计?答案:Visual_Basic程序设计是一种基于BASIC语言的集成开发环境(IDE),用于Windows平台的程序开发和编程。
2. Visual_Basic程序设计的特点是什么?答案:Visual_Basic具有简单易学、图形化编程界面、可视化设计、事件驱动等特点。
3. 什么是控件?答案:控件是Visual_Basic程序设计中用于构建用户界面的基本元素,如按钮、文本框、标签等。
4. Visual_Basic程序中的数据类型有哪些?答案:Visual_Basic支持多种数据类型,包括整数、浮点数、字符串、布尔值等。
5. 什么是条件结构?答案:条件结构是一种根据不同条件执行不同操作的程序结构,如If语句和Select Case语句。
6. 什么是循环结构?答案:循环结构是一种重复执行特定操作的程序结构,如For循环和While循环。
7. 什么是函数?答案:函数是一段可重复调用的代码,通常用于实现特定功能,并可以返回结果。
8. 如何定义和调用函数?答案:在Visual_Basic中,可以使用Function关键字定义函数,并使用函数名调用函数。
9. 什么是异常处理?答案:异常处理是一种处理程序运行过程中可能出现的错误或异常情况的机制,以保证程序的稳定性。
10. Visual_Basic程序如何进行调试?答案:Visual_Basic提供了丰富的调试工具,包括断点调试、单步调试等,以帮助程序员发现和解决问题。
二、编程题(共2题,每题40分,共80分)题目一:设计一个Visual_Basic程序,实现计算器的基本功能。
第7章VB控制结构

例4-14演示
1. If语句
例4-15:从键盘输入一位作者的稿酬,根据 此稿酬计算出应缴纳的税金和扣除税金后作 者实际得到的稿酬。计算税金的方法是: 800元以内(含800,下同)免税,4000元 以内除800元以外的部分按14%上税,4000 以上按80%的14%上税。
1. If语句
Private sub form_click() Dim m as single,tax as single,wage as single m=Val(inputbox(“请输入稿酬”)) If m<=800 then tax=0 ElseIf m<=4000 Then tax=(m-800)*0.14 Else tax=m*0.8*014 End If wage=m-tax print “稿酬为:”;m, “税收为:”;tax,“实际酬金为”;wage End sub
例4-13演示
End sub
1. If语句
例4-14:编写一程序,能将大写字母方式 输入的一个字符转换为小写字母,小写字 母的字符转换成大写字母,其它非字母字 符不改变。
1. If语句
Private sub form_click() Dim ch as string ch=inputbox(“请输入一个字符”) print “输入的原始字符为”;ch If ch>=“A” and ch<=“Z” then ch=Lcase(ch) ElseIf ch>=“a” and ch<=“z” Then ch=Ucase(ch) Else ch=ch End If print “输出字符为”;ch End sub
例4-10演示源自1. If语句例4-11:输入a,b,c三个整数,输出其中最大的
visual basic 程序设计课后习题参考答案

4、什么是变量的作用域?如何分类? 变量的作用范围(作用域)指变量能被某一过程识别的范围。 根据声明变量的位置和所使用的变量定义语句不同,分为局部变 量、窗体/模块级变量和全局变量 局部变量:在一个过程内使用 Dim 或 Static 关键字声明的变 量,只能在本过程中有效。在一个窗体中,不同过程中定义的局 部变量可以同名。 窗体/模块级变量:在窗体的通用段中或在标准模块中使用
6
[Exit Function] End Function
(4). Function 过程的调用方法: ①直接调用 像使用 VB 内部函数一样,只需写出函数名
和相应的参数即可 ②用 Call 语句调用 与调用 Sub 过程一样来调用 Function
过程,当用这种方法调用 Function 过程时,将会放弃返回值 3、简述 VB 过程中参数传递的两种方式。
Visual basic 程序设计习题参考答案
第一章 Visual basic 程序设计
一、选择题
1 2 3 4 5 6 7 8 9 10
DC
CDCBAC B
11 12 13 14 15 16 17 18 19 20
ABC事件的控件是“计时器”控件
二、填空题
单击“工程资源管理”窗口中的“查看代码”按钮、“视 12
图”\“代码窗口”、双击窗体或控件 13 解释、编译生成 EXE 文件 14 设计、运行、中断 15 0、0 16 Wordwrap 17 浮动 18 bas、cls、frm、res、vbg、vbp
1
三、简答题
1、简述 visual basic 的特点。 (1)具有可视化的设计平台(2)面向对象的设计方法(3)
VB程序设计 第七章课后习题答案

第七章课后习题答案一、选择题二、填空题1、Eixt Function2、-2 -1 1.23456 -13、去掉4、2007-2-18 18 22:30:56 2 15、The Length of 12345 =56、m=20 n=10x=10 y=15m=20 n=10x=20 y=107、programmeuachnology8、0 10 Abs1(Num) 100 M=M:Abs1=S9、Len(A) N/2 Mid(A,N-I+1,1) Mid(A,N-I+1,1)三、综合题1、(1)-56(2)6(3)2008(4)0(5)122、(1)2.5(2)6.5(3)13、(1)Int(89*Rnd+11)(2)(x mod 10)*10+x\10(3)Round(X,2)(4)Right(String1 , 5)(5)Format(X,”###.##”)四、设计题1、Function s(a As Integer) As Singles = 0For i = 1 To as = s + 1 / iNext iEnd FunctionPrivate Sub Form_Click()Print "1+1/2+1/3+…+1/100="; s(100)End Sub2、Dim rPrivate Sub pd(a, b, c)If a + b > c And a + c > b And b + c > a ThenIf a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Then r = "该三角形为直角三角形"Elser = "该三角形为普通三角形"Elser = "不能组成三角形"End IfEnd SubPrivate Sub Command1_Click()pd Val(Text1), Val(Text2), Val(Text3) Text4 = rEnd Sub3、Function zh(a)Select Case aCase 1zh = "一月January"Case 2zh = "二月February"Case 3zh = "三月March"Case 4zh = "四月April"Case 5zh = "五月May"Case 6zh = "六月June"Case 7zh = "七月July"Case 8zh = "八月August"Case 9zh = "九月September"Case 10zh = "十月October"Case 11zh = "十一月November"Case 12zh = "十二月December"Case Elsezh = "您输入的月份不对!"End SelectEnd FunctionPrivate Sub Command1_Click()a = InputBox("请输入月份数:", "输入") Print zh(Val(a))4、Private Sub Command1_Click()a = 0:b = 0:c = 0For i = 1 To Len(Text1)Select Case Mid(Text1, i, 1)Case "a" To "z", "A" To "Z"a = a + 1Case 0 To 9b = b + 1Case " "c = c + 1End SelectNext i5、Private Sub Command1_Click()a = InputBox("请输入一个0-1000的数字", "输入") s = 0If Val(a) < 0 Or Val(a) > 1000 ThenPrint "您输入的数字不在指定范围内!"ElseFor i = 1 To Len(Trim(a))s = s + Val(Mid(a, i, 1))NextPrint a; "的各位数字和是:"; sEnd IfEnd Sub6、Function maxmin(a, b, c, d)If d = 1 ThenIf a > b Then maxmin = a Else maxmin = bIf c > maxmin Then maxmin = cElseIf a < b Then maxmin = a Else maxmin = bIf c < maxmin Then maxmin = cEnd IfEnd FunctionPrivate Sub Command1_Click()Text4 = maxmin(Text1, Text2, Text3, 1)Text5 = maxmin(Text1, Text2, Text3, 0)End Sub7、Private Sub Form_Click()n = InputBox("请输入要打印的三角形图形行数:")Print n; "行对称三角形"For i = 1 To nFor k = 1 To 2 * i - 1Print Tab(2 * n - 1 - 2 * i + 2 * k); "* ";Next kPrintNext iFor i = n To 1 Step -1For j = 1 To n - iPrint " ";Next jFor k = 1 To 2 * i - 1Print "* ";Next kPrintNext iEnd Sub8、Private Sub Command1_Click()Dim r(8, 8) As IntegerDim max As IntegerFor i = 1 To 8For j = 1 To 8r(i, j) = Int(100 * Rnd() + 1)Print Tab(5 * j - 4); r(i, j);If r(i, j) > max Then max = r(i, j): x = i: y = jNext jPrintNext iPrint "最大值是:" & max & ",行号是:" & Str(x) & ",列号是:" & Str(y) End Sub。
(完整word版)VBNET语言习题集(刘炳文书)

第1、2章Visual Basic .NET 程序开发环境一、单选题:1.Visual Basic .NET是一种面向对象的可视化程序设计语言,采取了面向对象、________的编程机制。
(A)事件驱动(B)按过程顺序执行(c)从主程序开始执行(D)按模块顺序执行2.Visual Basic .NET是面向对象的程序设计语言,下面________不是面向对象系统所包含的三要素(A)变量(B)事件(C)属性(D)方法3.在VB .NET集成环境(IDE)创建VB .NET应用程序时,除了工具箱窗口、窗体中的窗口、属性窗口外,必不可少的窗口是________。
(A)类视图(B)解决方案资源管理(C)服务器资源管理器(D)对象浏览器二、填空题:1、.NET平台所基于的两种核心技术是________________和__________________。
2、.NET的独一无二的特征是__________________。
3、由于.NET是在.NET框架结构上进行软件开发,所以在计算机上安装VS .NET 2005的先决条件是,必须安装操作系统的___________服务。
4.VB .NET提供了一种新的数据库访问技术,即________, 通过该技术,能方便地访问多种数据库中的数据。
5.当进入VB .NET集成环境,发现没有显示“工具箱”窗口时,应选择________菜单的________。
选项,使“工具箱”窗口显示。
6.要使新建项目时,在“常规”中自动加入Option Explicit Off语句,与之对应的也可以在________菜单的_______________选项中进行相应的选择。
7、在VB .NET中,解决方案文件的扩展名____________, 项目文件扩展名__________, 窗体文件扩展名_____________。
对于一个己创建的项目,生成的应用程序(扩展名为exe)可执行文件放在项目文件夹的_______________子文件夹下。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
第七章 Visual Basic控制结构教学要求:熟练掌握选择结构条件语句(包括单行结构条件语句、块结构条件语句)、IIf函数的特点和使用,熟练掌握多分支结构的特点和使用,熟练掌握For循环控制结构、DO循环控制结构的特点和使用,掌握多重循环控制结构,了解GOTO型控制(GOTO和ON-GOTO语句)的特点,正确使用选择结构、循环结构的嵌套。
知识点:单行结构条件语句、块结构条件语句;IIf函数;多分支结构;For循环结构、DO循环结构、多重循环控制结构,循环控制语句的比较;选择结构、循环结构的嵌套。
熟练连续累加、累乘的算法,数列运算算法、‖遍历‖算法的程序设计;常用数值运算算法:平方根迭代公式、牛顿迭代法和二分法求方程的根、求f(x)的数值积分、泰勒公式。
内容导航:一、选择控制结构(一)单行结构条件语句格式:If条件Then then部分[Else else部分]功能:如果―条件‖为True,则执行―then部分‖,否则执行―else部分‖。
(二)块结构条件语句格式:If条件1 Then语句块1[ElseIf 条件2 Then语句块2][ElseIf 条件3 Then语句块3]……[Else语句块n]End If功能:如果―条件1‖为True,则执行―语句块1‖;否则如果―条件2‖为True,则执行―语句块2‖……否则执行―语句块n‖,若无Else及其后面语句,则执行End If后面的语句。
(三)IIf函数IIf函数的格式:result=IIf(条件,True部分,False部分)功能:当―条件‖为真时,IIf函数返回―True部分‖,而当―条件‖为假时返回―False部分‖。
二、多分支控制结构格式:Select Case 测试表达式Case 表达式表列1语句块1[Case表达式表列2[语句块2]]……[Case Else[语句块n]]End Select执行过程:先对―测试表达式‖求值,然后测试该值与那一个Case子句中的―表达式表列‖相匹配;如果找到,就执行该Case子句有关的语句块,并把控制转移到End Select后面的语句;如果没有找到,则执行Case Else子句有关的语句块,并把控制转移到End Select。
三、For循环控制结构一般格式:For循环变量= 初值To终值[Step步长][循环体][Exit For]Next[循环变量][,循环变量]……执行过程:首先把―初值‖赋给―循环变量‖,接着检查―循环变量‖的值是否超过―终值‖,若超过就停止执行―循环体‖,跳出循环,执行Next后面的语句;否则执行一次―循环体‖,然后把―循环变量+步长‖的值赋给―循环变量‖,重复上述过程。
四、当循环控制结构格式:While[语句块]Wend执行过程:如果―条件‖为True,则执行―语句块‖,当遇到Wend语句时,控制返回到While语句并对―条件‖进行测试,如仍然为True,则重复上述过程,如果―条件‖为False,则不执行―语句块‖,执行Wend后面的语句。
五、Do循环控制结构格式:Do[语句块1][Exit Do]Loop[While|Until循环条件]Do[While|Until循环条件][语句块2][Exit Do]Loop功能:当指定的―循环条件‖为True或直到指定的―循环条件‖变为True之前重复执行一组语句(即循环体)。
训练:一、选择题1.VB的3中结构化程序设计的3种基本结构是________。
A) 选择结构、过程结构、顺序结构B) 递归结构、选择结构、顺序结构C) 过程结构、转向结构、递归结构D) 选择结构、顺序结构、循环结构2.用If语句表示分段函数3311()11x xf xx x⎧-≥=⎨+<⎩,以下________表示方法不正确。
A) f=x^3+1If x>=1 Then f=s^3-1B) If x>=1 Then f=x^3-1If x<1 Then f=x^3+1C) If x>=1 Then f=x^3-1f=x^3+1D) If x<1 Then f=x^3+1 ElseF=x^3-13.执行下面的程序段后显示结果是________。
Private Sub Form_Click()Dim mIf m Then Print m Else Print m+1End SubA) 0 B) 1 C) ‖‖D) False4.设a=6,则执行x=IIf(a>5,-1,0)后,x的值为________。
A) 5 B) 6 C) 0 D) –15.下面程序段的运行结果是________。
cj=85If cj>90 Then dj="A"If cj>80 Then dj="B"If cj>70 Then dj="C"If cj>60 Then dj="D"If cj<60 Then dj="E"Print "dj=";djA) dj=B B) dj=C C) dj=D D) dj=E6.下列语句正确的是________。
A) If K<3*N And k>N Then N=k^3B) If K<3*N And k>N Then N=k3C) If K<3*N : k>N Then N=k^3D) If K<3*N And k>N Then N=k**37.设X=2.0,y=8.0,z=6.0,L=True,则下列V isual Basic表达式中值为True的是________。
A) X+Z>Y AND L B) NOT(Y<Z+X)<>NOT LC) NOT L OR (L=Y+X=Z) D) Y+X>=Z+X AND (L AND FALSE)8.要判断‖月收入在2000元以上(含2000元)且5000元以下(不含5000元)‖的职工,应使用的逻辑表达式是________。
A) M>=2000 AND M<=5000 B) M>=2000 OR M<=5000C) M>=2000 AND M<5000 D) M>=2000 OR M<50009.下列程序段的执行结果为________。
x=Int((69-60)*Rnd+60)Select Case xCase Is>90Print "优秀"Case 80 To 89Print "良好"Case 60 To 79Print "合格"Case ElsePrint "不合格"End SelectA) 优秀B) 良好C) 合格D) 不合格10.在窗体上画一个命令按钮,名称为Command1。
然后编写如下程序:运行结果________。
Private Sub Command1_Click()For I=1 To 4For J=0 To IPrint Chr$(65+I);Next JPrintNext IEnd Sub单击命令按钮后,运行结果________。
A) BBCCCDDDDEEEEEB) ABBCCCDDDDC) BCCDDDEEEED) AABBBCCCCDDDDD11.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后,单击命令按钮,在文本框中显示的值是________。
A) 2 B) 3 C) 4 D) 512.在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后,单击命令按钮,输出结果是________。
A) 7 B) 15 C) 157 D) 53813.阅读下面的程序段:For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后,a的值为________。
A) 3 B) 9 C) 14 D) 2114.在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是________ 。
A) 在文本框Text1中输出55 B) 在文本框Text1中输出0C) 出错D) 在文本框Text1中输出不定值15.有如下程序:a=10b=4For j=1 To 20 Step -2a=a+5b=b+4Next jPrint a;b运行后,输出的结果是________。
A) 10 4 B) 60 24 C) 110 44D) 55 4016.有如下程序:d$=""a$="abcde"For i=Len(a$) To 1 Step -1d$=d$+Mid(a$,i,1)Next iPrint d$运行后,输出的结果是________。
A) abcde B) edcba C) acebd D) ecadb17.在Command1_Click事件程序的功能是:按顺序读入10名学生4门课程的成绩。
计算出每位学生的平均分并输出,程序如下:Dim n As Integer,k As IntegerDim score As Single,sun As Single,ave As Singlesum=0#For n=1 To 10For k=1 To 4score=InputBox("请输入一门课的成绩")sum=sum+scoreNext kave=sum/4print"第";n;"个人的平均成绩为:";aveNext n上述程序运行后结果不正确,调试中发现有一条语句出现在程序中的位置不正确。