计算机VB练习题目

计算机VB程序设计练习题目

一、判断题

1、用DIM定义数值变量时，该数值变量自动赋初值为0。

2、Integer类型的数据占2个字节，取值范围为-32767~ 32768。

3、声明形参处缺省传递方式声明，则为按地址传递（Byref）。

4、在select case 语句中,可以用“IS”来表示测试表达式的值。

5、用户拖动滚动条的滚动滑块来改变滚动条的Value值，在拖动滚动滑块时，发生的是Scroll事件。

6、驱动器列表框、目录列表框和文件列表框三者之间能够自动实现关联。

7、在设计时可以改变通用对话框控件的大小。

8、Do/Loop While结构中的循环体，是“先执行循环体，然后再判断”的结构。

9、如果一个菜单项的visible属性为false，则它的子菜单也不会显示。

10、弹出式菜单只能设置成右键菜单。

二、单选题

1、下列哪一个函数能获取当前日期与时间信息的是_____________。

A、date

B、month

C、now

D、year

2、表达式4 + 5 \ 6 * 5 / 13 Mod 7的值是___ 。

A、4

B、5

C、6

D、7

3、当执行下面语句后，A的值为___ 。

A=1

If A>0 Then A=A+1

If A>1 Then A=0

A、0

B、1

C、2

D、3

4、以下属于Visual Basic 中的窗体文件的扩展名是。

A、frm

B、bas

C、vbg

D、vbp

5、以下关于Visual Basic 语言的说法中，正确的是。

A、Visual Basic 是一种面向过程的语言

B、Visual Basic 是一种面向对象的语言

C、Visual Basic是一种低级语言

D、Visual Basic 是一种机器语言

6、下列不属于对象的基本特征的是。

A、属性

B、方法

C、事件

D、过程

7、Cls命令可清除窗体或图形框中的内容。

A、Picture属性设置的背景图案

B、设计时放置的图片

C、程序运行时产生的图形和文字

D、以上全部A-C

8、任意一个三位正整数x，求出它十位数上数字的表达式是。

A、Mid(Str(x), 2, 1)

B、x \ 10 Mod 10

C、x Mod 100 \ 10

D、x Mod 100 - x Mod 10

9、下面变量名错误的是。

A、Kitty

B、no1

C、a_3

D、12ab

10、在用菜单编辑器设计菜单时，必须输入的项有_____________。

A、快捷键

B、索引

C、标题

D、名称

11、在顺序文件中，当使用Write#语句时，文件打开的方式必须是____________。

A、input

B、output或append

C、output

D、append

12、在窗体上画一个文件列表框，其名称为File1,若仅在文本列表框中显示exe 文件和com 文

件，则下列语句正确的是_____________。

A、File1.Pattern=” *.EXE ”” *.com ”

B、File1.Pattern=” * . EXE ; * . com”

C、File1.Pattern=” *.EXE , * com ”

D、File1.Pattern=” * . EXE ” ; ” * , com”

13、用来设置计时器控件触发Timer事件时间间隔的属性是interval可以来控制动画的速度，

以下那个速度最慢_____________。

A、1000

B、50

C、100

D、500

14、列表框的_____________属性返回列表框中当前选中的列表项的内容。

A、list

B、selected

C、text

D、caption

15、以下_____________语句将插入组合框combo1中的第一项，原来各项的索引值（index）都自动加1。

A、Combo1.list(0)=”可乐”

B、Combo1.additem 0,”可乐”

C、Combo1.list(1)=”可乐”

D、Combo1.additem “可乐”，0

16、命令按钮没有_____________属性。

A、Enabled

B、Autosize

C、BackColor

D、Caption

17、private sub command1_click()

Dim a as integer

static b as integer

a=a+1

b=b+1

print a,b

end sub

程序运行时，连续单击command1按钮二次，窗体上的输出结果为_____________。

A、1 1

B、1 1

1 2 2 2

C、1 1

D、1 1

2 1 2 3

18、KILL语句在VB语言中的功能是_____________。

A、清内存

B、清病毒

C、删除磁盘上的文件

D、清屏幕

19、文件号最大可取的值为______________。

A、512

B、255

C、511

D、256

20、要从磁盘上新建一个文件名为“E:\a1.txt”的顺序文件，下列___________是正确的语句。

A、F=''E:a1\.txt "

B、F="E:\a1.txt"

Open F For Append As #1 Open "F" For Output As #1

C、Open E：\a1.txt for Output As #1

D、Open “E：\a1.txt” For Ouput As # 1

21、输入对话框（InputBox）的返回值的类型是_____________。

A、浮点数

B、字符串

C、整数

D、长整数

22、在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：

Microsoft Visual Basic Programming。然后编写如下事件过程：

Private Sub Command1_Click()

Open “E:\VBL\outf.txt” For Output As #1

For i =1 To Len (Text1.Text)

C = Mid(Text1.Text,i,1)

If c>= “A” And C<= “Z” Then Print #1 ,Lcase(C)

Next i

Close

End Sub

程序运行后，单击命令按钮，文件outf.txt中的内容是_____________。

A、MVBP

B、mvbp

C、M

D、.m

V v

B b

P p

23、执行语句t=len(mid(“Visual Basic”,1,6))后，t的值是____________。

A、Visual

B、Basic

C、6

D、11

24、设置所画的线条宽度，可选用____________属性。

A、FillStyle

B、BoderStyle

C、DrawWidth

D、DrawStyle

25、下列文件操作的语句中，格式正确的是______________。

A、Name “D:\a.dat” As “D:\a.txt”

B、Name “D:\A.dat”,”C:\a.txt”

