VB语言练习题及答案1
VB练习题含答案
一、单项选择(每小题2分,共40分)1、窗体文件、标准模块文件的扩展名分别是__D__。
(A) .frm和.mdb (B) .frm和.vbp (C) .bas和.vbp 工程文件扩展名(D) .frm和.bas2、如果要设置窗体的标题栏,应选择_ B__属性。
(A) Name窗体名称(B) Caption (C) Tips (D) Text3、当运行程序时,系统自动执行启动窗体的___ D _事件过程。
(A) Click (B) Unload (C) Gotfocus (D) Load4、Visual basic程序设计语言属于___C_。
(A) 面向过程的语言(B) 面向问题的语言(C) 面向对象的语言(D) 面向机器的语言5、任何控件都具有的属性是___B_。
(A) Text (B) Name (C) ForeColor (D) Caption文本框没有6、VB的一个文本框控件名为mytxt,要使该控件中显示“我的VB程序”,以下__C__语句执行后能正确结果。
(A) Text1.Text = "我的VB程序" (B) Text1.Caption = "我的VB程序"(C) mytxt.Text = "我的VB程序" (D) mytxt.Caption = "我的VB程序"7、Visual Basic程序设计中,构成对象的三要素是___B_。
(A) 属性、控件和方法(B) 属性、事件和方法(C) 控件、过程和模块(D) 窗体、控件和过程8、在语句Public Sub Sort(i As Integer)中的i 是一个按__C__传递的参数。
(A) 地址(B) 值(C) 变量(D) 常量9、要将变量x赋值为50到100之间(含50和100)的一个随机整数,下面语句正确的是___B_。
x=下限+Int(上限-下限+1*Rnd)(A)x=50+Int(50*Rnd) (B) x=50+Int(51*Rnd)(C) x=Int(49+50*Rnd) (D) x=Int(49+51*Rnd)10、在通用声明代码中有以下语句:Option Base 1Dim a (4,-3 to 3) As String则该数组有__ __个元素。
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简答练习题1 简述Timer控件中Interval属性和Enanbeled属性。
2 简要回答创建MDI应用程序的步骤。
3 用Visual Basic 语言编写-一个有两个整数参数m和n2的名为GetRand的Function的函数,功能是获取任意两个正整数间的随机整数(假如0<n:<m) ?4 简述selet.. .case语句执行流程。
5 引用数组元素时的注意事项有哪些?6 Visual Basic中有几种运算符?7 向文本文件中添加数据分为哪几步?8 Visual Basic 6.0中的动态数组与静态数组有何不同?9 如何创建一-个快速显示窗体?10 循环语句有几种语句?11 Shape 控件可以用来显示哪些图形?12 MDI应用程序有哪些特性?13 访问数组的常用方法有哪些?14 运行程序有哪几种方法?15 VB工程由哪几个模块组成?16 叙述VB的基本的设计机制。
17 叙述VB集成开发环境的组成。
18 叙述文件访间的类型。
19 运行程序有几种方法?20 VB 有哪些基本数据类型?21 标识符的命名规则是什么?22 访问数组的常用方法有哪些?23 VB过程参数有哪几种传递方式?有何不同?24 如何创建控件数组?25 简述For循环的语法格式。
26 通用的Sub过程有哪几种方式?27 打开属性窗口有哪几种方法?28 如何设置控件之间的对齐方式?29 简述运算符从高到低的优先顺序。
30 建立通用过程的操作步骤有哪些?31 打开代码窗口有哪几种方法?32 如何创建MDI应用程序?33 请写出随机文件的读写步骤。
34 请写出If语句的块语法格式。
35 工具箱的标准控件有哪些?36 简述创建动态数组的步骤。
37 建立事件过程有哪些方法?38 FSO对象模型包括哪些对象?答案:1.简述Timer控件中Interval属性和Enanbeled属性答:Timer控件中的Enanbeled设置或返回计时器控件的有效性,该属性值为布尔值,如果设置为True,则每经过指定的时间间隔将触发Timer事件,为False,计时器控件成为无效,停止工作。
vb试题及答案一
vb试题及答案一一、选择题1. 在Visual Basic中,以下哪个关键字用于声明一个变量?A. DimB. IfC. ForD. While答案:A2. Visual Basic中的哪个控件用于显示文本,但不允许用户编辑?A. TextBoxB. LabelC. ComboBoxD. CheckBox答案:B3. 在Visual Basic中,以下哪个事件用于响应按钮点击?A. ClickB. LoadC. ChangeD. DblClick答案:A4. 在Visual Basic中,以下哪个函数用于将字符串转换成数字?A. Str()B. Val()C. Int()D. CInt()答案:D5. 在Visual Basic中,以下哪个语句用于结束程序的执行?A. EndB. ExitC. StopD. Quit答案:B二、判断题1. Visual Basic是一种面向对象的编程语言。
(对)2. 在Visual Basic中,所有的变量都需要声明数据类型。
(错)3. 在Visual Basic中,可以使用If语句来实现条件判断。
(对)4. Visual Basic中的数组下标总是从0开始。
(错)5. Visual Basic中的事件驱动编程允许程序在没有用户交互的情况下运行。
(错)三、简答题1. 请简述Visual Basic中使用循环结构的目的是什么?答:循环结构在Visual Basic中用于重复执行一段代码直到满足特定条件,这使得处理大量数据或执行重复任务变得更加高效和简洁。
2. 请解释Visual Basic中类和对象的区别。
答:在Visual Basic中,类是一个模板,它定义了对象的属性和方法。
而对象是类的实例,具有类定义的属性和方法,并可以进行操作。
四、编程题1. 编写一个Visual Basic程序,该程序接受用户输入的三个数,并计算这三个数的平均值。
```vbDim num1 As DoubleDim num2 As DoubleDim num3 As DoubleDim average As Double' 接受用户输入num1 = Val(InputBox("请输入第一个数:"))num2 = Val(InputBox("请输入第二个数:"))num3 = Val(InputBox("请输入第三个数:"))' 计算平均值average = (num1 + num2 + num3) / 3' 显示结果MsgBox "这三个数的平均值是: " & average```五、论述题1. 论述Visual Basic中事件处理的重要性及其在应用程序开发中的应用。
全国计算机等考试VB语言笔试试题及答案(一)
全国计算机等考试VB语言笔试试题及答案(一)全国计算机等级考试(VB语言)笔试试题及答案为了让广大考生能更好的备考,本文将为大家提供全国计算机等级考试VB语言笔试试题及相关答案解析。
VB语言考试是比较热门的一种考试,因此备考也是非常重要的。
下面是试题及答案解析,希望对大家有所帮助。
一、单选题1、在VB语言中,执行时间比较久的程序可以采用的方法是:A.增加循环次数B.加快程序运行速度C.使用进度条等控件D.以上都不对【答案及解析】C。
在程序运行期间,如果程序执行时间太长,可以使用进度条控件使用户知道程序正在执行,以及当前运行到哪一步,提升程序的运行效率和用户体验。
2、在VB语言中,某控件的Tag属性表示:A.控件的位置B.控件所在窗口的名称C.控件的类型D.控件存储数据的指针【答案及解析】D。
在VB语言中,每个控件都可以设置其Tag属性,Tag属性可以存储控件相关的任何数据,该属性非常灵活方便。
3、在VB语言中,数组存储数据的方式是:A.栈存储B.堆存储C.静态存储D.以上都错【答案及解析】B。
在VB语言中,数组存储在堆中,即动态内存分配,这样以便在程序运行时更好地管理和利用内存。
二、多选题1、在VB语言中,下列哪些是合法的数组定义方式?()A. Dim arr(3,5) As IntegerB. Dim arr(3)(5) As IntegerC. Redim arr(3,5)D. Dim arr() As Integer【答案及解析】A、D。
A、D都是合法的数组定义方式。
选项B是二维数组,但是定义方式不合法。
选项C是改变数组大小的方式,不是定义数组的方式。
2、在VB语言中,下列哪些事件是窗体的事件?( )A.LoadB.MouseMoveC.ClickD.Resize【答案及解析】A、D。
Load和Resize是窗体的事件,B和C是每个控件都有的事件。
三、判断题1、在VB语言中,Option Explicit语句可以保证变量在使用前被声明,从而减少程序出错的几率。
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第1章习题与答案
第1章习题与答案一、选择题1. 在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体窗口、属性窗口外,必不可少的窗口是:(A)窗体布局窗口(B)立即窗口(C)代码窗口(D)监视窗口2. 保存新建的工程时,默认的路径是:(A)My Documents (B)VB98 (C)\ (D)Windows3. 将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后,将该可执行文件转到其他机器上不能运行的主要原因是:(A)运行的机器上无VB系统所需的动态连接库(B)缺少.frm窗体文件(C)该可执行文件有病毒(D)以上原因都不对4.当需要上下文帮助时,选择要帮助的“难题”,希望出现MSDN窗口及显示所需“难题”的帮助信息。
应按的键的(A)Help (B)F10 (C)Esc (D)F15.Visual Basic中提供的On Error Resume Next错误陷阱语句的功能是:(A)当发生错误时,使程序跳转到语句标号为0的程序块(B)当发生错误时,不使用错误处理程序块(C)当发生错误时,忽略错误行,继续执行下一语句(D)当发生错误时,终止本过程程序执行,继续执行下一过程6.在VB环境中,工程文件的扩展名是:(A).frm (B).bas (C).vbp (D).frx7.将一个VB程序保存在磁盘上,至少会产生的文件是:(A).doc、.txt (B)aaa、.exe (C).vbp、.frm (D).bat、.sys8.下面关于对象的描述中,错误的是:(A)对象就是自定义结构变量(B)对象代表正在创建的系统中的一个实体(C)对象是一个状态和操作(或方法)的封装体(D)对象之间的信息传递是通过消息进行的9.下面4项中不属于面向对象系统三要素的是(A)变量(B)事件(C)属性(D)方法10.下面各种高级语言中,不是面向对象程序设计语言的是(A)Visual Basic (B)C++ (C)Pascal (D)Java二、填空题1.当进入VB集成环境后,发现没有显示“工具箱”窗口,应选择【1】菜单的【2】选项,使“工具箱”窗口显示。
最新VB经典例题13道(附答案)
V B经典例题13道(附答案)1.一串字符求有多少字母,有多少数字,有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, c, q, w, rs = TextBox1.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If UCase(c) >= "A" And UCase(c) <= "Z" Thenq = q + 1ElseIf c >= "0" And c <= "9" Thenw = w + 1Elser = r + 1End IfNextLabel1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub2.一串字符以?结尾,求有多少字母,有多少数字,有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, z, x, c, is = TextBox1.Texta = Mid(s, 1, 1)i = 1Do While a <> "?"If UCase(a) >= "A" And UCase(a) <= "Z" Thenz = z + 1ElseIf a >= "0" And a <= "9" Thenx = x + 1Elsec = c + 1End Ifi = i + 1a = Mid(s, i, 1)LoopLabel1.Text = z & x & cEnd Sub3.给定一个数字求它是几位数字,如(1).12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicks = TextBox1.Textc = Trim(Str(s))If Int(c) = c ThenIf c >= 0 ThenLabel1.Text = "是" & Len(c) & "位数"ElseLabel1.Text = "是" & Len(c) - 1 & "位数"End IfElseIf c >= 0 ThenFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "ElseFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j - 1 & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "End IfEnd IfEnd Sub4.求圆周率公式Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, s, n, pia = 1n = 1While Math.Abs(1 / n) > 0.0001pi = pi + a * (1 / n)n = n + 2a = -aLabel1.Text = 4 * piEnd Sub5.求自然对数e 公式e=1+1+1/2!+1/3!+…+1/n!+….Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, e1, ln = 1e1 = 1While 1 / n > 0.01l = 1For i = 1 To nl = l * iNextn = n + 1e1 = e1 + 1 / lEnd WhileLabel1.Text = e1End Sub6.右直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To ns = ""Label1.Text &= Space(n - i)For j = 1 To is &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub7.等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To nLabel1.Text &= Space(n - i)For j = 1 To 2 * i - 1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub8.倒等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = 2 * i - 1 To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub9.右上角的直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = i To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub10.菱形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = ""For i = 1 To 6s = ""Label1.Text &= Space(i - 1)For j = 1 To 12s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub11.水仙花数字三位数字的个位数字的立方和等于该数字本身(1).判断输入的数字是否是水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cs = Val(TextBox1.Text)Label1.Text = ""a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & "是水仙花数"ElseLabel1.Text &= s & "不是水仙花数"End IfEnd Sub(2).找出所有的水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cLabel1.Text = "水仙花数是" & vbCrLfFor s = 100 To 999a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & vbCrLfNextEnd Sub12.完全数正整数的因数之和等于这个数(1).判断输入的数字是不是完全数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, j, l, a(100)s = Val(TextBox1.Text)j = 1For i = 1 To s - 1If s Mod i = 0 Thena(j) = ij = j + 1End IfNextFor i = 1 To jl = l + a(i)NextIf l = s ThenLabel1.Text = s & "是完全数"ElseLabel1.Text = s & "不是完全数"End IfEnd Sub(2).找出1到n内的完全数,n 由用户输入Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, jn = Val(TextBox1.Text)Label1.Text = ""For p = 2 To nj = 0For i = 1 To p - 1If p Mod i = 0 Thenj = j + iEnd IfNextIf j = p ThenLabel1.Text &= p & " "End IfNextEnd Sub13.显示1,1,2,3,5,8,13,21…… F(i)=f(i-1)+ f(i-2)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim f(30)f(1) = 1f(2) = 1For i = 3 To 30f(i) = f(i - 1) + f(i - 2)NextLabel1.Text = ""For i = 1 To 30Label1.Text &= f(i) & ","If i Mod 6 = 0 Then Label1.Text &= vbCrLfNextEnd Sub。
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练习1
A.List1.Clear B.Form1.Clear bo1.Cls D.Picture1.Clear
解答: B
参考答案: A
35. 单选题: (1.0分)
PictureBox、Frame、OptionButton、ListBox、TextBox、Form、ComboBox这7个对象中,具有 Caption属性的有 个。
解答: B
参考答案: A
29. 单选题: (1.0分)
Visual Basic程序设计时常用的Print、Cls属于 。
A.属性 B.打印字库 C.方法 D.事件
解答: C
参考答案: C
30. 单选题: (1.0分)
单选按钮(OptionButton)用于一组互斥的选项中。若一个应用程序包含多组互斥条件,可在不 同的 中安排适当的单选按钮,即可实现。
A.可以通过Print方法在图片框中输出文本 B.清空图片框控件中图形的方法之一是加载一个空图形 C.图片框控件可以作为容器使用 D.用Stretch属性可以自动调整图片框中图形的大小
解答: A
参考答案: D
23. 单选题: (1.0分)
以下叙述中错误的是 。
A.下拉式菜单和弹出式菜单都用菜单编辑器建立 B.在多窗体程序中,每个窗体都可以建立自己的菜单系统 C.除分隔线外,所有菜单项都能接收Click事件 D.如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见
解答: B
参考答案: A
18. 单选题: (1.0分)
设组合框Combo1中有3个项目,则以下能删除最后一项的语句是 。
bo1.Removeitem Text bo1.Removeitem 2 bo1.Removeitem 3 bo1.Removeitem Co考答案: B
计算机vb语言模拟试题一含答案
模拟试题一一、单选题1. VB6.0是一种面向的编程环境。
(A) 机器(B) 对象欢迎使用本资料,祝您身体健康、万事如意,阖家欢乐。
愿同学们健康快乐的成长。
早日为祖国的繁荣昌盛奉献自己的力量(C) 过程(D) 应用2. 以下关于窗体的Name属性的叙述正确的是。
欢迎使用本资料,祝您身体健康、万事如意,阖家欢乐。
愿同学们健康快乐的成长。
早日为祖国的繁荣昌盛奉献自己的力量(A) 窗体的Name属性可以为空(B) 窗体的Name属性是显示在窗体标题栏中的文本(C) 可以在运行期间改变窗体的Name属性欢迎使用本资料,祝您身体健康、万事如意,阖家欢乐。
愿同学们健康快乐的成长。
早日为祖国的繁荣昌盛奉献自己的力量(D) 窗体的Name属性指定窗体的名称,用来标识一个窗体3. 若要使命令按钮不可操作,要对属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象TextI,可以通过事件获得输入键值的ASCII码。
(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面是合法的变量名。
(A) pi (B)π(C) print (D) a+k6. 表达式Int(10*Rnd)产生的随机数的范围是。
(A) [1,9] (B) [1,10](C) [0,10] (D) [0,9]7. 为了给x、y、z三个变量赋初值1,下面正确的赋值语句是。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构,三种基本结构是。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 当VB执行下面语句后,变量a的值为。
vb练习题及答案
vb练习题及答案VB练习题及答案一、选择题1. 在VB中,以下哪个是正确的数据类型?A. IntegerB. IntC. Both A and BD. None of the above答案:C2. VB中,哪个关键字用于声明变量?A. DimB. DeclareC. DefineD. Set答案:A3. 在VB中,以下哪个是正确的循环结构?A. ForB. WhileC. RepeatD. All of the above答案:D4. VB中,以下哪个是正确的条件语句?A. IfB. SwitchC. CaseD. A and B only答案:A5. 在VB中,以下哪个是正确的数组声明方式?A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案:A二、填空题1. 在VB中,使用________关键字可以定义一个类。
答案:Class2. VB中,使用________方法可以为控件添加事件处理程序。
答案:AddHandler3. 在VB中,________方法用于结束程序的执行。
答案:End4. VB中,________属性用于获取或设置一个控件的文本。
答案:Text5. 在VB中,________方法用于打开一个文件。
答案:Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案:在VB中,事件是用户或程序触发的特定动作,如按钮点击或键盘敲击。
事件处理程序是一个过程,当特定的事件发生时,会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案:在VB中,For循环用于重复执行一段代码直到满足特定条件。
基本语法是:```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承,并给出一个简单的示例。
vb考试题及答案
vb考试题及答案一、选择题(每题2分,共20分)1. VB中的“Dim”关键字用于声明什么?A. 变量B. 常量C. 类型D. 过程答案:A2. 在VB中,以下哪个是合法的变量名?A. 2variableB. variable-nameC. variable$nameD. variable name答案:B3. VB中的“Sub”过程可以返回值吗?A. 是B. 否答案:B4. 在VB中,以下哪个不是基本数据类型?A. IntegerB. StringC. ObjectD. Date答案:C5. VB程序中,以下哪个语句用于结束程序?A. Exit SubB. End SubC. Exit ForD. End答案:D6. VB中,以下哪个是正确的条件语句?A. If (x > 10)B. If x > 10C. If x = 10 ThenD. If x = 10答案:C7. 在VB中,以下哪个是正确的循环结构?A. DoB. WhileC. ForD. All of the above答案:D8. VB中的“With”语句用于什么?A. 条件判断B. 循环控制C. 简化代码D. 错误处理答案:C9. 在VB中,以下哪个不是数组的声明方式?A. Dim arr(0 To 10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Dim arr As Integer = New Integer(10)D. Dim arr(1) As Integer答案:D10. VB中,以下哪个是正确的事件处理程序声明?A. Sub Button1_Click()B. Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Sub Button1_Click(ByVal e As EventArgs)D. Sub Button1_Click(ByVal sender As Object)答案:B二、填空题(每空2分,共20分)1. 在VB中,使用________关键字可以定义一个类。
VB程序设计试题及答案(一)-vb程序设计答案
VB程序设计试题及答案(一)一、单选题1. VB6.0是一种面向B 的编程环境。
(A) 机器(B) 对象(C) 过程(D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下D 语句是正确的。
(A) Forml.Cap on=“欢迎使用VB”(B) Forml.Cap on='欢迎使用欢迎使用VB'(C) Forml.Cap on=欢迎使用VB(D) Forml.Cap on="欢迎使用VB"3. 若要使命令按钮不可操作,要对A 属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Cap on4. 如果在窗体上已经创建了一个文本框对象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 。
vb考题 (1)
VB 期末复习一、选择题(1) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Move 500,500End Sub程序运行后,单击命令按钮,执行的操作为A) 命令按钮移动到距窗体左边界、上边界各500的位置B) 窗体移动到距屏幕左边界、上边界各500的位置C) 命令按钮向左、上方向各移动500D) 窗体向左、上方向各移动500(1) B(2) 在窗体上有若干控件,其中有一个名称为Text1的文本框。
影响Text1的Tab 顺序的属性是A) TabStop B)Enabled C) Visible D)TabIndex(2) D(3) 下列语句合法的是_____A x + y = 2B x > 2 = yC x = y > 2D x = y++参考答案: C(4) 在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为A) For i=0 To List1.ListCount-1 …… Next C) For i=1 To List1.listCount…… Next (4) A(5) 以下Case 语句中错误的是A) Case 0 To 10 B) Case Is>10 C) Case Is>10 And Is<50 D) Case 3,5,Is>10(5) C(6) 以下关于图片框控件的说法中,错误的是A) 可以通过Print 方法在图片框中输出文本B) For i=0 To ListCount-1 …… Next D) For i=1 To ListCount …… NextB) 清空图片框控件中图形的方法之一是加载一个空图形C) 图片框控件可以作为容器使用D) 用Stretch属性可以自动调整图片框中图形的大小(6) D(7) 执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是A) Visual B) Basic C) 6 D) 11(7) C(8) 以下叙述中错误的是A) 下拉式菜单和弹出式菜单都用菜单编辑器建立B) 在多窗体程序中,每个窗体都可以建立自己的菜单系统C) 除分隔线外,所有菜单项都能接收Click事件D) 如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见(8) D(9) 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后,单击命令按钮,窗体上显示的是A) 123.45 B) 12345.00 C) 12345 D)00123.45(9) B(10) 以下叙述中错误的是A) 一个工程可以包括多种类型的文件B) Visual Basic应用程序既能以编译方式执行,也能以解释方式执行C) 程序运行后,在内存中只能驻留一个窗体D) 对于事件驱动型应用程序,每次运行时的执行顺序可以不一样(10) C(11) 以下关于函数过程的叙述中,正确的是A) 函数过程形参的类型与函数返回值的类型没有关系B) 在函数过程中,过程的返回值可以有多个C) 当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递D) 如果不指明函数过程参数的类型,则该参数没有数据类型(11) A(12) 以下关于变量作用域的叙述中,正确的是A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用B) 全局变量必须在标准模块中声明C) 模块级变量只能用Private关键字声明D) Static类型变量的作用域是它所在的窗体或模块文件(12) B(13) 确定一个控件在窗体上的位置的属性是A) Width和Height B) Width或Height C) Top和Left D) Top或Left(13) C(14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后,如果单击命令按钮,则在文本框中显示的是A) Visual B) Basic C) Program D) 出错(14) D(15) 以下关系表达式中,其值为False的是A) "ABC">"AbC" B) "the"<>"they" C) "VISUAL"=UCase("Visual") D) "Integer">"Int"(15) A(16) 语句Print 5/4*6\5 Mod 2的输出结果是A) 0 B) 1 C) 2 D) 3(16) B(17) 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:Private Sub Command1_Click()strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change()Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是A)空 B) abcdef C) abc D) def(17) D(18) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序运行后,单击命令按钮,窗体上显示的是A) -5 B) 25 C) 1 D) -1(18) C(19) 一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Pubilc X As Integer,在Model1中有语句Pubilc Y As Integer,则以下叙述中正确的是A) 变量X、Y的作用域相同 B) Y的作用域是Model1C) 在Form1中可以直接使用X D) 在Form2中可以直接使用X和Y(19) C(20) 在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。
vb精选试题及答案
vb精选试题及答案一、单项选择题(每题2分,共20分)1. 在VB中,以下哪个关键字用于声明变量?A. DimB. ConstC. FunctionD. Sub答案:A2. VB中数组的默认下标是从哪个数字开始的?A. 0B. 1C. -1D. 2答案:B3. 在VB中,以下哪个函数用于计算字符串的长度?A. LenB. UBoundC. LBoundD. Sqr答案:A4. VB中,哪个属性用于获取或设置一个窗体的标题?A. CaptionB. TextC. TitleD. Label答案:A5. 在VB中,以下哪个事件用于响应鼠标单击窗体?A. ClickB. DblClickC. MouseDownD. MouseUp答案:A二、填空题(每题3分,共15分)1. 在VB中,声明一个整型变量的正确语法是________。
答案:Dim myVar As Integer2. VB中,用于定义一个过程的关键字是________。
答案:Sub 或 Function3. VB中,用于读取用户输入的函数是________。
答案:InputBox4. VB中,用于打开文件的语句是________。
答案:Open5. VB中,用于关闭文件的语句是________。
答案:Close三、简答题(每题5分,共10分)1. 请简述VB中的事件驱动编程是什么?答案:事件驱动编程是一种编程范式,程序的执行流程由外部事件(如用户操作、消息、信号等)触发。
在VB中,用户可以通过编写事件处理程序来响应这些事件。
2. VB中如何实现循环结构?答案:在VB中,可以使用For...Next循环、Do...Loop循环、While...Wend循环等结构来实现循环。
四、编程题(每题10分,共20分)1. 编写一个VB程序,计算并输出1到100之间所有偶数的和。
答案:请参考以下代码:```vbDim sum As IntegerDim i As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMsgBox "1到100之间所有偶数的和是:" & sum```2. 编写一个VB程序,判断一个给定的年份是否为闰年。
vb考试试题及答案
vb考试试题及答案一、选择题(每题2分,共20分)1. 在Visual Basic中,以下哪个不是基本数据类型?A. IntegerB. StringC. ObjectD. Array答案:D2. 下面哪个语句用于在Visual Basic中声明一个变量?A. DimB. DeclareC. DefineD. Set答案:A3. 在Visual Basic中,以下哪个是正确的循环结构?A. LoopB. WhileC. DoD. Repeat答案:C4. 以下哪个属性用于设置控件的可见性?A. VisibleB. ShowC. HideD. Display答案:A5. Visual Basic中的事件通常与哪个关键字一起使用?A. SubB. FunctionC. EventD. Procedure答案:A6. 在Visual Basic中,以下哪个不是控件的属性?A. NameB. CaptionC. TypeD. Left答案:C7. 下列哪个不是Visual Basic的内置函数?A. LenB. UBoundC. SqrtD. Max答案:D8. 在Visual Basic中,以下哪个不是数组的声明方式?A. Dim arr(1 To 10)B. Dim arr() As IntegerC. ReDim arr(1 To 10)D. Dim arr As Variant答案:D9. 在Visual Basic中,以下哪个不是条件语句?A. IfB. Select CaseC. WhileD. Do答案:C10. Visual Basic中,以下哪个不是错误处理的关键字?A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. On Error Exit Sub答案:D二、填空题(每题2分,共10分)1. 在Visual Basic中,使用________关键字可以声明一个变量。
vb试题及答案
vb试题及答案一、单选题(每题2分,共10分)1. 在VB中,以下哪个是正确的变量声明方式?A. Dim aB. Dim a As IntegerC. Dim a = 5D. Dim a As Integer = 5答案:B2. VB中的哪个控件用于显示文本,但不能编辑?A. TextBoxB. LabelC. ComboBoxD. CheckBox答案:B3. 以下哪个是VB的事件?A. ClickB. PrintC. DrawD. Open答案:A4. 在VB中,以下哪个语句用于结束程序?A. EndB. ExitC. StopD. Quit答案:A5. VB中,以下哪个属性用于设置控件的可见性?A. VisibleB. EnabledC. CaptionD. Text答案:A二、多选题(每题3分,共15分)1. VB中,以下哪些是合法的变量名称?A. 2variableB. variable2C. _variableD. variable$答案:B, C2. VB中,以下哪些是合法的常量声明方式?A. Const pi = 3.14B. Dim pi As Double = 3.14C. Const pi = "3.14"D. Dim pi = 3.14答案:A, D3. 在VB中,以下哪些是控件的属性?A. NameB. CaptionC. TextD. Value答案:A, B, C4. VB中,以下哪些是控制流程语句?A. If...Then...ElseB. For...NextC. While...WendD. Select...Case答案:A, B, C, D5. VB中,以下哪些是数组的声明方式?A. Dim arr(5)B. Dim arr(0 To 5) As IntegerC. Dim arr As Integer = New Integer(5)D. Dim arr(5) As Integer答案:A, B, D三、判断题(每题1分,共5分)1. VB是一种面向对象的编程语言。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
VB语言练习题及答案
1、算法的计算量的大小称为算法的________。
(A)现实性(B)难度(C)复杂性(D)效率
2、设栈S和队列Q的初始状态为空。
元素a、b、c、d、e、f依次通过栈S,并且一个元素出栈后即进入队列Q,若出队的顺序为b、d、c、f、e、a,则栈S的容量至少应该为________。
(A)3(B)4(C)5(D)6
3、在深度为5的满二叉树中,叶子结点的个数为________。
(A)32(B)31(C)16(D)15
4、链表适用于________查找。
(A)顺序(B)二分法(C)顺序,也能二分法(D)随机
5、希尔排序法属于________类型的排序法。
(A)交换类排序法(B)插入类排序法(C)选择类排序法(D)建堆排序法
6、序言性注释的主要内容不包括________。
(A)模块的接口(B)模块的功能(C)程序设计者(D)数据的状态
7.在数据流图中,○(椭圆)代表________。
(A)源点(B)终点(C)加工(D)模块
8、软件测试的过程是________。
Ⅰ.集成测试Ⅱ.验收测试Ⅲ.系统测试Ⅳ.单元测试
(A)Ⅰ、Ⅱ、Ⅲ、Ⅳ(B)Ⅳ、Ⅲ、Ⅱ、Ⅰ(C)Ⅳ、Ⅰ、Ⅱ、Ⅲ、(D)Ⅱ、Ⅰ、Ⅳ、Ⅲ
9、数据的逻辑独立性是指________。
(A)存储结构与物理结构的逻辑独立性(B)数据与存储结构的逻辑独立性(C)数据与程序的逻辑独立性(D)数据元素之间的逻辑独立性
10、一个供应商可供应多种零件,而一种零件可由多个供应商供应,则实体供应商与零件之间的联系是________。
(A)一对一(B)一对多(C)多对一(D)多对多
11、下列打开"代码窗口"的操作中不正确的是________。
(A)按F4键(B)单击"工程资源管理器"窗口中"查看代码"按钮(C)双击已建立好的控件(D)执行"视图"菜单中"代码窗口"命令12、为了同时改变一个活动控件的高度和宽度,正确的操作是
________。
(A)拖拉控件4个角上的某个小方块(B)只能拖拉位于控件右下角的小方块(C)只能拖拉位于控件左下角的小方块(D)不能同时改变控件的高度和宽度
13、Load事件是在窗体被装入工作区时 触发的事件。
(A)用户(B)程序员(C)手工(D)自动
14、.以下Case语句中错误的是________。
(A)Case 0 To8(B)Case Is > 5(C)Case Is > 0 And Is < 6(D)Case 1, 3, Is > 5
15、以下关于函数过程的叙述中,正确的是________。
(A)函数过程形参的类型与函数返回值的类型没有关系
(B)在函数过程中,过程的返回值可以有多个
(C)当数组作为函数过程的参数时,既能以传值方式传递,也能以传地址方式传递
(D)如果不指明函数过称参数的类型,则该参数没有数据类型
16、为了同时改变一个活动控件的高度和宽度,正确的操作是
________。
(A)拖拉控件4个角上的某个小方块(B)只能拖拉位于控件右下角的小方块(C)只能拖拉位于控件左下角的小方块(D)不能同时改变控件的高度和宽度
17、设a = 3,b = 10,c = 6,以下表达式的值是________。
a < b And (Not b>c) Or c<a
(A)1(B)-1(C)Ture(D)False
18、以下关系表达式中,其值为False的是________。
(A)"XYZ"<"XYz"(B)"VisualBasic" = "visualbasic"(C)"the"<>"there"(D)"Integer">"Int"
19、假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是________。
(A)Print 25(B)Picture1.Print 25(C)Text1.Print 25(D)Text1.Print 25
20、在调用含有对象的过程时,对象只能通过 传送。
(A)Print 25(B)传值方式(C)数组方式(D)变量方式
21、以下语句的输出结果是________。
a = Sqr(3)
Print Format(a,"$$####.###")
(A)$1.732(B)$$1.732(C)$1732(D)$$0001.732
22、为了使列表框中的项目分为多列显示,需要设置的属性为
________。
(A)Columns(B)Style(C)List(D)MultiSelect
23、函数Int(Rnd * 6 +1)的取值范围是——。
(A)从1到7共7个整数(B)从0到7共8个整数(C)从1到6共6个整数(D)从0到6共7个整数
24、执行下列语句后,显示输入对话框,此时如果单击"确定"按钮,则变量s1的内容是________。
s1 = InputBox("请输入字符串", "字符串对话框", "字符串")(A)0(B)请输入字符串(C)字符串对话框(D)字符串25、.假定窗体的名称为Form1,对该窗体编写如下代码:
Private Sub Form_Load()
Form1.Caption = "计算机"
Me.Caption = "等级"
Caption = "考试"
End Sub
程序运行后,窗体的标题是________。
(A)计算机(B)等级(C)考试(D)Form1
26、假定有一菜单项,名为MenuItem,为了运行时使该菜单项失效(变灰),应使用的语句为________。
(A)MenuItem.Enabled=False(B)MenuItem.Enabled=True
(C)MenuItem.Visible=False(D)MenuItem.Visible=True 27、.有下列程序:
Private Sub Command1_Click()
x$ = "Nanchang"
y$ = "Beijing"
z$ = "Nanjing"
z$ = InStr(Left(x$, 3)+ Right(y$, 4), z$)
Print z$
End Sub
程序运行后,单击命令按钮,则窗体上显示的内容是________。
(A)0(B)1(C)3(D)4
28、在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为 Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim x As Integer, n As Integer
x = 1
n = 0
DoW hilex < 20
x = x * 3
n = n + 1
Loop
Text1.Text = Str(x)
Text2.Text = Str(n)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别是
________。
(A)15和 1(B)27和 3(C)195和 3(D)600和 4
29、阅读程序:
Private Sub Form_Click()
Dim i As Integer, sum As Integer
For i = 2 To 10
If i Mod 2 <> 0 Then
Print i;
Else
sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后,单击窗体,在窗体上的输出结果是________。
(A)3 5 7 9 30(B)1 3 5 7 9
(C)2 4 6 8 20(D)11 15 17 19 20
30、在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:
Option Base 1
Private Sub Command1_Click( )
d = 0 : c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) > c Then
d = d + x(i)
c = x(i)
Else
d = d - c
End If
Next i
Print d
End Sub
程序运行后,如果单击命令按钮,则在窗体上输出的内容为________。
(A)89(B)99(C)23(D)77
答案
1-5 DCBBD 6-10 DDAAC 11-15 CBBCC 16-20 BBBAD
21-25 BCCDC 26-30 CBCAB。