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考试题目及答案1. 题目：在Visual Basic中，以下哪个关键字用于声明一个变量？A. DimB. ConstC. FunctionD. Sub答案：A2. 题目：在VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. ConcatenateD. Join答案：A3. 题目：在Visual Basic中，以下哪个控件用于显示文本信息？A. LabelB. TextBoxC. ButtonD. ComboBox答案：A4. 题目：在VB中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Name答案：A5. 题目：在Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A6. 题目：在VB中，以下哪个关键字用于循环遍历数组中的每个元素？A. ForB. WhileC. DoD. Each答案：A7. 题目：在Visual Basic中，以下哪个函数用于将字符串转换为数值？A. StrB. ValC. CStrD. IsNumeric答案：B8. 题目：在VB中，以下哪个属性用于获取或设置文本框中的文字？A. TextB. CaptionC. ValueD. Name答案：A9. 题目：在Visual Basic中，以下哪个控件用于接收用户输入的文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：B10. 题目：在VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Property答案：B。

万维vb考试题和答案一、单项选择题（每题2分，共20分）1. VB中，以下哪个关键字用于声明一个变量？A. DimB. SubC. FunctionD. If答案：A2. 在VB中，哪个函数用于将字符串转换为数字？A. ValB. StrC. CIntD. Chr答案：A3. VB中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A4. 在VB中，以下哪个事件用于响应按钮点击？A. ClickB. LoadC. KeyDownD. MouseDown答案：A5. VB中，以下哪个关键字用于循环结构？A. ForB. IfC. WhileD. Select答案：A6. 在VB中，以下哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D7. VB中，以下哪个控件用于输入和显示文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：B8. 在VB中，以下哪个事件用于响应文本框内容变化？A. ChangeB. ClickC. KeyDownD. MouseDown答案：A9. VB中，以下哪个关键字用于条件判断？A. IfB. ForC. WhileD. Select答案：A10. 在VB中，以下哪个函数用于获取系统时间？A. NowB. DateC. TimeD. Today答案：C二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以声明一个数组。

答案：Dim2. VB中，使用________函数可以将数字转换为字符串。

答案：Str3. VB中，使用________控件可以显示图像。

4. 在VB中，使用________事件可以响应表单的加载。

答案：Load5. VB中，使用________关键字可以创建一个子程序。

答案：Sub6. 在VB中，使用________函数可以获取系统日期和时间。

VB程序设计编程考试题及答案1.输入3个数，输出最大的数Private Sub command1_click()Dim maxFor i = 1 To 3n = Val(InputBox("输入第" & i & "个数"))If n > max Thenmax = nEnd IfNextPrint "三个数中最大的数是" ; maxEnd Sub2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根Private Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text3n = b * b - 4 * a * cIf n >= 0 ThenLabel4 = "方程有根"ElseLabel4 = "方程无根"End IfEnd Sub3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！Private Sub Form_Load()Text1 = ""End SubPrivate Sub Command1_Click()Dim nn = Text1If n > =60 ThenVal (MsgBox("恭喜！成绩通过！"))ElseVal (MsgBox("抱歉！成绩没有通过！"))End IfEnd Sub4.输入一年份，判断它是否为闰年，并显示有关信息。

（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim y%y = InputBox("请输入年份")If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 ThenVal (MsgBox("闰年！"))ElseVal (MsgBox("平年！"))End IfEnd Sub5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。

vb考试题型大全及答案1. 单选题：下列哪个选项是Visual Basic中的保留字？A. DimB. IfC. ElseD. MyVar答案：A2. 判断题：在Visual Basic中，变量声明时必须指定数据类型。

答案：正确3. 填空题：在Visual Basic中，使用_________关键字可以声明一个变量。

答案：Dim4. 简答题：请解释Visual Basic中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，程序的执行流程由事件（如鼠标点击、键盘输入等）触发，而非顺序执行代码。

5. 编程题：请编写一个Visual Basic程序，计算并输出1到100的和。

答案：```Dim sum As IntegerFor i As Integer = 1 To 100sum = sum + iNext iMsgBox("1到100的和是：" & sum)6. 多选题：以下哪些是Visual Basic中的数据类型？A. IntegerB. StringC. BooleanD. Float答案：A, B, C, D7. 计算题：给定一个Visual Basic程序，该程序计算并输出一个数的平方根。

请计算5的平方根。

答案：2.2368. 案例分析题：分析以下Visual Basic代码段的功能。

```If x > 0 ThenMsgBox("x是正数")ElseMsgBox("x不是正数")End If```答案：该代码段使用If-Else结构判断变量x是否大于0，根据判断结果弹出相应的消息框。

9. 编程题：请编写一个Visual Basic程序，实现用户输入一个数，程序输出该数的平方。

答案：```Dim number As Integernumber = Val(InputBox("请输入一个数"))MsgBox("该数的平方是：" & number * number)10. 论述题：论述Visual Basic中面向对象编程的主要特点。

