VB经典例题(附答案)
vb编程考试题库及答案
vb编程考试题库及答案 一、单项选择题（每题 2 分，共 20 分） 1. Visual Basic 的简称是： A. VB B. VBA C. VC D. VC++ 答案：A 2. 在 Visual Basic 中，以下哪个不是基本数据类型？ A. Integer B. String C. Double D. Text 答案：D 3. Visual Basic 的默认启动窗口是： A. Form1 B. Form2 C. Main D. Startup 答案：A 4. 在 Visual Basic 中，以下哪个关键字用于声明常量？ A. Dim B. Const C. Static D. Public 答案：B 5. Visual Basic 中的事件处理程序通常写在哪个部分？ A. 属性窗口 B. 代码窗口 C. 工具箱 D. 项目资源管理器 答案：B 6. 在 Visual Basic 中，以下哪个不是控制结构？ A. If...Then...Else B. For...Next C. Do...Loop D. Sub 答案：D 7. Visual Basic 中的 Print 方法用于： A. 打印文档 B. 显示消息框 C. 在窗体上显示文本 D. 打开文件 答案：C 8. 在 Visual Basic 中，以下哪个不是数组的声明方式？ A. Dim arr(10) As Integer B. Dim arr() As Integer = New Integer(10) {} C. Dim arr As Integer = New Integer(10) D. ReDim arr(10) 答案：C 9. Visual Basic 中的 Randomize 函数用于： A. 初始化随机数生成器 B. 生成一个随机数 C. 设置随机数种子 D. 清除随机数种子 答案：A 10. 在 Visual Basic 中，以下哪个不是文件访问模式？ A. Input B. Output C. Append D. Delete 答案：D 二、多项选择题（每题 2 分，共 20 分） 1. Visual Basic 的以下哪些特性是正确的？ A. 事件驱动 B. 结构化编程 C. 面向对象 D. 过程式编程 答案：ABC 2. 在 Visual Basic 中，以下哪些可以作为变量名？ A. myVar B. 2myVar C. _myVar D. my-var 答案：AC 3. Visual Basic 中的以下哪些是合法的字符串？ A. "Hello, World!" B. 'This is a comment C. "123" D. "String with ""quotes"" inside" 答案：ACD 4. 在 Visual Basic 中，以下哪些是合法的循环结构？ A. For...Next B. While...Wend C. Do...Loop D. If...Then...Else 答案：ABC 5. Visual Basic 中的以下哪些是合法的控制结构？ A. If...Then...Else B. Select Case C. With...End With D. For Each...Next 答案：ABCD 6. 在 Visual Basic 中，以下哪些是合法的数组声明？ A. Dim arr(5) As Integer B. Dim arr() As Integer = New Integer(5) {} C. Dim arr(5 To 10) As Integer D. ReDim arr(1 To 10) 答案：ABD 7. Visual Basic 中的以下哪些是合法的函数调用？ A. MsgBox("Hello") B. Print("Hello") C. InputBox("Enter your name") D. Randomize(123) 答案：ACD 8. 在 Visual Basic 中，以下哪些是合法的文件访问模式？ A. Input B. Output C. Append D. Binary 答案：ABCD 9. Visual Basic 中的以下哪些是合法的窗体属性？ A. Caption B. Name C. Text D. Font 答案：ABCD 10. 在 Visual Basic 中，以下哪些是合法的控件事件？ A. Click B. DblClick C. MouseDown D. KeyPress 答案：ABCD 三、判断题（每题 2 分，共 20 分） 1. Visual Basic 是一种编译型语言。（错误） 2. Visual Basic 支持多线程编程。（正确） 3. Visual Basic 中的变量必须在使用前声明。（正确） 4. Visual Basic 中的 Sub 过程可以有返回值。（错误） 5. Visual Basic 中的控件属性可以在属性窗口中设置。（正确） 6. Visual Basic 中的数组下标默认从 0 开始。（错误） 7. Visual Basic 中的 Randomize 函数可以生成非随机数。（错误） 8. Visual Basic 中的 Print 方法可以打印到文件。（正确） 9. Visual Basic 中的 For Each 循环只能遍历数组。（错误） 10. Visual Basic 中的 With...End With 结构可以简化代码。（正确）
vb考试1000题库及答案
vb考试1000题库及答案 一、单选题（每题1分，共50分） 1. VB中，用于定义变量的关键字是（ ）。 A. Dim B. Const C. Sub D. Function 答案：A
2. 在VB中，以下哪个是合法的变量名？（ ） A. 2variable B. _variable C. variable2 D. $variable 答案：C 3. VB中，以下哪个是正确的字符串连接运算符？（ ） A. + B. & C. D. / 答案：B
4. 在VB中，以下哪个是正确的整型数据类型？（ ） A. Integer B. Long C. Single D. Double 答案：A
5. VB中，以下哪个是正确的浮点型数据类型？（ ） A. Integer B. Single C. Double D. Currency 答案：B
6. 在VB中，以下哪个是正确的布尔型数据类型？（ ） A. Boolean B. Bool C. Logic D. TrueFalse 答案：A
7. VB中，以下哪个是正确的数组声明方式？（ ） A. Dim arr(10) B. Dim arr(0 To 10) C. Dim arr() As Integer D. Dim arr As Integer() 答案：B
8. 在VB中，以下哪个是正确的子程序声明方式？（ ） A. Sub mySub() B. Function mySub() C. Procedure mySub() D. Method mySub() 答案：A
9. VB中，以下哪个是正确的函数声明方式？（ ） A. Sub myFunction() B. Function myFunction() C. Procedure myFunction() D. Method myFunction() 答案：B
10. 在VB中，以下哪个是正确的条件语句？（ ） A. If condition Then B. While condition C. For loop D. Do loop 答案：A 11. VB中，以下哪个是正确的循环语句？（ ） A. For loop B. While loop C. Do loop D. All of the above 答案：D
vb期末考试编程题试题及答案
vb期末考试编程题试题及答案VB期末考试编程题试题及答案试题1：字符串反转要求：编写一个VB程序，实现将给定的字符串反转的功能。
答案：```vbFunction ReverseString(ByVal str As String) As String Dim reversedStr As String = ""For i As Integer = str.Length - 1 To 0 Step -1reversedStr &= str(i)NextReturn reversedStrEnd Function```试题2：计算阶乘要求：编写一个VB程序，实现计算任意正整数的阶乘。
答案：```vbFunction Factorial(ByVal n As Integer) As LongIf n = 0 ThenReturn 1ElseReturn n * Factorial(n - 1)End IfEnd Function```试题3：查找数组中的最大值要求：编写一个VB程序，实现在一个整型数组中查找最大值。
答案：```vbFunction FindMax(ByVal arr() As Integer) As IntegerDim max As Integer = arr(0)For Each num In arrIf num > max Thenmax = numEnd IfNextReturn maxEnd Function```试题4：判断回文数要求：编写一个VB程序，实现判断一个整数是否是回文数。
答案：```vbFunction IsPalindrome(ByVal num As Integer) As Boolean Dim strNum As String = num.ToString()Dim reversedStr As String = ReverseString(strNum) Return strNum = reversedStrEnd Function```试题5：实现冒泡排序要求：编写一个VB程序，实现对一个整型数组进行冒泡排序。
vb编程题及答案
v b编程题及答案1. 在代码中引用一个控件时，应使用控件的(b)属性。
A.C ap t ionB.Na meC. TextD. Index2. 设变量X= 4, y =—1, a= 7, b =—8, 下面表达式(a)的值为“假＂。
A x+a <= b—yB x > 0 A N D y < 0C.a = b O R x>yD. x+y > a+b AN D NOT (y < b)3. 表达式I nt(Rnd71)+10产生的随机整数范围是(C)。
A. (10, 80)B. (10, 81)C. [10, 80]D. [10, 81]4. 函数Sgn(3. 1416)的返回值是(C)。
A. —1B. 0C. 1D. 以上都不对5.67890属于(d)类型数据。
A. 整型B.单精度浮点数C.货币型D.长整型6. 下列变量名中正确的是(d)。
A. 3SB.PrintC. Sel ect M y NameD.Sel ect—l7. 下列赋值语旬(a)是有效的。
A. u m= u m—u mB.x+2 = x + 2C.x + y = u mD. l as t= y / 08. 以下的控件或方法具有输入和输出双重功能的为(b)。
A.PrintB. Text b oxC.O t ionb u ttonD.C h eck b o x9. 若要获得列表框中被选中的列表项的内容，可以通过访问(d)属性来实现。
()。
A.Na me B.Li t lndex C.Li t C ou nt D. Text10. 下列代码的运行结果为(b)。
Priv a t e S u b m a nd l—cl ick()D i m m(lO)For k=1 T o10m(k) = 11—kN ext kX = 5Print m(2 + m(x))End S u bA. 2B. 3C.4D. 5标准控件不包括（）控件。
Vb操作题题库(含答案)
VB填空题:1、Visual Basic 6.0分为3种版本，这3种版本是______、______和______。
其中，最完整的是______。
答案：1：学习版#专业版#企业版2：学习版#专业版#企业版3：学习版#专业版#企业版4：企业版知识点：VB知识点/第一章2、可以通过______快捷键或______快捷键退出Visual Basic。
答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知识点：VB知识点/第一章3、传统的程序设计语言主要是面向______的，而现在涌现出的许多可视化程序设计语言，如Visual Basic主要是面向______进行程序设计的。
答案：1：过程#问题2：对象知识点：VB知识点/第一章4、在面向对象程序设计中，对象是由______和______组成的概念。
答案：1：代码#数据2：代码#数据知识点：VB知识点/第一章5、Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在______、______状态或______状态。
答案：1：设计#中断#运行#设计状态#中断状态#运行状态2：设计#中断#运行#设计状态#中断状态#运行状态3：设计#中断#运行#设计状态#中断状态#运行状态知识点：VB知识点/第一章6、在设计模式下，工程中的某个窗体没有出现，可通过双击______窗口中的相应窗体名来使之出现。
答案：1：工程资源管理器知识点：VB知识点/第一章7、Visual Basic开发环境中，当属性窗口在界面上末出现时，可使用______菜单中的______选项让它显示出来。
答案：1：视图2：属性窗口知识点：VB知识点/第一章8、在属性窗口中，属性显示方式分为两种，即按______顺序和按______顺序，分别通过单击相应的按钮来实现。
答案：1：字母#分类2：字母#分类知识点：VB知识点/第一章9、菜单命令中有"…"标记表示该命令是一个______的命令。
VB循环程序例题100道附答案(精编文档).doc
【最新整理，下载后即可编辑】VB循环程序例题附答案1.素数1. [100，999]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数？15n = 0For i = 100 To 999a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then n = n + 1End IfNext iPrint n2. [300，800]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数；求满足上述条件的最大的三位十进制数。
761 For i = 300 To 800a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then s = iEnd IfNext iPrint s3. 除1和它本身外，不能被其它整数整除的正整数称为素数（注：1不是素数，2是素数）。
若两素数之差为2 ，则称两素数为双胞胎数，问[31,601]之间有多少对双胞胎数。
22n = 0For i = 31 To 601 - 2x = 0For j = 2 To Sqr(i)If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0For j = 2 To Sqr(i + 2)If (i + 2) Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Then n = n + 1End IfNext iPrint n4. 数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两个素数（素数对）的和。
vb考试题库及答案高中
vb考试题库及答案高中# VB考试题库及答案高中一、选择题1. 在Visual Basic中，以下哪个选项是正确的数据类型？ - A. Integer- B. int- C. float- D. string答案：A2. 以下哪个语句可以正确地在VB中声明一个整型变量？ - A. Dim x as Integer- B. var x = 10- C. int x = 10- D. x Integer答案：A3. 在VB中，哪个关键字用于定义一个过程？- A. Function- B. Sub- C. If- D. For答案：B4. 以下哪个选项是VB中的循环结构？- A. If- B. While- C. Select Case- D. Dim答案：B5. 在VB中，以下哪个函数用于计算一个数的平方根？- A. Sqr(x)- B. Abs(x)- C. Int(x)- D. Round(x)答案：A二、填空题1. 在VB中，使用______关键字来定义一个类。
答案：Class2. 要在一个VB程序中调用另一个模块中的函数，需要使用______关键字。
答案：Public3. 在VB中，使用______语句来结束一个循环。
答案：Exit For 或 Exit Do4. Visual Basic中的数组声明可以使用______或______关键字。
答案：Dim 或 Static5. 在VB中，要调用一个对象的方法，可以使用______符号。
答案：. (点)三、简答题1. 简述Visual Basic中的事件驱动编程的概念。
答案：事件驱动编程是一种编程范式，其中程序的执行流程由外部事件（如用户点击按钮、键盘输入或系统消息）触发。
在Visual Basic中，事件通常与用户界面控件相关联，当控件接收到特定的用户操作时，就会触发相应的事件处理程序。
2. 解释Visual Basic中的属性和方法的区别。
vb程序设计考试题库及答案
vb程序设计考试题库及答案一、单项选择题（每题2分，共40分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. RealD. All of above答案：D2. VB中，哪个函数用于计算两个数的最大值？A. MinB. MaxC. AbsD. Sgn答案：B3. 在VB中，以下哪个是合法的变量名？A. 2variableB. variable2C. _variableD. All of above答案：D4. VB中，以下哪个是正确的循环结构？A. For EachB. For AllC. Do WhileD. All of above答案：D5. 在VB中，以下哪个是正确的条件语句？A. If...Then...ElseB. Switch...CaseC. Select...CaseD. All of above答案：D6. VB中，哪个函数用于计算一个数的绝对值？A. AbsB. RoundC. SqrD. Int答案：A7. 在VB中，以下哪个是合法的数组声明？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C8. VB中，哪个函数用于将字符串转换为大写？B. UCaseC. StrCompD. StrConv答案：B9. 在VB中，以下哪个是正确的事件处理程序的声明方式？A. Private Sub Form_Click()B. Public Sub Form_Click()C. Both A and BD. None of the above答案：A10. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. ExpD. Log11. 在VB中，以下哪个是正确的文件打开模式？A. Open For InputB. Open For AppendC. Open For RandomD. All of above答案：D12. VB中，哪个函数用于计算一个数的指数？A. SqrB. PowC. ExpD. Log答案：B13. 在VB中，以下哪个是正确的窗体属性？A. CaptionC. Both A and BD. None of the above答案：C14. VB中，哪个函数用于计算一个数的自然对数？A. SqrB. PowC. ExpD. Log答案：D15. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. Both A and BD. None of the above答案：C16. VB中，哪个函数用于计算一个数的四舍五入？A. RoundB. IntC. FixD. Sgn答案：A17. 在VB中，以下哪个是正确的控件属性？A. NameB. CaptionC. Both A and BD. None of the above答案：C18. VB中，哪个函数用于计算一个数的符号？A. AbsB. SgnC. RoundD. Int答案：B19. 在VB中，以下哪个是正确的控件事件？A. KeyPressB. KeyDownC. Both A and BD. None of the above答案：C20. VB中，哪个函数用于计算一个数的固定整数部分？A. RoundB. IntC. FixD. Sgn答案：C二、填空题（每题2分，共20分）21. VB中，使用________函数可以将一个字符串转换为小写。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验4：编写一个程序。
要求在窗体内设置7个标签（Label）及7个文本框（TextBox），将每个标签的Text属性值设置为如下表达式。
在程序运行时，单击窗体空白区，可在对应的文本框中输出这些表达式的值。
1）8*3*6\22）7/6*3.2/2.15*(5.5+3.5)3）34\4+4.0^5/124）65\3 mod 3.4*fix(3.8)5）“abg”+”34” & “erert”6）true or not (8+3>=23)7）7>2 or 4<9实验目的：学习VB运算符的使用。
Public Class Form1Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ClickTextBox1.Text = 8 * 3 * 6 \ 2TextBox2.Text = 7 / 6 * 3.2 / 2.15 * (5.5 + 3.5)TextBox3.Text = 34 \ 4 + 4.0 ^ 5 / 12TextBox4.Text = 65 \ 3 Mod 3.4 * Fix(3.8)TextBox5.Text = """abg""" + """34""" & """erert"""TextBox6.Text = True Or Not (8 + 3)>= 23TextBox7.Text = 7 > 2 Or 4 < 9End SubEnd Class实验5：编写一个程序。
设a=2，b=3，c=4，d=5，S="ABCDEFGHI]K"，求下列表达式的值：(1) 5+(a+b)2(2) cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)实验目的：学习VB中函数的使用。
Imports System.MathImports System.StringPublic Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim a% = 2, b% = 3, c% = 4, d% = 5Dim S$ = "ABCDEFGHI]K"TextBox1.Text = 5 + (a + b) ^ 2TextBox2.Text = cos(b) * (sin(a) + 1)TextBox3.Text = 8 * Exp(3) * Log(2)TextBox4.Text = Microsoft.VisualBasic.Left(S, 4)TextBox5.Text = Mid(S, 3, 4)TextBox6.Text = InStr(S, "EFG")TextBox7.Text = Microsoft.VisualBasic.LCase(Microsoft.VisualBasic.Right(S, 5))TextBox8.Text = Len(Mid((S), 3))End SubEnd Class实验6：编写一个程序。
利用速度和距离的计算公式，按要求进行计算并显示计算结果。
已知：a=1.5米/秒2，程序运行时，通过文本框输入初速度V0和时间t，单击窗体，计算出末速度V t和距离S的值。
要求在显示结果时带上单位。
速度单位是：米/秒，距离单位是：米。
实验目的：学习VB的顺序结构编程，计算表达式的值。
Public Class Form1Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Dim S!, a!, V0!, t!, Vt!a = 1.5V0 = Val(TextBox1.Text)t = Val(TextBox2.Text)S = V0 * t + 0.5 * a * t ^ 2Vt = V0 + a * tLabel1.Text = Vt & "米/秒"Label2.Text = S & "米"End SubEnd Class实验7：将试题6用InputBox函数输入初速度V0和时间t，用MsgBox输出计算结果。
实验目的：学习VB的顺序结构编程，及InputBox、MsgBox函数的使用。
Public Class Form1Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ClickDim S$, V0!, Vt!, a!, t!a = 1.5V0 = InputBox("请输入初速度V0")t = InputBox("请输入时间t")S = V0 * t + 0.5 * a * t ^ 2Vt = V0 + a * tMsgBox("Vt=" & Vt & "米/秒" & vbCrLf & "S=" & S & "米")End SubEnd Class实验8：编写一个程序，要求3个问题在同一个窗体内实现。
在窗体上设置三个按钮，单击每个按钮，分别完成每个问题。
问题1：在窗体上放置1个文本框。
在文本框中输入英文字符，单击按钮会将文本框中的所有大写字符转换为小写，所有小写字符转换为大写。
如输入I Just MEET Her，则输出为i jUST meet hER。
问题2：输入一个学生的五门课的考试成绩，判断其是否为优秀。
优秀的条件为：五门课成绩总分超过450分或每门课程在88以上或每门主课（前三门）的成绩都在95分以上其他课程在80分以上。
问题3：运输部门的货物运输与里程有关，距离越远，每吨货物的单价越低，假设每吨单价P 与距离S之间的关系如下，32 S<10028 100<=S<200P= 25 200<=S<30022.5 300<=S<40020 400<=S>=100015 S>1000输入货物重量和运送距离后，计算相应的运费。
实验目的：学习选择结构的使用。
Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s$ = TextBox1.TextDim i%, c$TextBox1.Text &= ""For i = 1 To Len(s)c = Mid(s, i, 1)If c >= "A" And c <= "Z" ThenTextBox1.Text &= Chr(Asc(c) + 32)ElseIf c >= "a" And c <= "z" ThenTextBox1.Text &= Chr(Asc(c) - 32)ElseTextBox1.Text &= cEnd IfNextEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim a%, b%, c%, d%, f%, s%Dim t1 As Boolean, t2 As Booleana = Val(TextBox2.Text)b = Val(TextBox3.Text)c = Val(TextBox4.Text)d = Val(TextBox5.Text)f = Val(TextBox6.Text)s = a + b + c + d + ft1 = (a >= 88 And b >= 88 And c >= 88 And d >= 88 And f >= 88)t2 = (a >= 95 And b >= 95 And c >= 95 And d >= 80 And f >= 80)If s >= 450 Or t1 Or t2 ThenLabel8.Text = "是优秀"ElseLabel8.Text = "不是优秀"End IfEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim P As Single, S As Single, M As Single, Y As SingleS = Val(TextBox8.Text)M = Val(TextBox7.Text)If S < 100 ThenP = 32ElseIf S < 200 ThenP = 28ElseIf S < 300 ThenP = 25ElseIf S < 400 ThenP = 22.5ElseIf S <= 1000 ThenP = 20ElseP = 15End IfY = M * P * SLabel13.Text = YEnd SubEnd Class实验9：编写一个程序，要求3个问题在同一个窗体内实现。
在窗体上设置三个按钮，单击每个按钮，分别完成每个问题。