vb新操作题(含答案)
VB编程题(附答案)汇总
Vb编程题1.求自然数1～100之间奇数之和。
Private Sub Form_Click()Dim i%, sum%For i = 1 To 99 Step 2sum = sum + iNext iPrint "sum="; sumEnd Sub2.求自然数1～100之间偶数之和。
Private Sub Form_Click()Dim i%, sum%For i = 1 To 100If i mod 2=0 thensum = sum + iend ifNext iPrint "sum="; sumEnd Sub3.编写程序，在窗体上随机输出一个10--99之间的两位整数。
Sub command1_click()Dim a%Randomizea=int(rnd*90+10)print aend sub4.编程计算从200到1000之间的所有4的倍数之和。
Private Sub Form_Click()Dim sum As Longsum = 0For i = 200 To 1000If i Mod 4 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub5.编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2Dim s As Singles = 0For i = 5 To 1 Step -1s = s + i / (i + 1)NextPrint “5/6+4/5+3/4+2/3+1/2=”;s6.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最大数。
Private Sub Command2_Click()Clsa = Val(InputBox("接收三个数:"))Print a;Max = aFor i = 1 To 2a = Val(InputBox("接收三个数:"))Print a;If a > Max Then Max = aNextPrintPrint "三数中最大者是:"; MaxEnd Sub7.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。
vb考试试题及答案
vb考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property答案：D2. VB中的“Option Explicit”语句用于做什么？A. 声明变量类型B. 强制变量声明C. 定义过程D. 创建对象实例答案：B3. 下列哪个不是VB的控件事件？A. ClickB. LoadC. ChangeD. Hover答案：D4. 在VB中，以下哪个不是标准数据类型？A. IntegerB. StringC. BooleanD. Pointer答案：D5. VB中的“With”语句用于什么？A. 初始化对象B. 创建对象实例C. 引用对象的多个属性或方法D. 循环遍历集合答案：C6. 在VB中，如何将一个表达式的结果赋值给一个变量？A. 使用“=”运算符B. 使用“==”运算符C. 使用“:=”运算符D. 使用“->”运算符答案：A7. 下列哪个是VB中的循环结构？A. IfB. For EachC. Select CaseD. While答案：D8. 在VB中，如何表示一个空引用？A. NullB. NothingC. EmptyD. Undefined答案：B9. VB中的“Handles”关键字用于什么？A. 过程定义B. 事件处理C. 类定义D. 属性声明答案：B10. 在VB中，以下哪个不是集合的属性或方法？A. AddB. ItemC. CountD. Sort答案：D二、填空题（每题2分，共20分）11. VB中的________关键字用于定义一个方法或属性的访问级别。
答案：Private12. 当你想要在VB中创建一个新类时，你需要使用________关键字。
答案：Class13. 在VB中，________方法用于在运行时创建对象。
答案：New14. 如果你想要在VB中捕获并处理异常，你应该使用________语句。
vb练习题及答案
vb练习题及答案VB练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。
为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。
练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。
要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。
解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。
要求用户输入学生的姓名和成绩，然后将其保存到数组中。
用户可以通过输入姓名来查询学生的成绩。
解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。
VB试题库及答案
VB试题库及答案最新VB题库及答案⼀、选择题第1部分1、在窗体（名称为Form1）上画⼀个名称为Text1的⽂本框和⼀个名称为Command1的命令按钮，然后编写⼀个事件过程。
程序运⾏后，如果在⽂本框中输⼊⼀个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是A、Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End SubB、Private Sub Command1_Click()Caption = "计算机等级考试"End SubC、Private Sub Form_Click()Text1.Caption = "计算机等级考试"End SubD、Private Sub Command1_Click()Text1.Text = "计算机等级考试"End Sub2、在⼀⾏内写多条语句时，每个语句之间⽤（）符号分隔。
A、 ,B、：C、.D、；3、下⾯（）是合法的变量名。
A、X_YZB、123ABCC、INTEGERD、X-Y4、下⾯（）是合法的字符常量。
A、 ABC$B、“ABC”C、‘ABC’D、 ABC5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。
A、14B、 4C、20D、26、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,11,10)7、设a="a"，b="b"，c="c"，d="d"，执⾏语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为A、"a"B、"b"C、"B"D、"A"8、在窗体上画⼀个⽂本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输⼊⼀个整数")Print x + Text1.TextEnd Sub程序运⾏时，在⽂本框中输⼊456，然后单击窗体，在输⼊对话框中输⼊123，单击“确定”按钮后，在窗体上显⽰的内容为A、123B、456C、579D、1234569、在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从⾼到低的顺序是（）。
vb初级编程试题及答案
vb初级编程试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明一个类？A. DimB. SubC. FunctionD. Class答案：D2. 如果一个变量在VB中被声明为Static，那么它的生命周期是多久？A. 只在程序运行期间B. 只在过程运行期间C. 直到程序结束D. 只在线程运行期间答案：C3. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Float答案：C4. 使用哪个VB函数可以将字符串转换为数值？A. ValB. StrC. ChrD. Asc答案：A5. 在VB中，以下哪个控件用于显示单行文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：B6. 在VB中，以下哪个事件用于响应按钮点击？A. ClickB. LoadC. ChangeD. DblClick答案：A7. 在VB中，以下哪个属性用于设置控件是否可用？A. EnabledB. VisibleC. CaptionD. Text答案：A8. 在VB中，以下哪个方法用于在文本框中添加文本？A. AppendB. WriteC. PrintD. Add答案：B9. 在VB中，以下哪个循环结构用于重复执行代码直到条件满足？A. Do WhileB. ForC. For EachD. While答案：D10. 在VB中，以下哪个关键字用于创建一个数组？A. DimB. NewC. ArrayD. Create答案：A二、填空题（每题2分，共20分）11. 在VB中，使用________函数可以获取字符串的长度。
答案：Len12. 当需要在VB中创建一个自定义函数时，应使用________关键字。
答案：Function13. 在VB中，________事件用于响应文本框内容的变化。
答案：Change14. 要将一个变量的值传递给VB中的函数，应使用________关键字。
vb试题及答案基础
vb试题及答案基础一、选择题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. SetD. Const答案：A2. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D3. VB中，用于实现条件判断的语句是：A. If...Then...ElseB. For...NextC. Do...LoopD. While...Wend答案：A4. 下列哪个选项是VB中的过程？A. FunctionB. SubC. Both A and BD. None of the above答案：C5. VB中，用于实现循环的语句是：A. For...NextB. Do...LoopC. While...WendD. All of the above答案：D6. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(10)B. Dim arr(10) As IntegerC. Both A and BD. None of the above答案：C7. VB中，用于创建用户界面的控件是：A. LabelB. TextBoxC. ButtonD. All of the above答案：D8. 在VB中，下列哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Open For AppendD. All of the above答案：D9. VB中，用于实现错误处理的语句是：A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. All of the above答案：D10. 在VB中，下列哪个选项是正确的事件处理？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D二、填空题（每题2分，共20分）1. VB中，声明全局变量的关键字是________。
vb考试试题题库及答案
vb考试试题题库及答案VB（Visual Basic）是一种由微软公司开发的编程语言，广泛用于开发Windows应用程序。
以下是一些VB考试的试题题库及答案，供参考：一、单选题1. 在VB中，以下哪个是正确的数据类型？- A. Integer- B. Real- C. String- D. All of the above答案：D2. VB中的“Sub”过程与“Function”过程的区别是什么？- A. Sub过程可以返回值，Function过程不能- B. Function过程可以返回值，Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案：B3. 在VB中，以下哪个是正确的变量声明方式？- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案：C二、多选题1. VB中的控件可以具有哪些属性？- A. Name- B. Caption- C. Font- D. All of the above答案：D2. VB中，以下哪些是事件驱动的编程语言的特点？- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案：A, B, C三、判断题1. VB是一种编译型语言。
- 正确- 错误答案：错误2. 在VB中，可以使用“Print”方法在文本框中显示文本。
- 正确- 错误答案：正确3. VB中的“Option Explicit”语句可以强制声明所有变量。
- 正确- 错误答案：正确四、简答题1. 简述VB中的事件和方法的区别。
答案：事件是用户或系统触发的动作，如点击按钮、键盘输入等。
方法是一种过程，可以包含代码来执行特定的任务或计算。
事件通常与控件相关联，并可以触发方法的执行。
2. 解释VB中“类”的概念。
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、菜单命令中有"…"标记表示该命令是一个______的命令。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、操作题,每题 10分,6 题共60分【第4题】打开文件“考生文件夹\175\工程1、vbp”,完善Command1_Click事件及s函数代码并保存。
实现功能:用递归法求1+2+3+…+100的值,结果输出在窗体上。
Public Function S(n As Integer) As IntegerIf n = 1 ThenS = ①ElseS = ② + S(n - 1)End IfEnd FunctionPrivate Sub Command1_Click()Dim Sum As IntegerSum = S(③)Print "Sum=" & CStr(Sum)End Sub【第5题】打开文件“考生文件夹\851\工程1、vbp”,完善程序实现如下功能并保存:花果山上有一洞,小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞,编程在Text1中输入台阶数,在Label1中显示有多少种不同的跳法。
正确的运行结果如下图所示,调试时输入的台阶数最大不要超过35！Function s(n As Integer) As LongIf n = 1 Or n = 2 Thens = ①ElseIf n = 3 Thens = 2Elses = s(n - 1) + s(n - 3) End IfEnd If ①1②text1、text③s(n)①1②n③100End FunctionPrivate Sub Command1_Click() Dim n As Integer n = Val(②)Label1、Caption = Str(③) End Sub 【第6题】打开文件“考生文件夹\861\年龄问题、vbp ”,完善程序实现如下功能并保存:有5个人坐在一起,第5个人说她比第4个人小3岁;第4个人说她比第3个人小3岁;第3个人说她比第2个人小3岁;第2个人又说她比第1个人小3岁;第1个人说她就是38岁。
编写程序,计算出第5个人的年龄并显示。
Private Sub cmdDisplay_Click() Print "第5人的年龄:"; age(①) End SubFunction age(n As Integer) As Integer If n = 1 Then age = ② Else age = age(n - 1) - 3 ③End Function 【第3题】打开文件“考生文件夹\89\工程1、vbp ”,完善Command1_Click 事件代码并保存。
乘坐飞机的经济舱时,免费托运行李一般不得超过20公斤,超重每公斤按全票价的1、5%计算。
实现功能:输入行李重量及经济舱全票价后,点击按钮,计算出行李托运费用,输出到对应文本框中。
Private Sub Command1_Click() Dim w As Integer '行李重量 Dim pj As Integer '机票价格 Dim fy As Single '托运费用 w = Val(Text1、Text) pj = Val(Text2、Text) If w <= 20 Then①Elsefy = (w - 20) * pj * 0、015②Text3、Text = ③ End Sub 【第4题】打开文件“考生文件夹\122\工程1、vbp ”,完善Command1_Click 事件代码并保存。
王晓珊家距离学校s1(千米),某天她与李明各自同时从家里步行出发上学,王晓珊步行速率v1(千米/小时),李明步行速率v2(千米/小时),结果她们同时到达学校。
实现功能:输入s1、v1、v2,在窗体上输出李明家与学校之间的距离s2。
Private Sub Command1_Click() Dim s1 As Single Dim s2 As Single Dim v1 As Single Dim v2 As Single Dim t As Singles1 = Val(InputBox("请输入王晓珊家离学校的距离:")) v1 = Val(InputBox("请输入王晓珊步行速度:")) v2 = Val(InputBox("请输入李明步行速度:")) t = ①s2 = ② * t Print ③ End Sub 【第6题】打开“考生文件夹\772”中的文件“工程1、vbp ”,完善Command1_Click 事件代码并保存。
实现功能:某商场正在搞促销活动,买300元送200元,例如:某顾客购买商品449元,返还顾客200元,不满300元的零头不送。
在文本框中输入一个正整数,计算返还的金额并显示在标签上,如样张所示。
Private Sub Command1_Click() Dim a As Integer Dim s As Integer a = Val(Text1、①) s = (②) * 200Label1、③ = Str(④) End Sub【第1题】打开文件“考生文件夹\373\操作2、vbp ”,完善程序实现以下功能并保存。
找出100以内的质数对(若两个质数的差为2则称为质数对),并成对显示结果。
其中,函数IsP(m)判断参数m 就是否为质数。
Public Function IsP(m) As Boolean Dim i As Integer__________(1)____________①s1/v1 ②v2 ③s2 ①text ②a\300 ③caption④sFor i = 2 To Int(Sqr(m))If ________(2)__________ Then IsP = False Next i End FunctionPrivate Sub Command1_Click()Dim i As Integer, p1 As Boolean, p2 As Boolean p1 = IsP(3)For i = 5 To 100 Step 2 p2 = IsP(i)If p1 and p2 Then Print _________(3)_________ , i p1 = p2 Next i End Sub 【第8题】打开文件“考生文件夹\859\玫瑰花数、vbp ”,完善程序实现如下功能并保存:如果一个4位数等于它的各位数字的4次方与,则这个4位数称为“玫瑰花”数,例如1634就就是一个玫瑰花数。
试编程求出所有的玫瑰花数,结果如下图所示。
Private Sub cmdDemoRose_Click() Dim i As Integer Dim s As Integer Dim m As Integer For i = 1000 To 9999 s = 0For j = ① To 4 m = Mid(i, j, 1) s = s + ② Next jIf i = s Then Print i ③ End Sub 【第8题】打开文件“考生文件夹\863\细胞分裂、vbp ”,完善程序实现如下功能并保存:① Isp=true ② M mod 2=0 ③ I-2① 1 ② m^4 ③ next i有一种细胞每3分钟分裂一次,每次分裂时每个细胞分裂成2个,30分钟后有2048个细胞。
问开始时有多少个细胞？Private Sub cmdDivision_Click()Dim f(10) As Integer ' 30分钟共分裂10次Dim i As Integerf(10) = ①For i = 9 To 0 Step ②f(i) = f(i + 1) / 2 Next i Print ③ End Sub 【第1题】打开文件“考生文件夹\375\操作4、vbp ”,完善程序实现以下功能并保存。
从键盘输入若干个数直到输入负数为止,统计所有非负数的平均值并输出。
Private Sub Command1_Click() Dim x As Single, y As Single Dim z As Integerx = InputBox("输入一个数:")Do while _____(1)________y=_____(2)_________z = z + 1x = InputBox("输入一个数:") LoopIf z = 0 Then z = 1 End Ify=______(3)___________ Print "平均值为:"; y End Sub 【第1题】打开文件“考生文件夹\372\操作1、vbp ”,完善程序实现以下功能并保存。
Private Sub Command1_Click() Dim s As SingleDim a As Integer, b As Integer, c As Integer, k As Integer s = 0 a = ______(1)_________ b = 1 For k = 1 To 20 s = s + a / bc = ______(2)_________ a = ______(3)_________① 2048 ② step -1 ③ f(0) ① x>=0② y+x③ y/z① 1 ② a ③ bb =c + a Next k Print s End Sub 【第7题】打开文件“Z:\114\工程1、vbp ”, 完善Form_Click 事件代码并保存。
完善程序,求1/1+1/2+2/3+…+21/34+…前20项的值。
Private Sub Command1_Click() Dim s As Integer Dim a As Integer Dim b As Integer Dim k As Integer s = 0 a = 1 b = 1For k = 1 To 10 s = s + a / b a = ① s = ② b = ③ Next k Print s End Sub 【第3题】打开文件“考生文件夹\374\操作3、vbp ”,完善程序实现以下功能并保存。
输出数组的最大值。
Private Sub Command1_Click() Dim arr1, Max As Integerarr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) ______(1)________= -32768For i = _____(2)______ To 7If arr1(i) > Max Then _____(3)__________Next iPrint "最大值就是: "; Max End Sub 【第4题】打开文件“考生文件夹\376\操作5、vbp ”,完善程序实现如下功能并保存: 在所有的两位整数中,输出个位数字与十位数字不相同的整数及个数。