C、Name “D:\a.dat”,”C:\a.txt”

D、Name D:\a.dat As a.txt

26、For k=10 to 0 step 3语句控制的循环次数是______________。

A、4

B、0

C、5

D、6

27、默认情况下，语句Dim a(5,5) as Integer 声明数组a的元素个数为_____________。

A、25

B、20

C、36

D、16

28、单击滚动条两端的任意一个滚动箭头，将触发该滚动条的______________事件。

A、KeyDown

B、Change

C、Scroll

D、Click

29、Line(100,100) –Step(400,400)将在窗体______________画一直线。

A、（200,200）到（400,400）

B、（100,100）到（500,500）

C、（100,100）到（300,300）

D、（100,100）到（400,400）

30、窗体中有一Picture1（图片）和一上Command1（按钮）控件，单击按钮则清除D:\T1.JPG图片的代码为

______________。

A、Picture1. picture=load picture1(“”)

B、Picture1. picture =clear

C、Picture1. picture=load Picture1( )

D、Picture1. picture=load Picture1””

三、程序填空题

1、用近似公式e≈1+1/1! +1/2!+1/3!+……1/n!求自然对数的底e的值，直到1/n!<10^(-5)为止。

Private Sub Form_Click()

Dim i As Integer, s As Single, p As Single

s = 1

p = 1

Do

i = i + 1

_____(1) ____

s = s + 1 / p

Loop Until _____(2) ____

Print s

End Sub

(1) A、p=p*i B、p=p+i C、p= p/i D、 p = p- i

(2) A、p <10^（-5） B、1/p <10^（-5） C、 p <0.0001 D、1/ p <0.0001 2、判断从键盘输入的任意正整数是否为素数。

Private Sub Form_Click()

Dim n As Integer, i As Integer

do

n = val(inputbox ("请输入n的值"))

loop while I<0

If n=1 Then

Print n; "不是素数"

Else

If n = 2 Or n = 3 Then

Print n; "是素数"

End if

End if

For i = 2 To Int(Sqr(n))

If _____(3) _____Then ____(4)_______

Next i

If i > sqr(n) Then

Print n; "是素数"

Else

Print n; "不是素数"

End If

End Sub

(3) A、n mod i=0 B、n mod I <>0 C、n/I =0 D、n\i=0

(4) A、exit for B、exit C、exit do D、exit sub 3、在窗体上显示杨辉三角

Private Sub Form_Click()

Const max = 9, pos = 27

Dim a() as Integer

Dim i As Integer, j As Integer, n As Integer

Do

n = InputBox("请输入杨辉三角的行数：")

Loop Until （5）

ReDim a(n, n) as Integer

For i = 1 To n

a(i, i) = 1

a(i, 1) = 1

Next i

For i = （6）

For j = 2 To n - 1

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

Next j, i

For i = 1 To n

For j = 1 To i

Print Tab(pos - 2 * i + 4 * (j - 1)); a(i, j);

Next j

（7）

Next i

End Sub

（5）A、n >= 1 And n <= max B、n >= 1 or n <= max

C、n < 1 And n > max

D、n < 1 or n > max

（6）A、1 To n B、3 To n

C、3 To n-1

D、1 To n-1

（7）A、Print ; B、 print , C、print D、print :

4、利用随机函数产生30个不同的三位正整数，打印出这30个数，然后将他们按从大到小的次序排序，并打印出排序后的结果。

（8）

Private Sub Form_Click()

Dim a(1 To 30) As Integer

Dim i As Integer, j as integer,x as integer, t as integer

i = 1

Do While i <= 30

（9）

x = Int(Rnd * (900)) + 100

For j = 1 To i

If x = a(j) Then

flag = False

Exit For

End If

Next j

If flag = True Then

a(i) = x

i = i + 1

End If

Loop

For i = 1 To （10）

For j = i To 30

If a(i) < a(j) Then

t = a(i)

a(i) = a(j)

a(j) = t

End If

Next j, i

For i = 1 To 30

Print a(i);

k = k + 1

If k Mod 10 = 0 Then

Print

End If

Next i

End Sub

（8）A、Dim I as Integer B、Dim k as Integer

C、Const I as Integer

D、Strtic k as integer （9） A、flag = False B、I=1

C、 flag = True

D、I=30

（10）A、30 B、 J C、 X D、 29

四、程序阅读题

1、Private Sub Form_Click()

Dim i As Integer, j As Integer

For i = 1 To 5

Print Tab(i);

For j = 1 To 2 * (5 - i) + 1

Print "#";

Next j

Print

Next i

End Sub

写出程序运行后，单击窗体后，窗体上显示的内容。

2、Private Sub Command1_Click()

ForeColor = RGB(255, 0, 0)

Picture1.Width = Picture1.Height

Picture1.Scale (-8, 8)-(8, -8)

Picture1.FillStyle = 4

Picture1.Circle (0, 0), 6, vbBlue

Picture1.FillStyle = 0

Picture1.Circle (0, 0), 3

End Sub

写出程序运行后，单击命令按钮后显示的结果。

3、Dim t As Integer

Private Sub Form_Load()

Timer1.Interval = 1000: Timer1.Enabled = True

End Sub

Public Sub xj(n As Integer)

n = 2 * n

Print "n="; n

End Sub

Private Sub Timer1_Timer()

Call xj(t)

t = t + 2

If t >= 7 Then Timer1.Enabled = False: Print "运行结束"

End Sub

写出程序运行后，窗体上显示的内容。

4、Private Sub form_click()

Dim a(2, 3) As Integer

Dim i As Integer, j As Integer

For i = 1 To 2

For j = 1 To 3