vb初级考试样题和答案一、单选题（每题2分，共40分）1. 在VB中，以下哪个关键字用于声明变量？A. FunctionB. SubC. DimD. Const答案：C2. VB中，哪个函数用于计算两个数的和？A. SumB. AddC. PlusD. +答案：D3. 在VB中，以下哪个是正确的条件语句？A. If condition ThenB. If condition ElseC. If condition Then ElseD. If condition答案：A4. VB中，哪个属性用于设置控件的可见性？A. VisibleB. HiddenC. ShowD. Display答案：A5. 在VB中，以下哪个是正确的循环结构？A. DoB. WhileC. ForD. All of the above答案：D6. VB中，哪个函数用于将字符串转换为大写？A. StrConv("string", vbUpperCase)B. Upper("string")C. ConvertToUpper("string")D. ToUpper("string")答案：B7. 在VB中，以下哪个是正确的数组声明方式？A. Dim arr(10)B. Dim arr[10]C. Dim arr(10) As IntegerD. Dim arr As Integer(10)答案：C8. VB中，哪个属性用于获取或设置文本框中的文字？B. CaptionC. ValueD. String答案：A9. 在VB中，以下哪个是正确的事件处理程序？A. Sub Button1_Click()B. Function Button1_Click()C. Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)D. Sub Button1_Click(ByVal sender As Object)答案：C10. VB中，哪个函数用于计算一个数的平方根？A. SqrtB. SquareC. Root答案：A11. 在VB中，以下哪个是正确的数据类型？A. IntegerB. RealC. DoubleD. All of the above答案：D12. VB中，哪个属性用于设置控件的背景颜色？A. BackColorB. BackgroundColorC. ColorD. FillColor答案：A13. 在VB中，以下哪个是正确的文件操作函数？B. CloseC. WriteD. All of the above答案：D14. VB中，哪个属性用于设置控件的前景色？A. ForeColorB. ForegroundColorC. TextColorD. Color答案：A15. 在VB中，以下哪个是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. On Error GoTo -1D. All of the above答案：D16. VB中，哪个函数用于计算两个数的差？A. DifferenceB. SubtractC. MinusD. -答案：D17. 在VB中，以下哪个是正确的窗体属性？A. FormB. WindowC. FrameD. MDIForm答案：A18. VB中，哪个属性用于设置控件的宽度？A. WidthB. SizeC. DimensionD. ScaleWidth答案：A19. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D20. VB中，哪个函数用于获取当前日期？A. NowB. DateC. TodayD. GetCurrentDate答案：C二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量i，应该使用关键字________。

vb考试题及答案VB考试题及答案一、单选题（每题2分，共20分）1. 在VB中，以下哪个是正确的整型变量声明？A. Dim a% As IntegerB. Dim a As Integer%C. Dim a As IntegerD. Dim a Integer答案：C2. VB中的Print方法用于在窗体上显示输出，以下哪个是正确的输出语句？A. Print "Hello, World!"B. Print "Hello, World!", 1C. Print 1, "Hello, World!"D. Print "Hello, World!"; 1答案：A3. 在VB中，以下哪个是正确的布尔型变量声明？A. Dim b BooleanB. Dim b As BooleanC. Dim b Boolean AsD. Dim b As Boolean As答案：B4. VB中，以下哪个函数用于获取当前日期？A. Now()B. Date()C. Time()D. Today()答案：B5. 在VB中，以下哪个是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr(5 To 10) As IntegerC. Dim arr As Integer(5)D. Dim arr As Integer(5 To 10)答案：A6. VB中，以下哪个是正确的字符串连接操作？A. str1 & str2B. str1 + str2C. str1 || str2D. str1.Concat(str2)答案：A7. 在VB中，以下哪个是正确的条件语句？A. If x > 0 ThenB. If x > 0C. If x > 0 ElseD. If x > 0 End If答案：A8. VB中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 1 To 10 DoC. For i = 1 To 10 LoopD. For i = 1 To 10 Next答案：A9. 在VB中，以下哪个是正确的函数声明？A. Function MyFunction() As IntegerB. Function MyFunction As IntegerC. Function MyFunction() IntegerD. Function MyFunction Integer答案：A10. VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Click()B. Private Sub Form_Click As IntegerC. Private Sub Form_Click() IntegerD. Private Sub Form_Click() As Integer答案：A二、填空题（每题2分，共20分）1. VB中，用于声明变量的关键字是______。

