大学计算机VB程序设计考试题目
计算机程序设计-VisualBasic【VB】考试试题(1)
A、 AutoSize B、 Visible C、 Enabled D、 WordWrap 正确答案: A 解析:
42、当文本框的 MaxLength 属性值取________时,该文本框能容纳的字符数最多。
A、 256 B、 512 C、 0 D、 -1 正确答案: C 解析:
43、在一行语句内写多条语句时,每个语句之间用_____ ___符号分隔。
A、 ; B、 : C、 , D、 、 正确答案: B 解析:
44、结构化程序由三种基本结构组成,下面术语中是三种基本结构之一的是______ _。
A、 递归结构 B、 选择结构 C、 输入输出结构 D、 过程结构 正确答案: B 解析:
45、在默认情况下,InputBox() 函数返回值的类型为______ __。
8、下列关于 VB 编程的说法中,不正确的是( )。
A、 事件是能被对象识别的动作 B、 方法指示对象的行为 C、 属性是描述对象特征的数据 D、 VB 程序采用的运行机制是面向对象 正确答案: D 解析:
9、下面所列符号中,_________不是数据类型说明符。
A、 !
B、 % C、 ? D、 # 正确答案: C 解析:
A、 0.01*Int(100*(x+0.005)) B、 0.01*Int(x+0.005) C、 0.01*Int(100*(x+0.05)) D、 0.01*Int(x+0.05) 正确答案: A 解析:
24、从字符串变量 Cstr 中取左边 4 个字符,应使用________。
A、 Left(Cstr,4) B、 Left(Cstr,1,4) C、 Mid(Cstr,3,4) D、 Mid(Cstr,4,3) 正确答案: A 解析:
vb程序设计题及答案
vb 程序设计题及答案篇一:vb 程序设计试题及答案】txt> 一、单选题1. visual basic 是一种面向对象的可视化程序设计语言,采取了a 的编程机制。
(a) 事件驱动(b) 按过程顺序执行(c) 从主程序开始执行(d) 按模块顺序执行2. 若要使标签控件显示时不覆盖其背景内容,要对d 属性进行设置。
(a) backcolor (b) borderstyle(c) forecolor (d) backstyle3. 在visual basic 中最基本的对象是c ,它是应用程序的基石,是其他控件的容器。
(a) 文本框(b) 命令按钮(c) 窗体(d) 标签4. 要判断在文本框是否按下enter 键,应在文本框的d 事件中判断。
(a) change (b)keydown(c) click (d)keypress5. 数学表达式3W xIO在vb中的逻辑表达式为d 。
(a) 3=x10(b) 3=x and x10(c) x=3 or x1O (d) x=3 and x1O6. rnd 函数不可能为下列b 值。
(a) O (b) 1(c) O.1234 (d) O.OOO57. 赋值语句:a=123+mid(123456 ,3,2)执行后,a 变量中的值是d(a) 12334(b) 123 (c) 12334 (d) 1578. 对于语句if x=I then y=I ,下列说法正确的是c 。
(a) x=I 和y=I 均为赋值语句(b) x=I 和y=I 均为关系表达式(c) x=I 为关系表达式,y=I 为赋值语句(d) x=I 为赋值语句,y=I 为关系表达式9. 下面程序段表示求两个数中的大数,d 不正确。
(a) max=iif(xy ,x,y) (b) if xy then max=x eIse max=y(c) max=x (d) ify=x then max=yif y=x then max=y max=x10. 当在文本框中输入“ a bcd ”4个字符时,窗体上显示的是c。
大学_vb期末考试试题
VB期末考试试题A卷一、填空题1、VB程序设计的主要特点是和(2)。
2、在VB中,最主要的两种对象是 (3)和(4)。
3、工程是构成应用程序文件的(5) 。
4、方法是VB提供的一种(6) ,用来完成一定的操作。
5、浮点类型数据包括单精度型和___(7)__数据。
6、事件是窗体或控件对象识别的___(8)____.7、可用窗体的___(9)_ 方法在窗体中显示文字.8、复选框控件Value属性指示复选框处于____(10)___或禁止状态(暗淡的)中的某一种。
9、在VB中,修改窗体的(11)和(12)属性值,可改变窗体的大小。
10、双击工具箱中的控件图标,可在窗体的(13) 出现一个尺寸为缺省值的控件。
11、在MsgBox函数中,如果缺省title参数,则使用(14)作为消息框的标题。
12、设x=34。
58,语句Print Format(x,“000。
0”)的输出结果是(15) .13、在VB 中,数值型变量的初值为(16),Varant型变量的初值为(17),布尔型变量的初值为(18)。
14、设置窗体的(19)属性,可在窗体上显示图片。
15、程序运行工程中,清除MP图片框中的图片应使用语句(20)。
二、选择题1、菜单控件只包括一个事件,即 (1),当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocusB、LoadC、ClickD、KeyDown2、滚动条控件(如图所示)的Max属性所设置的是(2) .A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句 Select * Form student 中的*表示 (3)。
A、所有记录B、所有字段C、所有表D、都不对4、以下选项中,不属于标签的属性是 (4) .A、EnabledB、CaptionC、DefaultD、Font5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是(5) 。
vb程序设计试题及答案
vb程序设计试题及答案一、选择题(每题2分,共20分)1. 在VB中,下列哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. VB中用于声明变量的关键字是?A. DimB. DeclareC. SetD. All of the above答案:A3. 在VB中,下列哪个选项是正确的循环语句?A. ForB. DoC. WhileD. All of the above答案:D4. VB中用于打开文件的函数是?A. OpenB. CloseC. WriteD. Read答案:A5. 在VB中,下列哪个选项是正确的条件语句?A. If...ThenB. Select CaseC. Do WhileD. All of the above答案:A6. VB中用于创建新窗体的语句是?A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案:A7. VB中用于声明常量的关键字是?A. ConstB. DimC. StaticD. Option答案:A8. 在VB中,下列哪个选项是正确的数组声明?A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案:A9. VB中用于结束程序的语句是?A. EndB. ExitC. CloseD. All of the above答案:B10. VB中用于捕获异常的语句是?A. Try...CatchB. On ErrorC. CatchD. All of the above答案:B二、填空题(每题2分,共20分)1. 在VB中,声明一个名为myVar的变量,其类型为字符串,应该使用语句________。
答案:Dim myVar As String2. VB中,用于定义一个名为myFunction的函数,返回值为整数,应该使用语句________。
VB程序设计试卷A及答案
_ _ _ _ _ _ _ _ _ _ _ _号学_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _名姓_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _级班_ _ _ _ _ _ _ _ _ _ _ _ _部系----------------------《 VB程序设计》试卷( A 卷)------(时间 90 分钟满分 100 分)-------线-题号一二三四五合计-----分数-----阅卷人------一、选择题:( 30 分,每题 2 分)-----阅卷人得分------------1、“x 是小于 100 的非负数”,用 VB表达式表示正确的是()-----A、 0≤ x<100 B 、0<=x<100C、0<=x or x<100 D 、0<=x and x<100-封--2、下面哪组语句可以将变量 A 和 B 的值互换?()-----A、 A=B: B=A B、 A=(A+B)/2: B=(A-B)/2------C、 A=A+B:B=A-B:A=A-B D、 A=C:C =B:B=A-----3、在 Select Case X 结构中,描述判断条件 3≦X ≦7的测试项应该写成------____________ 。
----A、 Case 3 ≦ X ≦ 7B、 Case 3 To 7------ C 、 case Is≦3, Is ≧ 3D、 Case 3 ≦ X , X ≦ 7--密4、下面()是算术运算符?-----A、mod B 、 imp C、not D、like-----5、以下控件中可以入选为容器控件的是() 。
------A、Image 图像框控件B、 ListBox列表框控件-----C、TextBox 文本框控件D、Picture图片框控件--------------------第 1 页----6、下列操作不能打开代码窗口的是( )A、选中对象 , 单击鼠标右键 , 在弹出的快捷菜单中选择“查看代码”命令B、选中对象 , 双击鼠标左键C、按F7键D、按F4键7、函数 Mid(" 山羊上山山碰山羊脚 ", 3, 2)的结果是()A、山羊B、羊上C、上山D、山山8、窗体运行后,要使窗体自动显示在屏幕的中央位置,应设置窗体的()属性?A、WindowstateB、StartuppositionC、IconD、mousePointer9、下列哪个语句是错误的VB语句()A、 Text1.Text = " 你好! " ; Text1.BackColor = RedB、 Text1.Text = " 你好! " : Text1.BackColor = RedC 、Text1.Text = "你好!"D 、 Option Explicit10、以下描述中错误的是 ( )A、符号常量的使用和变量的使用没有差别B、常量可分为字符型常量,数值常量,时间/ 日期型常量,布尔型常量C、符号常量是用一个标识符来代表一个常量D、常量在程序执行期间其值不会发生变化11、若想要建立一个学生管理的输入界面,其中要求选择学生的性别/ 政治面貌(党 / 团/ 群众)及选课情况(共有 5 门课,可任选),应如何在窗体中利用单选钮和选择框来实现()。
vb考试试卷
vb考试试卷VB考试试卷一、选择题(每题2分,共20分)1. 在VB中,以下哪个是正确的变量声明方式?A. Dim aB. Dim a = 5C. Dim a As IntegerD. Dim a As String = "Hello"2. 下列哪个是VB中的循环结构?A. IfB. ForC. SubD. Function3. VB中的数组声明方式是:A. Dim numbers(1 To 10)B. Dim numbers As Integer(1 To 10)C. Dim numbers(10)D. Dim numbers As Array = New Integer(10)4. 在VB中,以下哪个是正确的条件语句?A. If x > 0 ThenB. If x > 0C. If x > 0 ElseD. If x > 0 End If5. VB中,以下哪个是正确的函数定义方式?A. Function Add(x, y) As IntegerB. Function Add(x, y) = x + yC. Function Add(x, y) = Return x + yD. Function Add(x, y) = x + y End Function...(此处省略其他选择题)二、填空题(每空2分,共20分)1. 在VB中,使用________关键字来声明常量。
2. VB中的________结构用于执行一系列动作,直到满足某个条件。
3. 要声明一个包含10个整数的数组,可以使用________。
4. 当需要在VB中调用另一个窗体时,可以使用________方法。
5. VB中的________属性用于设置控件的可见性。
...(此处省略其他填空题)三、简答题(每题10分,共20分)1. 简述VB中的事件驱动编程的概念及其重要性。
2. 解释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程序设计题库(全)
程序设计第一题、题目:(事件)单击窗体(响应)求50以内所有偶数的和,并在窗体上输出来。
将结果存入变量S中。
代码:Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目:(事件)双击窗体(响应)求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码:Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目:(事件)单击窗体(响应)求100以内偶数的和,并将结果输出在窗体上。
将结果存入变量SUM中代码:Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目:(事件)单击窗体(响应)编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。
将结果存入变量M中。
代码:Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目:(事件)双击窗体(响应)求100以内奇数的和,并将结果输出在窗体上。
将结果存入变量SUM中。
代码:Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目:(事件)单击窗体(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码:Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目:(事件)双击窗体(响应)求1+1*2+1*2*3+....+1*2*3*. (10)并将结果存到变量S中代码:Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目:(事件)单击窗体(响应)求1—1/2+1/3—1/4+….+1/99—1/100的值。
2024年VB语言程序设计试题库
VB程序设计一、判断题1.同一Form窗体中的各控件能够相互重叠,其显示的上下层次的次序不能够调整。
(X )ﻫ2.一个对象的若能识别多个事件,我们只能对其中一个事件编程( )ﻫ3.单项选择按钮与复选框对象的Value属性类型不一样,且只能取值True和False。
(√ )4. 事件过程由某个用户事件或系统事件触发执行,它不能被其他过程调用。
( )5. 图片框的Move措施不但能够移动图片框,并且还能够变化该图片框的大小,同时也会变化该图片框有关属性的值。
( √ )6. “A=B=C”是一个合法的Visual Basic语句。
( )7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时,组合框会自动把这一条目添加到它的列表框中。
( )ﻫ8. Visual Basic程序的运行能够从 Main()过程开启,也能够从某个窗体开启。
( √ )ﻫ9. 在图片框中放置的控件既能够在该图片框内移动,也能够移出该图片框外。
( )10. 对于文献系统控件,当驱动器控件Drivel中的驱动器符变化时,文献夹列表控件Dir1中显示的文献夹也作对应的变化,能够在Drive1中的Change事件中使用如下命令。
Dir1. Path= Drive1.Drive( √)11. 滚动条控件可作为用户输入数据的一个措施。
( √)ﻫ12.单项选择按钮控件和复选框控件都具备Value属性,它们的作用完全相同。
( )ﻫ13. 静态变量是一个局部变量,当原过程再次被执行时,静态变量的初值是上一次过程调用后的值。
( √ )ﻫ14. Visual Basic提供的几个标准坐标系统的原点都是在绘图区域的左上角,假如要把坐标原点放在其他位置,则需使用自定义坐标系统。
(√ )ﻫ15.注释语句REM可自成一语句。
( √ )ﻫ16.用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该菜单控件时,触发 KeyPress( )17.组合框兼有文本框和列表框二者的功效,用户能够通过键人文本或选择列表中的项目来进行选择。
vb考试试题及答案
vb考试试题及答案一、选择题1. VB中,用于声明变量的关键字是:A. DimB. DeclareC. ConstD. Option答案:A2. 在VB中,下列哪个选项不是合法的变量名?A. _myVarB. var2C. 123variableD. my$Var答案:C3. VB中,下列哪个选项是正确的条件语句?A. If condition ThenB. If condition Then ElseC. If condition Then Else IfD. If condition Then Else Else答案:A4. VB中,下列哪个函数用于计算字符串的长度?A. Len()B. Length()C. StrLen()D. Size()答案:A5. 在VB中,下列哪个选项是正确的循环结构?A. For i = 1 To 10B. Do While i < 10C. For Each i In arrD. All of the above答案:D二、填空题1. 在VB中,声明一个整型变量并赋值为100的语句是:________。
答案:Dim myVar As Integer = 1002. VB中,用于输出信息到立即窗口的函数是:________。
答案:Debug.Print3. VB中,用于暂停程序执行的函数是:________。
答案:Sleep4. VB中,用于获取当前日期的函数是:________。
答案:Date5. VB中,用于将字符串转换为整型的函数是:________。
答案:CInt三、简答题1. 简述VB中事件驱动编程的概念。
答案:事件驱动编程是一种编程范式,程序的执行流程由外部事件(如用户操作、系统消息等)触发,而不是由程序内部的逻辑顺序决定。
2. 描述VB中如何实现多线程编程。
答案:在VB中,可以使用Thread类或BackgroundWorker组件来实现多线程编程。
vb上机考试题库及答案86套
vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中,用于声明变量的关键字是()。
- A. Dim- B. Declare- C. Let- D. Set- 答案:A- 1.2 下列哪个选项是VB中合法的变量名?()- A. 123abc- B. _name- C. name$- D. name 2- 答案:B2. 填空题- 2.1 VB中,使用()函数可以将字符串转换为数值。
- 答案:Val- 2.2 在VB中,使用()关键字可以定义一个数组。
- 答案:Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。
- 答案:事件驱动编程是一种编程范式,程序的执行流程由外部事件(如用户操作、消息、定时器等)触发,而不是按照预先定义的顺序执行。
4. 编程题- 4.1 编写一个VB程序,实现计算两个数的和并输出结果。
- 答案:```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中,使用“=”符号可以比较两个变量的值是否相等。
() - 答案:错误。
应该使用“==”符号进行比较。
- 5.2 在VB中,可以使用“End”关键字来结束一个程序的执行。
()- 答案:正确。
6. 综合应用题- 6.1 设计一个VB程序,实现用户输入姓名和年龄,程序输出“欢迎你,[姓名],你今年[年龄]岁。
”- 答案:```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名:")age = Val(InputBox("请输入你的年龄:"))MsgBox "欢迎你," & name & ",你今年" & age & "岁。
大学计算机基础vb试题及答案
大学计算机基础vb试题及答案一、选择题(每题2分,共10分)1. 在VB中,以下哪个选项是正确的数据类型?A. IntegerB. StringC. DoubleD. 以上都是答案:D2. VB中用于声明变量的关键字是?A. DimB. DeclareC. ConstD. Option答案:A3. 下列哪个函数用于将字符串转换为数值?A. CIntB. CStrC. CDblD. CLng答案:A4. 在VB中,以下哪个控件用于显示文本信息?A. LabelB. TextBoxC. ComboBoxD. ListBox答案:A5. VB中,以下哪个事件用于处理按钮点击?A. ClickB. DoubleClickC. DblClickD. MouseDown答案:A二、填空题(每题2分,共10分)1. VB中的_________语句用于定义一个过程。
答案:Sub2. VB中,_________函数用于获取当前日期。
答案:Date3. 在VB中,_________属性用于设置或返回控件的可见性。
答案:Visible4. VB中,_________方法用于清空文本框中的内容。
答案:Clear5. VB中,_________事件用于处理文本框内容改变。
答案:Change三、简答题(每题5分,共20分)1. 请简述VB中事件处理程序的作用。
答案:事件处理程序是VB中用于响应用户操作或系统事件的代码块,它们使得程序能够对用户的输入或特定事件做出反应。
2. 描述VB中数组的声明和使用方式。
答案:在VB中,数组可以通过Dim语句声明,如Dim arr(10) As Integer,表示声明一个包含11个整数的数组。
使用时,通过索引访问数组元素,如arr(0)。
3. 说明VB中如何使用条件语句。
答案:VB中使用If...Then...Else语句进行条件判断。
如果条件为真,则执行Then后面的代码块;如果条件为假,则执行Else后面的代码块。
(完整word版)VB程序设计试题题库及答案.doc
VB程序设计笔试题题库一、选择题1 下列常量中,是 Integer类型常量的是(C )。
A、123&B、-38844C、123%D、327682 下面选项中 () 是字符连接运算符 . ( A )A、&B、AndC、%D、Mod3下面关于 VB 的集成开发环境( IDE )的叙述中,不正确的是(B )。
A、IDE是设计、调试、运行 VB程序的工具。
B、用户不能随意关闭 IDE中的窗口。
C、" 窗体设计 " 窗口是用来设计应用程序界面(窗体)的。
D、打开 / 关闭各窗口的命令主要在 IDE的" 视图 " 菜单中。
4 len( “程vb序设计”)=( C ) 。
A、 5B、2C、 6D、105 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2)执行后, A= ( A )。
A、157B、12334C、123D、"12334"7 在一个语句内写多条语句时 , 用来分隔每条语句的符号是 ( C ).A、,B、;C、:D、、8 将逻辑型数据转换成整型数据时,转换规则是( D )。
A、将 True 转换为 1 ,将 False 转换为 0B、将 True 转换为 1 ,将 False 转换为 -1C、将 True 转换为 0 ,将 False 转换为 -1D、将 True 转换为 -1 ,将 False 转换为 09 表达式 2+3*4^5-SIN(X+1)/2 中最先进行的运算是 ( D ).A、SINB、4^5C、3*4D、x+110 如果 x=2 ,则表达式 x+1>2 Or sin(x)>0.9 And 3>x+3 的值( B )。
A、不能计算B、 TrueC、5D、False11 随机产生 [10,50] 之间整数的正确表达式是( D )。
大学vb试题及答案
大学vb试题及答案大学VB试题及答案一、选择题(每题2分,共20分)1. VB中,以下哪个函数用于计算字符串的长度?A. LenB. StrC. UCaseD. LCase答案:A2. 在VB中,以下哪个关键字用于定义一个过程?A. FunctionB. SubC. DimD. Const答案:B3. VB中,以下哪个控件用于显示文本信息?A. TextBoxB. ButtonC. LabelD. ComboBox答案:C4. 在VB中,以下哪个属性用于设置文本框的只读状态?A. ReadOnlyB. EnabledC. VisibleD. BackColor答案:A5. VB中,以下哪个语句用于结束当前的过程执行?A. EndB. ExitC. ReturnD. Stop答案:B6. VB中,以下哪个关键字用于定义一个类?A. ClassB. ModuleC. InterfaceD. Namespace答案:A7. 在VB中,以下哪个函数用于将字符串转换为大写?A. UCaseB. LCaseC. StrConvD. Trim答案:A8. VB中,以下哪个属性用于设置控件的可见性?A. VisibleB. EnabledC. BackColorD. ForeColor答案:A9. 在VB中,以下哪个语句用于创建一个新的对象实例?A. NewB. CreateObjectC. DimD. Set答案:D10. VB中,以下哪个关键字用于定义一个数组?A. DimB. ReDimC. EraseD. Option Base答案:A二、填空题(每题2分,共20分)1. VB中,使用________关键字可以定义一个变量。
答案:Dim2. 如果要在VB中创建一个包含10个元素的整数数组,可以使用________语句。
答案:Dim arr(9) As Integer3. VB中,使用________函数可以获取当前系统时间。
大学VB考试题库完整
大学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、为了装入一个VisualBasic应用程序,应当(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、VisualBasic 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程序设计复习题答案
VB程序设计复习题1.Visual Basic是一种___D___的可视化程序设计语言。
A.面向机器 B.面向过程 C.面向问题 D.面向对象2.Visual Basic主窗口中不包括____B_____。
A.标题栏 B.状态栏 C.工具栏 D.菜单栏3.程序运行中用鼠标双击当前窗体时,会触发窗体的_____C____ 事件。
A.Load B.Unload C.DblClick D.KeyPress4.假设窗体上已有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先要执行的操作是____A______。
A.单击窗体上没有控件的地方 B.单击任一个控件C.双击任一个控件 D.双击窗体上没有控件的地方5、要设置窗体上各控件的属性,可在 ____C___ 中进行。
A.窗体布局窗口 B.工程资源管理器窗口C.属性窗口 D.窗体窗口6.设变量A的值为-2,则___A___函数的执行结果与其他三个不一样。
A.Val("A") B.Int(A) C.Fix(A) D.-Abs(A)7.要在窗体Forml的标题栏上显示"统计程序",可用___B___语句。
A.="统计程序" B.Form1.Caption="统计程序"C. Forml.Caption=统计程序 D.=统计程序8.函数String(n, "str")的功能是 B 。
A.把数值型数据转换为字符串B.返回由n个字符组成的字符串C.从字符串中取出n个字符D.从字符串中第n个字符的位置开始取子字符串9、定义变量如下:Dim MyVarMyVar =”come see me “若在立即窗口中显示MyVar的值,下面正确的是( A )A.Debug.Print MyVar B、? MyVar C.Printer.Print MyVar D、Print MyVar 10.设置复选框或单选按钮标题对齐方式的属性是( D )A.Align B.value C.Sorted D. Alignment11、滚动条控件的LargeChange属性所设置的是( A )A.单击滚动条和滚动箭头之间的区域时,滚动条控件value属性值的改变量B.滚动条中滚动块的最大移动位置C.滚动条中滚动块的最大移动范围D.滚动条控件无该属性12、设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是( D )A.Caption B.Name C.Text D.value13、在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序:Private Sub Command1_Click( )a=Text1.textb=Text2.textC=Lcase(a)D=Ucase(b)Print C;DEnd Sub程序运行后,在文本框Text1、Text2中分别输入AbC和Efg,结果是( A )A.abcEFG B.abcefg C.ABCefg D.ABCEFG14.假定窗体上有一个标签,名为Label1,为了使该标签透明并且没有边框,则正确的属性设置为( A )A.Label1.BackStyle=0 B.Label1.BackStyle=1Label1.BorderStyle=0 Label1.BorderStyle=1C.Label1.BackStyle=True D.Label1.BackStyle=FalseLabel1.BorderStyle=True Label1.BorderStyle=False15.当拖动滚动条中的滚动块时,将触发滚动条的事件是( D )A.Move B.Change C.SetFocus D.Scoll16.比较图片框(PictureBox)和图像框(Image)的使用,正确的描述是( C )A.两类控件都可以设置AutoSize属性,以保证装入的图形可以自动改变大小B.两类控件都可以设置Stretch属性,使得图形根据物件的实际大小进行拉伸调整,保证显示图形的所有部分C.当图片框(PictureBox)的AutoSize属性为FaLse时,只在装入图元文件(*.wmf)时,图形才能自动调整大小以适应图片框的尺寸D.当图像框(Image)的Stretch属性为True时,图像框会自动改变大小以适应图形的大小,使图形充满图像框17.当利用Line方法进行绘图时,以下正确的说法是( B )A.有7种不同的线型,而且不管线宽多少都可以绘制虚线/点划线/点线B.使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线C.可利用Line方法添加矩形,如Line(300,300)-(2000,2000),BFD.可利用Line方法添加矩形,如Line(300,300)-(2300,2300),B+F18.下面语句中错误的是( B )A. Redim Preserve Matrix(10,Ubound(Matrix,2)+1)B. Redim Preserve Matrix(Ubound(Matrix,1)+1,10)C. Redim Preserve DynArray(Ubound(DynArray)+1)D. Redim DynArray(Ubound(DynArray)+1)19.可以唯一标识控件数组中的每一个控件的属性是( C )A.Name B.Caption C.Index D.Enabled20、下面( D )不是VB的文件类控件A.DriveListBox控件 B.DirListBox控件C.FileListBox控件 D、MsgBox21、关于Open语句不正确的叙述是( D )(A)Open语句可以打开顺序文件(B)Open语句可以打开随机文件(C)Open语句可以打开二进制文件(D)Open语句可以打开一个窗体22、下列语句所声明的数组的元素个数为( A )Dim Ary(3 To 6,-2 To 2)(A)20 (B)16 (C)24 (D)2523、下面对控件数组叙述正确的是( A )(A)在窗体上添加第二个相同类型的控件时,VB不会提示创建一个控件数组(B)控件数组使用Index属性来标识控件元素,其范围必须从0开始(C)控件数组使用的资源比用几个单独同类型的控件占用的资源要多(D)如果有一个命令按钮数组,各个按钮都有自己的Click事件过程24、在框架Frame1和图片框Piture1中各有一组复选框CheckBox,其作用是( D )(A)两组复选框中只有一个能被选中(B)因有两组复选框,无一可被选中(C)两组复选框中各有一个能被选中(D)两组复选框中各有多个被选中25、要从For...Next循环中中退出循环,使用的语句是 (B)(A)Exit Do (B)Exit For (C)Continue (D)Stop二、多项选择题1、要清除文本框Textl中的内容,使其内容为空字符串,可以采用( AC)。
计算机程序设计-VisualBasic【VB】考试试题(3)
14、下列所列符号中,_________是 VB 中的合法变量名。
A、 7AB B、 AB7 C、 IF D、 A[B]7 正确答案: B 解析:
15、下列逻辑表达式中,值为 True 的是________。
A、 111. B、 11.10 C、 111.00 D、 11.1a 正确答案: A 解析:
28、从字符串变量 Cstr 中取左边 4 个字符,应使用________。
A、 Left(Cstr,4) B、 Left(Cstr,1,4) C、 Mid(Cstr,3,4) D、 Mid(Cstr,4,3) 正确答案: A 解析:
A、 定时器 B、 滚动条 C、 多媒体 D、 框架 正确答案: C 解析:
3、在设计阶段,当双击窗体上的某个控件时,所打开的窗口是( )。
A、 属性窗口 B、 工具箱窗口 C、 工程资源管理器窗口 D、 代码窗口 正确答案: D 解析:
4、VB6.0 集成开发环境中,不能完成的功能是( )。
A、 编译生成可执行程序 B、 输入编辑源程序 C、 调试运行程序 D、 自动查找并改正程序中的错误 正确答案: D 解析:
A、 递归结构、选择结构、循环结构 B、 选择结构、过程结构、顺序结构 C、 选择结构、循环结构、顺序结构 D、 过程结构、输入输出结构、转向结构 正确答案: C 解析:
45、下列赋值语句中,正确的是__ ______。
A、 x+1=5 B、 a&="10e" C、 x!="abc" D、 s$=100 正确答案: D 解析:
31、如果 Sgn(x) 的值为 -1,则整型变量 x 的值是_______。
大一VB《计算机语言与程序设计》考试题型复习(含答案)
一、 单选题1. Visual Basic是一种面向对象的可视化程序设计语言,采取了_______的编程机制。
A) 从窗体开始执行 B) 按书写顺序执行 C) 从主程序开始执行 D) 事件驱动2. 在Visual Basic中最基本的对象是_________,它是应用程序的基石,是其他控件的容器。
A) 文本框 B) 窗体 C) 标签 D) 命令按钮3. 有下面的程序代码:Command1.Caption ="确定",则Command1,Caption和"确定"分别代表 _________。
A) 对象,属性,值 B) 对象,方法,值C) 对象,值,属性 D)属性,对象,值4.多窗体程序是由多个窗体组成的,在缺省的情况下,VB应用程序执行时,总是把_________指定为启动窗体。
A)不包含任何控件的窗体 B)设计时的第一个窗体C)包含控件最多的窗体 D)命名为Form1的窗体5.VB是一种面向对象的程序设计语言,下面_________不是面向对象包含的三要素。
A) 变量 B) 事件 C) 属性 D) 方法6.VB 6.0集成开发环境中不能完成的功能是_______。
A)输入编辑源程序 B)编译生成可招待程序C) 调试运行程序 D)自动生成查找并改正程序中的错误7.下列关于VB编程的说法中不正确的是_______。
A)属性是描述对象特征的数据 B)事件是能被对象识别的动作C)方法指示对象的行为 D)VB程序采用的运行机制是面向对象8.关于面向对象的描述中,不正确的是_______。
A)对象就是自定义结构变量 B)对象代表正在创建的系统中的一个实体C)对象是一个特征和操作的封装体 D)对象之间的信息传递是通过消息进行的9.以下叙述错误的是________。
A)打开一个工程文件时,系统自动装入与该工程有关的窗体文件B)打开一个窗体文件时,系统自动装入与该窗体有关的工程文件C)保存VB应用程序时,应分别保存窗体文件和工程文件D)事件可以由用户激发,也可以由系统激发10.VB6.0集成开发环境不包括________窗口。
VB程序设计试题及答案(一)-vb程序设计答案
VB程序设计试题及答案(一)一、单选题1。
VB6.0是一种面向B 的编程环境。
(A)机器(B) 对象(C)过程(D)应用2。
要使FormI窗体的标题栏显示”欢迎使用VB",以下D 语句是正确的。
(A) Forml.Caption=“欢迎使用VB”(B)Forml。
Caption='欢迎使用VB’(C) Forml。
Caption=欢迎使用VB(D)Forml.Caption="欢迎使用VB"3。
若要使命令按钮不可操作,要对A 属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象TextI,可以通过C 事件获得输入键值的ASCII码。
(A) Change (B)LostFocus(C)KeyPress (D) GotFocus5。
下面A 是合法的变量名.(A)X_yz (B) 123ab。
(C) integer (D) X—Y6。
以下关系表达式中,其值为False的是A 。
(A)"ABC”>"AbC" (B) ”女”>”男"(C)"BASIC”=UCase("basic) (D) ”123”〈"23”7. 为了给x、y、z三个变量赋初值1,下面正确的赋值语句是A 。
(A) x=1:y=1:z=1 (B)x=1,y=1,z=1(C)x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构,三种基本结构是D 。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9。
下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是 D .(A) If sex="男" And age=4O And InStr(duty,”教授")〉O Then n=n+l(B) If sex=”男” And age=4O And (duty=”教授” Or duty="副教授”)Then n=n+l(C) If sex="男" And age=4O And Right(duty,2)=”教授” Then n=n+l(D) If sex="男” And age=4O And duty="教授" And duty="副教授" Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D .(A) Do While…Loop循环和Do…Loop Until循环至少都执行一次(B)Do While…Loop循环和Do…Loop Until循环可能都不执行(C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行(D)Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次11.以下B 是正确的For…Next结构。
vb程序设计试题(含答案)
vb程序设计试题(含答案)第一套试题一、选择题(每题2分,共30分)1.在VB环境中,工程文件的扩展名是( C )(A).frm (B).bas (C).vbp (D).frx2.下面4项中不属于面向对象系统三要素的是( A )(A)变量(B)事件(C)属性(D)方法3. \、/、Mod、*这4个算述运算符中,优先级别最低的是( C )(A)\ (B)/ (C)Mod (D)*4.要使Print方法在Form_Load事件中起作用,要对窗体的( C )属性进行设置(A)BackColor (B)ForeColor(C)AutoRedraw (D)Caption5.不论何控件,共同具有的属性是( B )(A)Text (B)Name(C)ForeColor (D)Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”,以下语句正确的是( D ) (A)Form1.Caption=“欢迎使用VB”(B)Form1.Caption=ˊ欢迎使用VBˊ(C)Form1.Caption=欢迎使用VB (D)Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构,这3种基本结构是( D )(A)递归结构,选择结构,循环结构(B)选择结构,过程结构,顺序结构(C)过程结构,输入、输出结构,转向结构(D)选择结构,循环结构,顺序结构8.给变量赋值a=123+MID(“123456”,3,2),a变量中的值是( D )(A)“12334”(B)123 (C)12334 (D)1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是( D )(A)If sex=“男”And age<40 And InStr(duty,“教授”)>0 Then n=n+1 (B)If sex=“男”And age<40 And (duty=“教授”Or duty=“副教授”) Then n=n+1(C)If sex=“男”And age<40 And Right(duty,2)= “教授” Then n=n+1 (D)If sex=“男”And age<40 And d uty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容,可用来实现的方法是( C )(A)RemoveItem (B)Cls(C)Clear (D)以上均不可以11.要使时钟控件Timer1的Timer事件不起作用,以下正确的语句是( B ) (A)Timer1.Visible=False (B)Timer1.Enabled=False (A) Timer1.Interval=1000 (D)Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句,正确的是( B )(A)Dim a[3,4]As Integer (B)Dim a(3,4)As Integer(C)Dim a(n,n) As Integer (D)Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )(A)Sub f1(ByVal n%) (B)Sub f1(n%)As Integer(C)Function f1%(f1%) (D)Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程:Private Sub Command1_Click()x=InputBox("输入:","输入整数")MsgBox"输入的数据是:”,,”输入数据:"+xEnd Sub16.程序运行后,单击命令按钮,如果从键盘上输入整数10,则以下叙述中错误的是( A )(A)x的值是数值10 (B)输入对话框的标题是“输入整数”(C)信息框的标题是“输入数据:10”(D)信息框中显示的是“输入的数据是:”二、填空题(每题2分,共20分)1、当进入VB集成环境后,发现没有显示“工具箱”窗口,应选择视图菜单的工具箱选项,使“工具箱”窗口显示。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
实验三第1题四则运算题设计如下窗体,为五个命令按钮编写5段代码完成四则运算及退出程序,其中在计算除法时,如果第二个数就是零,在消息框中显示信息“除数为零”。
Public Class Form1Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、ClickDim a, b As Singlea = TextBox1、Textb = TextBox2、TextTextBox3、Text = a + bEnd SubPrivate Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、ClickDim a, b As Singlea = TextBox1、Textb = TextBox2、TextTextBox3、Text = a - bEnd SubPrivate Sub Button3_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button3、ClickDim a, b As Singlea = TextBox1、Textb = TextBox2、TextTextBox3、Text = a * bEnd SubPrivate Sub Button4_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button4、ClickDim a, b As Singlea = TextBox1、Textb = TextBox2、TextIf b = 0 ThenMessageBox、Show("除数为零")ElseTextBox3、Text = a / bEnd IfEnd SubPrivate Sub Button5_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button5、ClickEndEnd SubEnd Class第2题一元二次方程求解输入系数后,单击“求解”按钮后,根据判别式的3种不同情况,分别显示如下的不同结果。
Public Class Form1Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、ClickDim a, b, c, delta As Doublea = TextBox1、Textb = TextBox2、Textc = TextBox3、Textdelta = b * b - 4 * a * cIf delta > 0 ThenLabel5、Visible = TrueLabel6、Visible = TrueLabel4、Text = "方程有两个不相等实根"Label5、Text = "X1=" & ((-b + Math、Sqrt(delta)) / 2 / a)Label6、Text = "X2=" & ((-b - Math、Sqrt(delta)) / 2 / a)ElseIf delta = 0 ThenLabel4、Text = "方程有两个相等实根"Label5、Visible = TrueLabel5、Text = "X1=X2=" & (-b / 2 / a)Label6、Visible = FalseElseLabel4、Text = "方程没有实根"Label5、Visible = FalseLabel6、Visible = FalseEnd IfEnd SubPrivate Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、ClickEndEnd SubEnd Class第3题文本框中前景色与背景色的不同组合目的:单选按钮的使用(1)设计窗体如下所示窗体中包含两组单选按钮、两个框架与一个命令按钮。
(2)程序功能:分别单击不同的前景色与背景色按钮,在文本框中显示颜色的改变。
(3)设置控件的主要属性1)窗体的文本属性为“不同前景色背景色的组合”2)初始前景色为红色、背景色为黄色3)其它属性根据图中显示来设置(4)事件代码Public Class Form1Private Sub RadioButton1_CheckedChanged(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles RadioButton1、CheckedChangedTextBox1、ForeColor = Color、RedEnd SubPrivate Sub RadioButton2_CheckedChanged(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles RadioButton2、CheckedChangedTextBox1、ForeColor = Color、GreenEnd SubPrivate Sub RadioButton3_CheckedChanged(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles RadioButton3、CheckedChangedTextBox1、ForeColor = Color、BlackEnd SubPrivate Sub RadioButton4_CheckedChanged(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles RadioButton4、CheckedChangedTextBox1、BackColor = Color、WhiteEnd SubPrivate Sub RadioButton5_CheckedChanged(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles RadioButton5、CheckedChangedTextBox1、BackColor = Color、YellowEnd SubPrivate Sub Form1_Load(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles MyBase、LoadEnd SubEnd Class第4题三位整数的反序显示在窗体中添加二个文本框、二个标签与一个命令按钮,在一个文本框中输入一个三位的整数,单击命令按钮后,在另一个框中按相反顺序显示该数,例如,输入123,则在另一个文本框中显示321。
提示:本题先将每位上的数字分解出来,这要用到整除与计算余数的运算符,例如123整除100后的结果1就就是百位,而123除以10的余数就就是个位,至于十位,大家可以自己确定。
分解后的三位数再倒序组合成新的三位整数。
Public Class Form1Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、ClickDim a, b, c, d, y As Singlea = TextBox1、Textb = a \ 100c = (a - 100 * b) \ 10d = a - 100 * b - 10 * cTextBox2、Text = d & c & bEnd SubEnd Class试验五第1题累加编写程序,计算1~100之间的所有偶数之与,程序窗口界面及控件自行设计。
Public Class Form1Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、ClickDim i, sum As LongFor i = 2 To 100 Step 2sum += iNextTextBox1、Text = sumEnd SubEnd Class第2题使用循环求解水仙花数的问题要求:(1)参考教材上例4-3关于水仙花数的定义。
(2)程序窗口界面及控件与例4-3的结果即图4-3一样。
(3)单击“开始”按钮后,在文本框中显示求出的结果。
Public Class Form1Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、ClickDim M, k1, k2, k3 As IntegerTextBox1、Clear()For M = 100 To 999k1 = M \ 100k2 = (M \ 10) Mod 10k3 = M Mod 10If M = k1 ^ 3 + k2 ^ 3 + k3 ^ 3 ThenTextBox1、Text += M、ToString() + " = " + k1、ToString() + "^3+" + k2、ToString() + "^3+" + k3、ToString() + "^3" + vbCrLfEnd IfNextEnd SubEnd Class第3题统计整数的因子编写程序,向一个文本框输入一个整数,单击“开始”按钮后,找出该数的所有因子,并统计因子的个数与总与,结果在另一个文本框中显示,共有三行,其中第一行该数的所有因子,第二行显示该数的因子个数,最后一行显示该数所有因子之与,窗体界面如下:Public Class Form1Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、ClickDim a, b, c, d As Longc = 0a = TextBox1、Textb = 1While b <= aIf a Mod b = 0 Thenc += 1d += bTextBox2、Text = "该整数的因子就是:" & +=CStr(b) + "," + vbCrLf + "因子个数为:" + c、ToString() + vbCrLf + "因子之与为:" + d、ToString()End Ifb = b + 1End WhileEnd SubEnd Class第4题判断素数编写程序,判断某个整数就是否就是素数,在一个文本框中输入一个整数,单击命令按钮后,在另一个文本框中显示该数就是否就是素数,程序代码可以参考例4-10的代码,在此基础上改写。