a(i, j) = 2 * i - j

Next j, i

For h = 1 To 3

For k = 1 To 2

Form1.Print a(k, h),

Next k

Print

Next h

End Sub

写出程序运行后，单击窗体，窗体上的输出结果。

5、Private Sub Form_Load()

Label1.Caption = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim a As String * 1, b As String, n As Byte, I As Integer

If KeyAscii = 13 Then

b = Text1.Text: n = Len(b)

For I = 1 To n \ 2

a = Left(b, 1)

b = Right(b, n - 1) + a

Label1.Caption = Label1.Caption + b

Next I

End If

End Sub

写出在文本框中输入”321”(三个字符)并按回车后标签控件上的显示结果。

五、程序设计题

1、编制事件过程command1_click，执行该过程时调用inputbox函数输入x，按下式计算y并以标签控件Label1

显示y值。

5|x|-1 x<-3

Y= sin x+2x2-3<=x<=3

x x>3

5

2、编制一个“偶数迁移”程序设计，运行界面如图：窗体的标题为“偶数迁移”，单击“产生”按钮，计算

机随机产生10个两位正整数放入列表框里list1中，同时清空列表框list2中的内容。单击“——〉”按钮，将列表框list1中所有的偶数迁移到列表框list2中。

3、在Form1窗体上有一个名为text1文本框，一个command1命令按钮，一个commondialog1对话框。当点

击命令按钮后，弹出打开对话框，打开对话框只能显示*.txt类型的文本文件，当选中某个txt文件时，在text1里显示该文件的内容。并在文件的末尾添加当前打开文件的全名（含路径）。

计算机题库VB25

试卷编号：25 所属语言：Visual Basic 试卷方案：VB程序设计 试卷总分：100分 共有题型：4种 一、单选共15题（共计30分） 第1题（2.0分）题号:2299 难度:中第1章 将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后,将该可执行文件转到其他机器上不能运行的主要原因是(). A:运行的机器上无VB系统所需的动态连接库 B:缺少.frm窗体文件 C:该可执行文件有病毒 D:以上原因都不对 答案：A 第2题（2.0分）题号:2344 难度:中第2章 下列字符串常量中,最大的是(). A:"北京" B:"上海" C:"天津" D:"广州" 答案：C 第3题（2.0分）题号:2436 难度:中第2章 能正确表达a≤1或a≥5的逻辑表达式是(). A:a<=1或a>=5 B:a<=1,a>=5 C:a<=10 Or a>=5 D:a<=l And a>=5 答案：C 第4题（2.0分）题号:2539 难度:中第2章 用一个程序段对一个对象被单击(或双击)做出响应,从而实现指定的操作,称为(). A:可视化程序设计 B:事件驱动编程机制 C:过程化程序实际方法

D:非过程化程序设计语言 答案：B 第5题（2.0分）题号:2601 难度:中第3章 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() K = 3 If X < 3 Then Print X + 3; If X < 4 Then Print X + 4; If X < 5 Then Print X + 5; If X< 6 Then Print K + 6; Print End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是(). A:6 7 8 9 B:7 8 9 C:8 9 D:9 答案：B 第6题（2.0分）题号:2662 难度:中第3章 运行下面程序后,在窗体中显示的是(). Private Sub Form_Click() a$="*": b$="$" For k=1 To 3 x$=String$(Len(a$)+k,b$) Print x$; Next k Print End Sub A:*** ** **** B:*$*$*$ C:1*$2*$3*$ D:$$$$$$$$$ 答案：D

2012年全国计算机等级考试二级VB上机考试试题题库

2012二级VB上机考试试题题库 VB考试上机试题 1) .新建一个工程，实现单击Command1将text1中的内容复制（或者剪切）到Text2中。（要求使用Clipboard对象）保存。 窗体上一个text文本框，两个command按钮，caption分别为“剪切”，“恢复”，运行后要求在text1中输入文本，点“剪切”，把text1中的内容剪切掉，点”恢复“，把text1中的内容恢复出来。提示：定义一个变量用来存放text1中的内容。 2) .新建一个工程，文本框text1,使用户输入字母一律转换为大写显示（焦点在最右端）保存。 3) .新建一个工程，实现功能：在窗体中实现由下向上滚动显示“您好！网络之家”这几个字。保存。 4) .新建一个工程，在Form1界面创建Form2，Form3两个子菜单的Forms菜单，选择Form2子菜单，以无模式显示Form2,选择Form3子菜单，以有模式显示Form3.保存。5) .新建一个工程，在界面上放置一个工具条Toobar1,在工具条上有三个按纽，按下第一个按钮时用MsgBox显示：“第一个按纽被按下”；按下第二个按纽时用MsgBox显示：“第二个按纽被按下”；按下第三个按纽时用MsgBox显示：“第三个按钮被按下”。保存。

6) 。新建一个工程，包含两个窗体Form1,Form2。实现功能制作－－－欢迎界面，时间为三秒，三秒后，Form1消失，Form2出现。保存。 7) 。新建一个工程，实现功能限制：在Text1中只能输入10个字母，超过的在Text2中显示。保存。 8) 。新建一个工程，实现功能单击Text1框时，Text1中的内容被全选。保存。 9) 。新建一个工程，实现功能点击Command1按钮，读取系统的汉字字型，在ComBox列表框中显示。保存。 10) 。新建一个工程，实现单击Commmand1将Text1的内容剪切到Text2中。（上次的那道题目是复制）保存。 11) 。新建一个工程，其中含五个单选按钮，两个面板StratusBar1. 第一面板题“欢迎探讨”，点击单选按钮时，第二个面板标题为选中的标题号。保存。 12) 。新建一个工程，使用打开对话框找到某一文件（硬盘上任意一文本文件），带全路径的文件名，显示在一文本框内。保存。