1．利用随机函数产生20个50到100之间的随机整数，显示它们的最大值、最小值和平均值Dim max As Integer, min As Integer, sum As Integern = Int(Rnd * 51) + 50max = nmin = nsum = sum + nPrint n;For i = 1 To 19Randomizen = Int(Rnd * 50) + 50If n > max Then max = nIf n < min Then min = nsum = sum + nPrint n;Next iPrintPrint "随机20个数的最大值和最小值,平均值分别是" & max & "和" & min & "与" & sum / 20 2 求两个数的最大公约数和最小公倍数方法一:辗转相除法Dim m%, n%, r%, t5m = InputBox("请输入第一个整数")n = InputBox("请输入第二个整数")If m < n Then t = m: m = n: n = tDor = m Mod nm = nn = rLoop Until r = 0Print "最大公约数是："; m方法二：Dim n As Integer, m As Integer, r As Integer, i As Integern = InputBox("请输入第一个数")m = InputBox("请输入第二个数")r = IIf(n < m, n, m)For i = r To 1 Step -1If n Mod i = 0 And m Mod i = 0 ThenPrint n & "," & m & "这两个数的最大公约是" & iExit ForEnd IfNext iPrint n & "," & m & "这两个数的最小公倍数是" & n*m/iEnd Sub3 判断一个数是否为素数，假定概数是n方法一：如果是不素数提前结束循环，是素数，退出循环是循环变量的值不满足终止Private Sub Form_Click()Dim n%, i%n = InputBox("请输入一个数")For i = 2 To n - 1If n Mod i = 0 ThenPrint n & "不是素数"Exit ForEnd IfNext iIf i = n ThenPrint n & "是素数"End IfEnd Sub方法二：不管这个数是否为素数，假定它是素数，用一个变量（一般用flag）记住它是素数的状态（flag=1）,否则反之flag=0Private Sub Form_Click()Dim n%, i%, flag%flag = 1n = InputBox("请输入一个数")For i = 2 To n - 1If n Mod i = 0 Thenflag = 0Exit ForEnd IfNext iIf flag = 1 ThenPrint n & "是素数"ElsePrint n & "不是素数"End IfEnd Sub4 找出100到300之间的所有素数，并且5个一行输出Private Sub Form_Click()Dim n%, i%, flag%n = 0For j = 100 To 300flag = 1For i = 2 To j - 1If j Mod i = 0 Thenflag = 0Exit ForEnd IfNext iIf flag = 1 ThenPrint j;n = n + 1If n Mod 5 = 0 Then PrintEnd IfNext jEnd Sub5 求Dim i As Integer, fz As Integer, fm As IntegerDim sum As SingleDim t As Singlefz = 1t = 1i = 1sum = 0Do While 1 / t >= 0.000001sum = sum + fz / ti = i + 1t = t * (2 * i) * (2 * i + 1)fz = -fzLoopForm1.Print "其和为", Format(sum, "0.0000000")6 求1+3+5+7+……+100的和Private Sub Form_Click()Dim i%, sum%sum = 0For i = 1 To 100 Step 2sum = sum + iNext iPrint "1+3+....+100=" & sumEnd Sub7 求1!+2!+3!+…..10!之和Private Sub Form_Click()Dim i%, sum!, f! ‘注意这里定义为单精度，否则产生错误sum = 0f = 1For i = 1 To 10f = f * isum = sum + fNext iPrint "1!+2!+....+10!=" & sumEnd Sub8 打印九九乘法表 Private Sub Form_Click())!12(1)1(....!71!51!3111--++-+--n nDim i%, j%For i = 1 To 9For j = 1 To 9se = i & "×" & j & "=" & i * jPrint Tab((j - 1) * 9 + 1); se;Next jPrint '每输入完一行，打印换行，继续输出下一行Next iEnd Sub打印下三角九九乘法表Private Sub Form_Click()Dim i%, j%For i = 1 To 9For j = 1 To ise = i & "×" & j & "=" & i * jPrint Tab((j - 1) * 9 + 1); se;Next jPrint '每输入完一行，打印换行，继续输出下一行Next iEnd Sub打印上三角九九乘法表Private Sub Form_Click()Dim i%, j%For i = 1 To 9For j = i To 9se = i & "×" & j & "=" & i * jPrint Tab((j - 1) * 9 + 1); se;Next jPrint '每输入完一行，打印换行，继续输出下一行Next iEnd Sub9 猴子吃桃子。