全国计算机二级VB考试真题和答案

2007年春 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试 二级试卷 试卷语种：Visual Basic 第一部分计算机基础知识 1．微电子技术是信息技术领域的关键技术，它以集成电路（IC）为核心。在下列有关叙述中，错误的是。 A．A．目前IC芯片（如CPU芯片）的集成度可达数千万个电子元件 B．B．Moore定律指出，单块IC的集成度平均每半年翻一番 C．C．从原料熔练到最终产品包装，IC的制造工序繁多，工艺复杂，技术难度非常高 D．D．非接触式IC卡采用电磁感应方式无线传输数据，所以又称为射频卡或感应卡 2．在下列有关通信中使用的传输介质的叙述中，错误的是。 A．A．计算机局域网中大多使用无屏蔽双绞线，其无中继有效传输距离大约100m B．B．同轴电缆可用于传输电视信号 C．C．光纤价格高，一般不在校园网和企业网中使用 D．D．微波的波长很短，适合于长距离、大容量无线通信 3．二进制数（1010） 2与十六进制数（B2） 16 相加，结果为。 A．(273) 8B.(274) 8 C.(314) 8 D.(313) 8 4.设有一段文本由基本ASCII字符和GB2312字符集中的汉字组成，其代码为B0 A1 57 69 6E D6 D0 CE C4 B0 E6，则在这段文本中含有。 A．1个汉字和9个西文字符 C.3个汉字和5个西文字符 B.2个汉字和7个西文字符 D.4个汉字和3个西文字符 5.在下列有关CPU的叙述中,错误的是 . A. A.CPU的主要组成部分有运算器、控制器和寄存器组 B. B.CPU的主要功能是执行指令，不同类型CPU的指令系统通常有所 不同 C. C.为了加快运算速度，CPU中可包含多个算术逻辑部件（ALU） D. D.目前PC机所有的CPU芯片均为Intel公司的产品 6．PC机在加电启动过程中会运行POST程序、引导程序、系统自举程序等。若在启动过程中，用户按某一热键（通常是Del键）则可以启动CMOS设置程序。这些程序运行的顺序是。 A．A．POST程序->CMOS设置程序->系统自举程序->引导程序 B．B．POST程序->引导程序->系统自举程序->CMOS设置程序 C．C．CMOS设置程序->系统自举程序->引导程序->POST程序 D．D．POST程序->CMOS设置程序->引导程序->系统自举程序 7.目前PC机一般都有USB和FirWire接口,用于连接各种外部设备.在下列关于这两种接口的叙述中,错误的是 . A. https://www.wendangku.net/doc/c87352242.html,B是一种串行接口,可以连接键盘、鼠标器、优盘、数码相机等 多种设备

全国计算机VB等级考试历年全真试题(共15套,含答案)

全国计算机VB等级考试历年全真试题 （共15套，含答案） ２００５年4月份二级VB真题（附参考答案） （考试时间90分钟，满分100分） 一、选择题((1)~(35)每小题2分，共70分) 下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。 (1)数据的存储结构是指 A) 存储在外存中的数据B) 数据所占的存储空间量 C) 数据在计算机中的顺序存储方式D) 数据的逻辑结构在计算机中的表示 (2)下列关于栈的描述中错误的是 A)栈是先进后出的线性表B) 栈只能顺序存储

C)栈具有记忆作用D) 对栈的插入与删除操作中，不需要改变栈底指针 (3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是 A) 冒泡排序为n/2 B) 冒泡排序为n C) 快速排序为n D) 快速排序为n(n-1)/2 (4)对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为 A) log2n B) n/2 C) n D) n+1 (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) 用树形结构表示实体之间联系的模型是

VB考试题及答案

1、VB应用程序中可以包括三种模块：( 窗体模块)、( 标准模块) 和类模块。 2、下列过程不能在标准模块中定义的是( A )。 A、事件过程 B、子过程 C、函数过程 D、公共过程 3、以下叙述中错误的是D A、如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B、Sub过程中不能嵌套定义Sub过程 C、Sub过程中可以嵌套调用Sub过程 D、事件过程可以像通用过程一样由用户定义过程名 2、在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上( 窗体名称)。 2、自定义的过程有两种形式：＿Sub＿和＿Function＿。 3、用于退出过程的语句是( D )。 A、Exit B、Exit For C、Exit Do D、Exit Sub 4、在过程的参数列表中列入__ Optional __关键字，就可以指定过程的参数为可选的。 5、如果使用Call关键字来调用一个需要参数的过程，参数就必须要加上__括号__。 1、在窗体代码中有以下事件过程的声明，其中Private表示( B ) Private Sub lblAbc_Change() …… End Sub A、此过程可以被任何其它过程调用 B、此过程只可以被本窗体模块中的其它过程调用 C、此过程不可以被其它过程调用 D、此过程只可以被本工程中的其它过程调用 9、假定已定义了一个过程Sub Add(a As Single,b As Single)，则正确的调用语句是( A )。 A、Add 12,5 B、Call(2*x,Add(1.57)) C、Call Add x,y D、Call Add(12,12,x) 10、要想在过程调用后返回两个结果，下面的过程定义语句合法的是( C )。 A、Sub Procl(ByVal,n,ByVal m) B、Sub Procl(n,ByVal m) C、Sub Procl(n,m) D、Sub Procl(ByVal n,m) 6、写出单击命令按钮Command1时的窗体显示结果。 Public Sub Proc(ByRef n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x as Integer,y As Integer x=15:y=30 Call Proc(x,y) Print x;y

大学计算机VB程序设计考试题目

实验三 第1题四则运算题 设计如下窗体,为五个命令按钮编写5段代码完成四则运算及退出程序,其中在计算除法时,如果第二个数就是零,在消息框中显示信息“除数为零”。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a + b End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a - b End Sub Private Sub Button3_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button3、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a * b End Sub Private Sub Button4_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button4、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text

2020年计算机二级VB题库 计算机二级考试题库

1、(选择题) 算法的时间复杂度是指（） A.设计该算法所需的工作量 B.执行该算法所需要的时间 C.执行该算法时所需要的基本运算次数 D.算法中指令的条数 A B C D 参考答案：C 【解析】算法的时间复杂度是指执行算法所需要的计算工作量。它与算法程序执行的具体时间并不一致，因为算法执行的具体时间受到所使用的计算机、程序设计语言以及算法实现过程中许多细节的影响。算法的计算工作量是用算法所执行的基本运算次数来度量的。故选C 选项。 2、(选择题) 某棵树的度为4，且度为4、3、2、1的结点数分别为1、2、3、4，则该树中的叶子结点数为（） A.11 B.9 C.10 D.8 A B C D 参考答案：A 【解析】由题目可以知道，若四种度的结点分开成子树，共包含结点(4+1)+2×(3+1)+3×(2+1)+4×(1+1)=30个，当组合成一棵树时，任选一个度不为0的结点作为根结点，则新的树结点个数为30-2-3-4=21个，则该树中叶子结点个数为21-1-2-3-4=11。 故选择A选项。 3、(选择题) 下列叙述中正确的是 A.二分查找法适用于任何存储结构的有序线性表 B.二分查找法只适用于顺序存储的有序线性表 C.二分查找法适用于有序循环链表 D.二分查找法适用于有序双向链表 A B C D 参考答案：B 【解析】二分法查找也称拆半查找，能使用二分法查找的线性表必须满足两个条件：顺序存储结构以及线性表有序。循环链表和双向链表都不是顺序存储结构，故B选项正确。 4、(选择题) 下面属于面向对象方法中对象基本特点的是 A.多态性 B.方法唯一性 C.可修改性 D.灵活性 A B C D 参考答案：A 【解析】对象的基本特点如下：

题库里 VB试题

选择题 (1) 所谓热启动是指（ B ）。 选择支： A: 计算机发热时应重新启动 B: 不断电状态下的重新启动 C: 重新由硬盘启动 D: 计算机的自动启动 (2) 一般彩色显示器都有字符和图形两种显示方式，它的主要技术指标是分辩率，分辩率一般用表示( C )。 选择支： A: 能显示多少个字符 B: 能显示的信息量 C: 横向点*纵向点 D: 能显示的颜色数 (3) 下列叙述正确的是( A )。 选择支： A: 将数字信号变换成便于在模拟通信线路中传输的信号称为调制 B: 以原封不动的形式将来自终端的信息送入通信线路称为调制解调 C: 在计算机网络中，一种传输介质不能传送多路信号 D: 在计算机局域网中，只能共享软件资源，而不能共享硬件资源 (4) 软盘和硬盘是目前常见的两种存储介质，在第一次使用前( A )。 选择支： A: 必须先进行格式化 B: 可直接使用，不必格式化 C: 应先清洗干净 D: 应先给软盘加上写保护 (5) 人们常说486微机、586微机，其中的数字指的是 ( C )。 选择支： A: 硬盘的型号 B: 软盘的型号 C: CPU的型号 D: CPU的处理速度 (6) 十进制数125对应的十六进制数是（ A ）。 选择支： A: 7D B: 5F C: 3B D: 7B

(7) 要将文本框中的字体设为“黑体”，可设置（C ）的属性为“黑体”。 选择支： A: FontBold B: BackItalic C: FontName D: FontSize (8) 用于遍历对象集合所有元素的语句是（ B）。 选择支： A: Do while…Loop B: For Each…Next C: While… Wend D: For… Next (9) 已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（A ）。Public Function Fn(n) If n = 0 Then Fn = 1 Else Fn = Fn(n - 1) * n End Function Private Sub Command1_Click() Print Fn(1) End Sub 选择支： A: 1 B: 2 C: 4 D: 24 (10) 文本框的按键事件（ B）。 选择支： A: KeyMove B: KeyPress C: MouseMove D: MouseUp (11) 可获得字符ASCII码值的函数是（ C）。 选择支： A: Chr$ B: Str$

计算机二级考试题库：VB程序题

编写一个复制字符串的程序，如图x_17.jpg 所示。 * 界面要求： * 使用文本框、命令按钮完成。 * 运行要求： * 1、点击“清除”按钮，将所有的文本框内容清空； * 2、点击“复制”按钮，如上面文本框有选中的文本，则将选中的文本复制到下面文本框中， * 否则，将上面文本框所有内容复制到下面文本框中。 * （此题要求上载窗体文件，不要求填写程序运行结果） 编写程序： * 使用冒泡法，对数组ia(1)=8,ia(2)=6,ia(3)=9,ia(4)=3,ia(5)=2,ia(6)=7 * 从小到大排序，并以紧凑格式在一行上输出。 编写一个秒表程序，如图K_309.jpg 所示。 * 界面要求： * 使用一个标签、两个命令按钮、一个时钟控件完成。 * 运行要求： * 1、点击“开始计时”按钮，开始计时，标签中显示时间，时间精度是百分之一秒； * 2、点击“结束计时”按钮，停止计时。 * 3、未计时时，“开始计时”按钮可用，“结束计时”按钮不能用。 * 计时过程中，“开始计时”按钮不可用，“结束计时”按钮能用。 * （此题要求上载窗体文件，不要求填写程序运行结果） 编写程序： * 利用随机函数产生20个10～99之间（包括10和99）的随机整数存入一维数组A，* 找出其中的最大值和最小值。 编写程序： * 求出斐波那契数列前9项的和。 * 提示：前两项为：0，1，从第3项开始，每一项均为其前两项的和（即：0+1+1+2+3+5+...）。 编写一个字母转换的程序，如图K_401.jpg 所示。 * 界面要求： * 使用文本框、命令按钮控件完成。 * 运行要求： * 在文本框1中输入任意字符串； * 点击“字母转换”按钮，将小写字母转换成大写字母，大写字母转换成小写字母，其余字母不变， * 并在文本框2中显示转换后的字符串。 * （此题要求上载窗体文件，不要求填写程序运行结果） 编写程序：

2013计算机二级(VB)考试机试题库

2013年VB题库 第01套简单应用题 （1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签Label1，请添加一个单选 按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为"飞机"、 "火车"、"汽车"，再添加一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过 程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单 击"飞机"或"火车"单选按钮时，在Text1中显示"我坐飞机去"或"我坐火车去"，单击"汽车"单选按 钮时，在Text1中显示"我开汽车去"，如图所示。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a = "我坐" b = "我开" ' Select Case ? ***** Index ***** Case 0 Text1.Text = a + Me.Op1(0).Caption + "去" Case 1 ' Text1.Text = ? + Me.Op1(1).Caption + "去" ***** a ***** Case 2 Text1.Text = b + Me.Op1(2).Caption + "去" End Select End Sub （2）在考生文件夹下有一个工程文件sjt4.vbp，Form1窗体中有一个文本框，名称为Text1；请在窗体上添加两个框架控件，名称分别为F1、F2，标题分别为"性别"、"身份"；在F1中添加两个单选按钮控件Op1、Op2，标题分别为"男"、"女"；在F2中添加两个单选按钮控件Op3、Op4，标题分别为"学生"、"教师"；再添加一个命令按钮，名称为C1，标题为"确定"。如图所示。请编写适当的事件过程，使得在运行时，在F1、F2中各选一个 单选按钮，然后单击"确定"按钮，就可以按照下表把结果显示在文本框中。 性别身份在文本框中显示的内容 男学生我是男学生 男教师我是男教师 女学生我是女学生 女教师我是女教师 最后把修改后的文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序和Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 … ***** 请考生编写程序***** If op1 and op3 then Text1.Text=”我是男学生” If op1 and op4 then Text1.Text=”我是男教师” If op2 and op3 then Text1.Text=”我是女学生” If op2 and op4 then Text1.Text=”我是女教师” *****第01套综合应用题 以下数列：1，1，2，3，5，8，13，21，…，的规律是从第3个数开始，每个数都是 其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图所示。

江苏省计算机二级VB试题库

一．选择题 1．窗体上有多个控件，在Form_Activate()事件过程中添加____ B______语句，就可确保每次运行程序时，都将光标定位在文本框Text1上。 A．Text1．Text="" B．Text1．SetFocus C．Form1．SetFocus D．Text1．Visible=True 2．语句Print "5*20"输出的结果是______C___。 A．"5*20" B．出现错误信息 C．5*20 D．100 3．不能打开代码窗口的操作是______B__。 A．双击窗体设计器的任何地方 B．按下F4键 C．单击工程窗口中的“查看代码”按钮 D．选择“视图”下拉菜单中的“代码窗口” 4．在VB中可以作为容器的是______B__。 A．Form、TextBox、PictureBox B．Form、PictureBox、Frame C．Form、TextBox、Label D．PictureBox、TextBox、ListBox 5．能被对象所识别的动作与对象可执行的活动分别称为对象的___D_____。 A．方法、事件B．过程、方法 C．事件、属性D．事件、方法 6．计算下面的表达式，其值是_____B___。 CInt(4.5) * Fix(-3.81) + Int(4.1) * (5 Mod 3) A．-7 B．-4 C．-8 D．6 7．以下有关对象属性的说法中正确的是___D_____。 A．对象所有的属性都罗列在属性窗口列表中 B．不同对象不可能有同名属性 C．不同对象的同名属性取值一定相同 D．对象的某些属性既可在属性窗口中设置，也可通过程序代码设置或改变 8．要使定时器控件可以使用，需设置的属性是____B_____。 A.Interval B. Enabled C. Value D. Text 9．在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是 ___D_____。 A．s=2*a+1 B．s="237" & ".11":a=s C．s=2*a>3 D．a=2:s=16400*a 10．在程序代码中，将图片文件“abc.jpg”装入图片框Picture1的语句是_____C___。 A．Picture1.Picture = "abc.jpg" B．Picture1.image = "abc.jpg " C．Picture1.Picture = LoadPicture("abc.jpg") D．LoadPicture("abc.jpg") 11．多窗体程序由多个窗体组成。在缺省情况下，VB在执行应用程序时，总是把_______B__指定为启动窗体。 A．不包含任何控件的窗体 B．设计时的第一个窗体

计算机vb期末试题库

计算机网络最突出的优点是______。 A、运算速度快 B、共享资源 C、容量大 D、精度高 B 能直接与CPU交换信息的存储器是______。 A、硬盘存储器 B、软盘存储器 C、内存储器 D、CD-ROM C 下列各项中，______能作为电子邮箱地址。 A、K201&https://www.wendangku.net/doc/c87352242.html, B、A112.256.23.8 C、L202@https://www.wendangku.net/doc/c87352242.html, D、TT202#YAHOO C 下列各组软件中，全部属于应用软件的一组是______。 A、MS-DOS，用友财务软件，学籍管理系统 B、Word 2000，Excel 2000，金山词霸 C、Windows2000，WPS Office2003，Word 2000 D、Unix，Visual FoxPro，AutoCAD B 在标准ASCII码表中，已知英文字母A的十进制码值是65，英文字母a的十进制码值是______。 A、91 B、95 C、96 D、97 D 根据Internet的域名代码规定，域名中的______表示商业组织的网站。 A、.net B、.gov C、.org D、.com D 当前活动窗口是文档d1.doc的窗口,单击该窗口的"最小化"按钮后(). A、关闭了d1.doc文档但当前活动窗口并未关闭 B、该窗口和d1.doc文档都被关闭

C、在窗口中不显示d1.doc文档内容,但d1.doc文档并未关闭 D、d1.doc文档未关闭,且继续显示其内容 C 在Excel的单元格中,如要输入数字字符串02510201(学号)时,应输入(). A、"02510201" B、02510201' C、'02510201 D、2510201 C 下列文件中能自动执行的是(). A、IO.SYS B、AUTOEXEC.EXE C、AUTOEXEC.BAT D、MSDOS.SYS C 下列叙述中，不正确的是( ) A、FTP提供了因特网上任意两台计算机之间相互传输文件的机制，因此它是用户获得大量Internet资源的重要方法 B、当拥有一台586个人计算机个一部电话机，只要再安装一个调制解调器(Modem)，便可以接到因特网上 C、WWW利用超文本和超媒体技术组织和管理信息浏览或信息检索的系统 D、E-mail是用户或者用户组之间通过计算机网络收发信息的服务 B 以下关于过程及过程参数的描述中，错误的是______。 A、过程的参数可以是控件名称 B、窗体可以作为过程的参数 C、只有函数过程能够将过程中处理的信息传回到调用的程序中 D、用数组作为过程的参数时，使用的是“传地址”方式 D 将一个窗体设置为MDI子窗体的方法是______。 A、将窗体的MDIChild属性设为True B、将窗体的MDIChild属性设为False C、将窗体的Enabled属性设为False D、将窗体的名称改为MDI D 设有如下变量声明 Dim TestDate As Date 为变量TestDate正确赋值的表达方式是______。 A、TestDate=date("1/1/2002") B、TestDate=#"1/1/2002"# C、TestDate=#1/1/2002#

【期末复习】计算机VB期末考试试题及答案

20**-20**学年VB期末考试试题A 一、填空题 1、VB程序设计的主要特点 是（1）和（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、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font

计算机二级VB考试试题

站长提醒广大考生：下面的138道题目，在二级考试中命中率极高。 一、选择题 (1) 下面叙述正确的是(C) A. 算法的执行效率与数据的存储结构无关 B. 算法的空间复杂度是指算法程序中指令（或语句）的条数 C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止 D. 以上三种描述都不对 (2) 以下数据结构中不属于线性数据结构的是(C) A. 队列 B. 线性表 C. 二叉树 D. 栈 (3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得 A. 8 B. 16 C. 32 D. 15 (4) 下面描述中，符合结构化程序设计风格的是(A) A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑 B. 模块只有一个入口，可以有多个出口 C. 注重提高程序的执行效率 D. 不使用goto语句 (5) 下面概念中，不属于面向对象方法的是(D) 注：P55-58 A. 对象 B. 继承 C. 类 D. 过程调用 (6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B) A. 可行性分析 B. 需求分析 C. 详细设计 D. 程序编码 (7) 在软件开发中，下面任务不属于设计阶段的是(D) A. 数据结构设计 B. 给出系统模块结构 C. 定义模块算法 D. 定义需求并建立系统模型 (8) 数据库系统的核心是(B) A. 数据模型 B. 数据库管理系统 C. 软件工具 D. 数据库 (9) 下列叙述中正确的是(C) A.数据库是一个独立的系统，不需要操作系统的支持 B.数据库设计是指设计数据库管理系统 C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致 (10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108

计算机vb试题

1、计时器的Interval属性是用来设置一时间间隔，单位是 A.1秒 B.1毫秒 C.1/100秒 D.1/1000秒 2、以下关于图片框控件的说法中，错误的是 A) 可以通过Print方法在图片框中输出文本 B) 清空图片框控件中图形的方法之一是加载一个空图形 C) 图片框控件可以作为容器使用 D) 用Stretch属性可以自动调整图片框中图形的大小 3、在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 A) For i=0 To List1.ListCount-1 …… Next B) For i=0 To List1.Count-1 …… Next C)For i=1 To List.ListCount …… Next D)For i=1 To List1.Count …… Next 4、假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为。 A) Lable1.BackStyle = 0 Lable1.BorderStyle = 0 B) Lable1.BackStyle = 1 Lable1.BorderStyle = 1 C) Lable1.BackStyle = true Lable1.BorderStyle = true D) Lable1.BackStyle = Flase Lable1.BorderStyle = False 5、如果将文本框控件设置成只有垂直滚动条，则需要将ScrollBars属性设置为 A) 0 B) 1 C) 2 D) 3 6、以下属于Visual Basic中合法的数组元素的是 A) K8 B) k［8］ C) k(0) D) k［8］ 7、以下定义数组或给数组元素赋值的语句中，正确的是 A)Dim a As Variant a=Array(1,2,3,4,5) B)Dim a(10) As Integer a=Array(1,2,3,4,5) C)Dim a%(10)

计算机vb试题

1、以下哪类控件能用来显示图形（） A．Label B．PictureBox C．TextBox D．OptionButton 2、在某菜单中，有一菜单项（Caption）内容是”NEW”，名字（Name）是“Create”，则单击该菜单项所产生的事件过程应是（） A．Private Sub MnuNEW_Click() B．Private Sub Create_Click() C．Private Sub NEW_Click() D．Sub Mnu_Create_Click() 3、下列叙述中正确的是（） A．在MDI应用程序中，每一个子窗体的菜单都显示在子窗体中 B．在多文档应用中，每次可以有几个活动的子窗体进行输入/编辑 C． VB的每一个窗体和控件都存在一个预定义的事件集 D．改变窗体的标题也就是改变其属性窗口中的Name属性 4、标签控件能够显示文本信息，决定其文本内容的属性是 A) Alignment B) Caption C) Visible D) BorderStyle 5、为清除PictureBox控件中的图形，下列方法正确的是（） A． Set Picture.Picture = LoadPicture(“c:\Win1.bmp”, vbLPLarge, vbLPColor) B． Picture.Picture = LoadPicture(“c:\Win1.bmp”, vbLPLarge, vbLPColor) C． Set Picture.Picture = LoadPicture D． Picture.Picture = LoadPicture 6、下列程序的运行结果为 Dim a(-1 To 6) For i=LBound(a, 1) To UBound(a, 1) a(i) =i Next i Print a(LBound(a, 1) ) ; a(UBound(a, 1) ) A) 0 0 B) -5 0 C) -1 6 D) 0 6 7、下面的数组声明语句中正确的是 A. Dim gg［1,5］ As String B. Dim gg［1 To 5,1 To 5］ As String C. Dim gg(1 To 5) As String D. Dim gg［1 :5,1: 5］ As String 8、在窗体上画一个命令按钮(其Name属性为Command1) ，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s=0 a=Array(1,2,3,4) ; j=1

全国计算机等级考试VB二级上机题库,有答案

VB上机试题 全国计算机等级考试二级VB上机题库(第一套) 一、基本操作题（2小题，每小题15分，共计30分） 1．在名称为Form1的窗体上画一个文本框，其名称为T1,宽度和高度分别为1400和400；在画两个按钮，其名称分别为C1和C2，标题分别为“显示”和“扩大”，编写适当的事件过程。程序运行后，如果单击C1命令按钮，则在文本框中显示“等级考试”，如图1所示，如果单击C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的3倍，如图2所示。 注意： 要求程序中不得使用变量。 存盘时必须放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 图2 解析：（大家请注意，以下分析加入我个人的理解和方法，都已通过上机验证，有的题方法不止一种，大家可以和我互相交流，我的邮箱：hero_chenxi@https://www.wendangku.net/doc/c87352242.html,，QQ:313691262，也可从论坛讨论https://www.wendangku.net/doc/c87352242.html,） 这道题没什么难度，主要考你窗体、按钮及文本框的基本属性，所以大家一定要熟练掌握常用控件的基本属性。打开VB(不用我说了吧)，新建一个工程（标准的EXE），单击控件面板的“TextBox”控件（也可双击，直接在窗体建立），在属性面板中将“名称”修改为T1，“Width”修改为1400，“Height”修改为400。然后单击控件面板的“CommanButton”添加两个命令按钮，在属性面板中将“名称”分别修改为C1和C2，“Caption”分别修改为显示和扩大。 接下来双击显示按钮，进入代码编写窗口，键入：（按钮的Click事件）T1.text=”等级考试” 双击扩大按钮，键入：（按钮的Click事件） T1.width=T1.width+1400 T1.Height=T1.Height+400 T1.fontsize=T1.fontsize*3 最后单击保存按钮，工程命名为sjt1.vbp,窗体命名为sjt1.frm。 总结：这道题只要错一点就没有分，主要考大家仔细认真及属性设置的熟练程度，大家一定了解Caption、Text等属性在不同控件含义是不同，有的控件有这个属性，而那个控件没有，名称属性是不能在运行期间改变的等等。以上限于时间原

全国计算机等级考试二级VB上机题库以及解析

全国计算机等级考试二级VB上机题库(一) 图1 图2 T1.width=T1.width+1400 T1.Height=T1.Height+400 T1.fontsize=T1.fontsize*3 最后单击保存按钮，工程命名为sjt1.vbp,窗体命名为sjt1.frm。 Text1.text=LCase(Text1.text) Text2.text=UCase(Text1.text) 一、简单应用题（2小题，每小题20分，共计40分） 1.在考生目录下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。包含所有控件和部分程序，如图所示。 要求： 1)利用属性窗口向列表框添加四个项目：Visual Basic,Turbo C,C++,Java; 2)请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮Option1,然后单击“确定”命令按钮，则文本框中显示“XXX笔试”；当选择

列表框中的一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中的一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中显示“XXX上机”。其中“XXX”是在列表框中所选择的项目。 If Option1.Value=True then Text1.Text=List1.List(List1.ListIndex)+Option1.Caption End If If Option2.Value=True then Text1.Text=List1.List(List1.ListIndex)+Option2.Caption End If 最后单击保存按钮。 2．在考生目录下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上已经有一个命令按钮。其名称为Command1,标题为“计算并输出”；程序运行后，如果单击命令按钮，程序将计算500以内两个数之间（包括开头和结尾的数）所有连续数的和为1250的正整数，并在窗体上显示出来，这样的数有多组，程序输出每组开头和结尾的正整数，并用“～”连接起来,如图所示，这个程序不完整，请把它补充完整。 要求： 去掉程序中的注释符，把程序中的？该为正确的内容，使其实现上述功能，但