大学计算机二级VB试卷

一、选择题(每题1分，共30分)

1、能被对象所识别的动作与对象可执行的活动分别称为对象的b。

A)方法、事件B)事件、方法

C)事件、属性D)过程、方法

2、执行语句Print Val("12A12") 的值为 b 。

A)12A B)12

C)1212 D)12A1

3、下列是合法的VB变量名。

A)_ab B)W_cde

C)5student D)Name&City

4、表达式 * 5 Mod 28 \ 8的值是 C 。；

3

A)0 B)1 C)2 D)3

5、如果在立即窗口中依次执行下列命令：

a=8： b=9

Print a>b

则输出的结果是 C 。

A)1 B)0 C)False D)True

6、下列表达式的值为真的是 D 。

A)"A">"a" B)"9">"a"

C)12> D)"That">"Thank"

7、表示“X>Y>Z”，正确的VB逻辑表达式是 A 。

A)X>Y And Y>Z B)X>Y>Z

C)X>Y OR Y>Z D)X>Y And >Z

8、函数CInt、Int、Fix都返回整数值，以下能正确地描述它们返回值的大小关系的是

A 。

A)CInt ＝ Int < Fix

B)Int < CInt

C)CInt < Fix < CInt

D)Int < Fix = CInt

9、与语句Dim abc%作用相同的语句是 B 。

A)Dim abc As Long

B)Dim abc As Integer C)Dim abc As String

D)Dim abc As Date 10、可以查找字符串中给定字符串位置的函数是 D 。

A)Ucase B)Len C)Mid D)Instr 。

11、数学表达式对应的正确Visual Basic 表达式为 C 。 A)-b + Sqr(b * b - 4 * a * c)/ 2 * a

B)-b + Sqr(b * b - 4 * a * c)/ (2 * a)

C)(-b + Sqr(b * b - 4 * a * c)) / (2 * a)

D)(-b + Sqr(b * b - 4 * a * c)) / 2 * a

12、窗体文件的扩展名是 A 。

A).frm B).vbp C).bas D).frx

13、Visual Basic 程序中的注释所使用的字符是 A 。

A)′ B): C)\ D)_

14、要使一个文本框对象能够显示多行文字，应该将对象设置为 True 的属性值是

B 。

A)Text

B)MultiLine C)Style D)Visible

15、执行下面语句后，Len 函数值最大的是 C 。

Dim IA As Integer, B As Single, S As String *5, Ch As String

IA=32767 : B= : S="A" :Ch="abcd"

A)Len(IA) B)Len(B) C)Len(S) D)Len(Ch)

16、若要求从文本框中输入密码时在文本框中只显示 * 号，则应当在此文本框的属性窗口中设置 。

A)Text 属性值为 *

B)Caption 属性值为 * C)password 属性值为空

D)Passwordchar 属性值为 * 17、窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3 = Text1 + Text2后，则在Text3中显示 。

A)434 B)45678 C)溢出 D)语法错误

18、下列选项中， 是十六进制数。

A)1234 B)&1234 C)&O1234 D)&H1234

19、执行语句Print Int(4*Rnd+1)后，不能可能出现的值为 。

a ac

b b 242-+-

A)2 B)3 C)4 D)5

20、语句段

a=3: b=5

t=a: a=b: b=t

执行后，。

A)a值为3，b值为3 B)a值为3，b值为5

C)a值为5，b值为3 D)a值为5，b值为5

21、Print方法可在上输出数据。

①窗体②文本框③图片框④标签⑤列表框⑥立即窗口

A)①③⑥B)②③⑤C)①②⑤D)③④⑥

22、在运行程序时，将焦点移至指定的控件或窗体，则需使用的方法是。

A)Change B)SetFocus C)GetFocus D)Move

23、在Visual Basic中最基本的对象是，它是应用程序的基石。

A)标签B)窗体C)文本框D)命令按钮

24、下列语句中的语句可以用来正确地声明一个动态数组。

A)Private A(n) As Integer B)Dim A() As Integer

C)Dim A(,) As Integer D)Dim A(1 to n)

25、有程序代码：="Visual Basic"，其中的Text1、Text和"Visual Basic"分别代表。

A)对象、值、属性B)对象、方法、属性

C)对象、属性、值D)属性、对象、值

26、在程序中可以通过复选框和单选框的属性来判断它们的当前状态。

A)Caption B)Value C)Checked D)Selected

27、用窗体的属性来设置窗体的标题。

A)Style B)Text C)Caption D)Name

28、如果在两个菜单命令项之间加一条分隔线，可在标题文本框中键入。

A)－B)＋C)& D)#

29、假设变量Lng为长整形变量，下面不能正常执行的语句是。

A)Lng=16384*2 B)Lng=4**16384

C)Lng=190^2 D)Lng=32768*2

30、在Form_Click事件中执行如下语句的正确结果是。

Print Format,"+##,##%")

A)123456 B)+123,% C)+123,% D)+123,654

二、阅读程序(每题2分，共20分)

1、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

程序运行后，单击命令按钮，在文本框中显示的值是什么

Private Sub Command1_Click()

Dim i As Integer, n As Integer

For i = 0 To 50

i = i + 3

n = n + 1

If i > 10 Then Exit For

Next i

= Str(n)

End Sub

答：

2、建立一窗体并编写下列事件过程，单击窗体执行该事件过程，其输出结果是什么Private Sub Form_Click()

Dim x As Integer

x = Int(Rnd + 4)

Select Case x

Case 5

Print "优秀"

Case 4

Print "良好"

Case 3

Print "合格"

Case Else

Print "不合格"

End Select

End Sub

答：

3、运行程序，当单击窗体时，窗体上显示内容的第三行是什么

Private Sub Form_Click()

Dim s As String, i As Integer, n(9) As Integer

Dim s1 As String * 1, j As Integer

s = Trim("12345a307291b233")

For i = 1 To Len(s)

s1 = Mid(s, i, 1)

If s1 >= "0" And s1 <= "9" Then

j = Val(s1)

n(j) = n(j) + 1

End If

Next i

For j = 0 To 9

Print j; ":"; n(j)

Next j

End Sub

答：

4、当发生Command1_Click事件后，以下程序输出结果是什么

Private Sub Command1_Click()

Dim y As Integer, i As Integer

Dim a(8) As Integer

y = 18: i = 0

Do

a(i) = y Mod 2

i = i + 1

y = y \ 2

Loop Until y < 1

For j = i - 1 To 0 Step -1

Print a(j);

Next j

End Sub

答：

5、写出程序运行时单击Command1后，窗体上显示内容的第二行是结果什么。

Private Sub Command1_Click()

Dim ch As String, i As Integer

ch = "DEF"

For i = 1 To Len(ch)

ch = Mid(ch, 2 * i - 1, 1) & Left(ch, Len(ch)) Print ch

Next i

End Sub

答：

6、写出程序运行时单击Command1后，在窗体上的输出结果。Private Sub Command1_Click()

Dim i As Integer, a As Integer

a = 1

For i = a To 5 Step a + 1

a = a + 1

Next i

Print a, i

End Sub

答：

7、写出程序运行时单击Command1后，在窗体上的输出结果。Option Explicit

Private Sub Command1_Click()

Dim I As Integer, a(5) As Integer

For I = 1 To UBound(a)

a(I) = I * 2 + 1

I = I + 1

Next I

Print a(3), LBound(a)

End Sub

答：

8、写出程序运行时单击Command1后，在窗体上的输出结果。Private Sub Command1_Click()

Dim n As Integer, j As Integer

j = 0: n = 0

Do While n < 3

j = (j + 1) * (j + 2)

n = n + 1

Loop

Print j; n

End Sub

答：

9、建立一窗体Form，然后编写如下程序。程序运行后，单击窗体的输出第三行结果是什么

Private Sub Form_Click()

Dim i As Integer, j As Integer

Dim t(10, 10) As Integer

For i = 1 To 3

For j = 1 To 3

t(i, j) = (i - 1) * 3 + j

Print t(i, j);

Next j

Print

Next i

End Sub

答：

10、建立一窗体Form，在窗体上画一文本框Text1和一命令按钮Command1,然后编写如下程序，运行程序后，单击命令按钮，在Text1中输出结果是什么

Private Sub Command1_Click）

Dim Fb(10) As Integer，I As Integer

Fb(l)＝2：Fb(2)＝3

For I = 3 To 5

Fb(I)＝Fb(I - 2)+ Fb(I - 1)

Next I

For I = 1 To 5

Text1 = Text1 ＆ Str(Fb(I))＆“”

Next I

End Sub

答：

三、程序填空(每空2分，共20分)

1、下列程序的功能是从键盘上按行输入一个3×4二维数组，求二维数组各列的和，输出到窗体。请在下划线处填写适当的内容。

Option Base 1

Private Sub Form_Click()

Dim a(3, 4) As Integer, s(4) As Integer

For j = 1 To 4

For i = 1 To 3

a(i, j) = InputBox("请输入一个元素的值")

Next i

Next j

For j = 1 To 4

s(j) = 0

For i = 1 To 3

Next i

Next j

For i = 1 To 4

Next i

End Sub

2、下列程序的功能是求一维数组的最大值和最小值及其下标，请在下划线处填写正确的

内容。

Option Base 1

Private Sub Command1_Click()

Dim t(10) As Integer, min_i As Integer

Dim max_i As Integer

For i = 1 To 10

t(i) = InputBox("请输入一个元素值")

Next i

min_i = ：max_i=

For i = 2 To 10

If Then min_i = i

If Then max_i= i

Next i

Print t(min_i), min_i,t(max_i),max_i

End Sub

3、下面程序的功能是用直接选择排序法将数组a中的10个整数按降序排列，请在下划

线处将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim a, i As Integer, temp As Integer

Dim j As Integer, k As Integer

a = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823)

For i =

k = i

For j =

If a(k) < a(j) Then k = j

Next j

If k i Then

temp = a(i)

a(i) = a(k)

a(k) = temp

End If

Next i

For i = 1 To 10

Print a(i)

Next i

End Sub

4、本程序的功能是产生10个个位数互不相同的三位随机正整数，并存放到下标与其个位数相同的数组元素中。

例如395应存到a(5)中。

Option Explicit

Private Sub Form_Click()

Dim a(9) As Integer, x As Integer, k As Integer

Dim I As Integer

Randomize

Do While I <= 9

x = Int(Rnd * 900 + 100)

If a(k) = 0 Then

a(k) = x

I = I + 1

End If

Loop

For I = 0 To 9

Print a(I);

Next I

End Sub

四、编程题(每题15分，共30分)(界面自行设计)

1、编写程序，输出100以内能被3整除的数之和。要求：将结果在窗体上输出。

2、编写程序，从文本框1中输入的一个由字母和数字组成的字符串中，找出所有的大写字母，并依次连接，再输出到文本框2中。

3、编写程序，求两个正整数的最大公约数。要求：将a、b两个变量在分别Text1和Text2中输入，最大公约数在Text3中显示。

全国计算机等级考试二级VB笔试试题及答案

2009年9月全国计算机等级考试二级VB笔试试题及答案 一、选择题（每小题2分，共70分） 一、选择题 1．下列数据结构中，属于非线性结构的是（）。 A. 循环队列 B.带链队列 C.二叉树 D.带链栈 答案C Array解析树均是非线性结构 2. 下列数据结构中,能够按照”先进后出”原则存取数据的是（）。 A. 循环队列 B.栈 C.队列 D.二叉树 答案B 解析:栈是先进后出或后进先出的线性表 3. 对于循环队列,下列叙述中正确的是（）。 A.队头指针是固定不变的 B.队头指针一定大于队尾指针 C.队头指针一定小于队尾指针 D.队头指针可以大于队尾指针，也可以小于队尾指针 答案D 解析:如果队头指针大于队尾指针说明队列已经循环存放数据了,如果队头指针小于队尾指针说明没有进行循环存放 4. 算法的空间复杂度是指（）。 A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量

C.算法程序中的语句或指令条数 D.算法在执行过程中所需要的临时工作单元数 答案A 解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所占空间,输入的初始数据所占空间和执行过程中所需要的额外空间. 5. 软件设计中划分模块的一个准则是（）。 A. 低内聚低耦合 B. 高内聚低耦合 C. 低内聚高耦合 D. 高内聚高耦合 答案B 解析:模块内部各元素之间的联系要紧密,高内聚,模块间的连接的紧密程度要低,低耦合,这样可以提高模块的独立性. 6.下列选项中不属于结构化程序设计原则的是（）。 A.可封装 B.自顶向下 C.模块化 D.逐步求精 答案A 7.软件详细设计产生的图如下 该图是( ). A.N-S图 B. PAD图 C. 程序流程图 D.E-R图 答案C 8.数据库管理系统是（）。

计算机二级VB考试题及答案

计算机二级VB考试题及答案 为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩! 1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n = Val(Text1.Text) If n2 = n/2 Then f = f1(n) Else f = f2(n) End If

Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)

A.72 36 B.108 36 C.72 6 D.27 3 2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = "1234" For i = 1 To 4 c1 = Trim(Str( )) Print c1

Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 12 123 1234 则在下划线处应填入的内容为(B)(单) A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)

2016年计算机二级《VB》基础练习题及答案(2)

2016年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： ①Text2可以显示多行文本，并且有垂直和水平两个滚动条; ②程序运行时在Textl中显示输入的字符为“*”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。 参考解析： 【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。 【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。 【操作步骤】 步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。 2[单选题]在下列模式中，能够给出数据库物理存储结构与物理存取方法的是()。 A.外模式 B.内模式 C.概念模式 D.逻辑模式 参考答案：B 参考解析：数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 3[单选题]以下关系表达式中，其值为True的是()。 A.1f.XYZ”>”XYz” B.”VisualBasic”<>”visualbasic” C.P the-.=’’there·t D.”Integer”<”Int” 参考答案：B 参考解析：用关系运算符比较两个操作敷时，如果两个操作数是字符型的，按字符的A SCIl码从左到右一一比较，即先比较第1个，若相同再比较第2个，依次比较，直到比较

(完整word版)计算机二级VB编程题目含答案

Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text) s = 0 For i = 1 To n s = s + i ^ 2 Next i Text2.Text = s End Sub Private Sub Command1_Click() ''' 不得删除本行注释 Dim i As Integer Open App.Path & "\" & "yssj.txt" For Input As #1 For i = 1 To 10 Input #1, a(i) Next i Close #1 End Sub Private Sub Command2_Click() ''' 不得删除本行注释 Dim i As Integer Text1.Text = "" For i = 1 To 10 If a(i) Mod 3 = 2 Then Text1.Text = Text1.Text & Str(a(i)) End If Next i End Sub

Private Sub command1_Click() '''不得删除本行注释 Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text) a = 0 b = 0 For i = 1 To n a = a + i b = b + a Next i Text2.Text = b End Sub Private Sub Command1_Click() '''不得删除本行注释 Dim i%, xh$, xm$ Open App.Path & "\" & "Xhxm.txt" For Output As #1 For i = 1 To 3 xh = InputBox("请输入学号") xm = InputBox("请输入姓名") Write #1, xh, xm Next i Close #1 End Sub Private Sub Command2_Click() '''不得删除本行注释 Dim s as string Open App.Path & "\" & "Xhxm.txt" For Input As #2 Do While Not EOF(2) Line Input #2, s Text1.Text = Text1.Text & s & vbCrLf Loop Close #2 End Sub

2017年计算机二级考试VB重点-VisualBasic的特点

2017年计算机二级考试VB重点:Visual Basic的特点 一、Visual Basic的特点和版本 (一)Visual Basic 的特点 Visual Basic是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。 总的来看，Visual Basic有以下主要特点： 1.可视化编程 2.面向对象的程序设计 3.结构化程序设计语言 4.事件驱动编程机制 5.访问数据库 6.动态数据交换(DDE) 7.对象的链接与嵌入(OLE) 8.动态链接库(DLL) 9.建立用户自己的ActiveX 控件 10.建立ActiveX 文档

11」nternet 组件下载 12.枚举类型 (二)Visual Basic 的版本 Visual Basic6.0包括3种版本，分别为学习版、专业版和企业版。 (1)学习版:Visual Basic的基础版本，可用来开发Windows应用程序。该版本包括所有的内部控件(标准控件)、网络(Grid)控件、Tab对象以及数据绑定控件。 (2)专业版:该版本为专业编程人员提供了一整套用于软件开发、功能完备的工具。它包括学习版的全部功能，同时包括ActiveX控件、In ternet 控件、Crystal Report Writer 和报表控件。 (3)企业版:可供专业编程人员开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能，同时具有自动化管理器、部件管理器、数据库管理工具、Microsoft Visual SourceSafe 面向工程版的控制系统等 二、Visual Basic的启动与退出 开机并进入中文Win dows 后，可以用多种方法启动Visual Basic。 第一种方法：使用“开始”菜单中的“程序”命令。操作如下： (1)单击Windows 环境下的“开始”按钮，弹出一个菜单，把光标移到“程序”命令上，将弹出下一个级联菜单； (2)把光标移到“ Microsoft Visual Basic6.0 中文版”，弹出下一个级联菜单，即Visual Basic6.0程序组；

计算机二级考试《VB》模拟试题及答案

计算机二级考试《VB》模拟试题及答案 2016计算机二级考试《VB》模拟试题及答案 一、基本操作题 (1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl.vbp，窗体文件名为sjtl.frm。 (2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。再画两个标题分别为“椭圆”和“圆”的命令按钮。如下图所示。 要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjr2.vbp，窗体文件名为sjr2.frm。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。窗体Forml上有两个标题分别是“读数据”和“查找”的命令按钮。请画1个名称为Textl、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。程序功能如下。 ①在考生文件夹下的in.3.dat文件中存有100个正整数。单击“读数据”按钮，则将文件in3.dat中的数据读入数组a中。 ②单击“查找”按钮，则查找数组a中所有为7的倍数的数据，并将这些数据顺次显示在Textl文本框内(数据之间用空格隔开)。

“读数据”按钮的Click事件过程已经给出，请编写程序完成“查找”按钮的Click事件过程，实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用“查找”按钮完成查找过程，且必须用窗 体右上角的关闭按钮结束程序，否则无成绩。最后将程序按原文件 名存盘。 (2)考生文件夹下有一个工程文件sit4.vbp。在窗体Forml上有 两个名称为Commandl和Command2、标题分别为“重输”和“查找”的命令按钮。程序功能如下。 单击“重输”按钮，则清空Textl中的`内容，等待用户输入由 空格隔开的若干个英文单词;单击“查找”按钮，则找出Textl中最 长的单词，并将其显示在Text2中。某一次的运行效果如图所示。 请将“查找”按钮的Click事件过程中的注释符去掉，把?改为正确 内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 考生文件夹下有一个工程文件sjt.s.vbp。在窗体Forml上有两 个标题分别是“产生数据”和“重新排列”的命令按钮，有两个标 题为“原始数据”和“排列数据”的标签。程序功能如下。 ①单击“产生数据”按钮，则随机产生20个一位整数，存人数 组a中，并同时显示在Textl中。 ②单击“重新排列”按钮，则重新排列数组a中的元素：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序;最 后将排列结果显示在Text2中。某一次运行结果如图所示。 请将“重新排列”按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。

计算机二级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语言程序设计

2011年9月全国计算机等级考试二级笔试试卷VB语言程序设计 一、选择题 1、下列叙述中正确的是 A、算法就是程序 B、设计算法时只需要考虑数据结构的设计 C、设计算法时只需要考虑结果的可靠性 D、以上三种说法都不对 2、下列关于线性链表的叙述中，正确的是 A、各数据结点存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致 B、各数据结点的存储顺序可以不一致，但它们的存储空间必须连续 C、进行插入与删除时，不需要移动表中的元素 D、以上三种说法都不对 3、下列关于二叉树的叙述中，正确的是 A、叶子结点总是比度为2的结点少一个 B、叶子结点总是比度为2的结点多一个 C、叶子结点数是度为2的结点数的两倍 D、度为2的结点数是度为1的结点数的两倍 4、软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。 A、学生成绩管理系统 B、C语言编译程序 C、UNIX操作系统D 5 该系统总体结构图的深度是 A、7 B、6 C、3 D、2 6、程序调试的任务是 A、设计测试用例 B、验证程序的正确性 C、发现程序中的错误 D、诊断和改正程序的错误 7、下列关于数据库设计的叙述中，正确的是 A、在需求分析阶段建立数据字典 B、在概念设计阶段建立数据字典 C、在逻辑设计阶段建立数据字典 D、在物理设计阶段建立数据字典 8、数据库系统的三级模式不包括 A、概念模式 B、内模式 C、外模式 D、数据模式 9、有三个关系R、S和T如下： R S 则由关系R和S得到关系T的操作是 A、自然连接 B、差 C、交 D、并 10、下列选项中属于面向对象设计方法主要特征的是 A、继承 B、自顶向下 C、模块化 D、逐步求精 11、以下描述中错误的是 A、窗体的标题通过其Caption属性设置

计算机等级考试二级VB模拟试题四及答案解析

计算机等级考试二级VB模拟试题四及答案解析 一、选择题 (1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private SubCommand1_Click() Move 500,500 End Sub 程序运行后，单击命令按钮，执行的操作为 A)命令按钮移动到距窗体左边界、上边界各500的位置 B)窗体移动到距屏幕左边界、上边界各500的位置 C)命令按钮向左、上方向各移动500 D)窗体向左、上方向各移动500 正确答案: B (2)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是 A)TabStop B)Enabled C)Visible D)TabIndex 正确答案: D (3)以下定义数组或给数组元素赋值的语句中，正确的是 A)Dim a As Variant a=Array(1,2,3,4,5) B)Dima(10)As Integer a=Array(1,2,3,4,5) C)Dim a%(10) a(1)="ABCDE" D)Dim a(3),b(3)As Integer a(0)=0 a(1)=1 a(2)=2 b=a 正确答案: A (4)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 A)For i=0 ToList1.ListCount-1 …… Next B)For i=0 To List1.Count-1 …… Next C)For i=1 To List.ListCount …… Next

D)For i=1 ToList1.Count

计算机二级考试题库：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)模拟试题二

计算机等级考试（二级VB）模拟试题二 第一部分计算机基础知识 1．是我国安全部开发的一种检测和消除计算机病毒的杀毒软件。 A．Kill B．Scan C．Vsafe D．WPS 2．用n位二进制来表示一个整数的补码，用最高位作为符号位，其整数的表示范围是. A．-2n-1～+2n-1-1 B．-2n-1+1～+2n-1 B．-2n-1～+2n-1D．-2n～+2n-1 3．下列四个数中最大的数是。 A．十进制数1789 B．十六进制数IFF C．二进制数10100001 D．八进制数227 4．存储器体系由不同类型的存储器组成多层结构，按存取速度从快到慢的是。 A．快存、辅助、主存、海量存储器B．光盘、主存、辅助、海量存储器 C．快存、主存、辅助、海量存储器D．DVD、主存、辅助、海量存储器 5．高级语言采用解释方式时的执行速度与采用编译方式时的执行速度相比，下列是正确的。 A．相等B．前者快C．前者慢D．不能确定 6．设汉字字库包括全角符号和一、二级汉字共8000个，进入汉字操作系统调用16x15点阵汉字库，且全部常驻内存中，则内存开销约为。 A．640KB B．1.47KB C．240KB D．70KB 7．下列软件中，不属于应用软件的是。 A．字表处理软件B．财务管理软件 C．股市分析软件D．高级语言编译程序 8．传送速率单位“bps”代表的意义是。 A．Bytes Per Second B. Bits Per Second C．Band Per Second D. Billion Per Second 9．软件需求分析一般应确定的是用户对软件的。 A. 功能需求 B. 非功能需求 C. 性能需求 D. 功能需求和非功能需求 10．计算机网络中的拓扑结构是一种。 A．实现异地通信方案B．理论概念 C．设备在物理上的连接形式D．传输信道的分配 11．E-mail地址中@后面的内容是指。 A．收信服务器名称B．寄信服务器名称 C．帐号D．密码 12．如果用户正在用到3个文件夹，每个文件夹至少含有4个文件，若想不移动文件，工作却更方便，应当。 A．在桌面上右击鼠标，为这些文件夹建立快捷键 B．把这些文件夹增加到快捷文件夹中去

江苏省计算机二级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一般程序设计习题

一般程序设计习题 '〖第1题〗：(事件)单击窗体。 ' (响应)求100以内偶数的和，并将结果输出在窗体上。 ' 将结果存入变量SUM中 '答案：Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Print sum '〖第2题〗：(事件)双击窗体。 ' (响应)求s=1+1×2+1×2×3+...+1×2×3× (10) ' 并将结果存到变量S中 答案：Dim i, j As Integer Dim k As Long k = 1 s = 0 For i = 1 To 10 For j = 1 To i k = k * j Next s = s + k k = 1 Next Print (CStr(s)) '〖第3题〗：(事件)单击窗体。 ' (响应)求1+2+3+……+100的值，并把结果输出在窗体上。' 结果存入变量SUM中。 '答案：Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum '〖第4题〗：判断一个数是否是素数。 '答案：Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i '〖第5题〗：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。 ' 将结果存入变量J中。 Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ''〖第6题〗：(事件)单击窗体。 ' (响应)求200~300之间既能被3整除又能被7整除的数。' 并求出所有数之和存入变量SUM中 '答案：Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum '〖第7题〗：(事件)单击窗体。

计算机二级考试VB基础题

一、选择题 1.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。 A.工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口 2.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。 A.单选按钮 B.图片框 C.通用对话框 D.文本框 3.VB的启动有多种方法，下面不能启动VB的是（）。 A.使用“开始”菜单中的“程序”命令 B.使用“开始”菜单中的“运行”命令，在弹出的对话框中输入VB启动文件名 C.使用“我的电脑”，在VB所在硬盘驱动器中找到相应的VB文件夹 D.先打开VB的“文件”菜单，再按Alt+Q组合键 4.VB的工程资源管理器可管理多种类型的文件，下面叙述不正确的是（）。 A.窗体文件的扩展名为.frm，每个窗体对应一个窗体文件 B.标准模块是一个纯代码性质的文件，它不属于任何一个窗体 C.用户通过类模块来定义自已的类，每个类都用一个文件来保存，其扩展名为.bas D.资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑 5.通过（）窗口可以在设计时直观地调整窗体在屏幕上的位置。 A.代码窗口 B.窗体布局窗口 C.窗体设计窗口 D.属性窗口 6.下列不能打开属性窗口的操作是（）。 A.按F4键 B.执行“视图”菜单中的“属性窗口”命令 C.按Ctrl+T D.单击工具栏上的“属性窗口”图标 7.Visual Basic6.0默认的工具栏是（）工具栏。 A.文件 B.数据库 C.格式 D.标准 8.下列可以打开文件对话框的操作是（）。 A.Ctrl+D B.Ctrl+E C.Ctrl+F D.Ctrl+G 9.以下不能在“工程资源管理器”窗口中列出的文件类型是（）。 A..bas B..res C..frm D..ocx 10.以下不属于Visual Basic系统的文件类型是（）。 A..frm B..bat C..vbg D..vbp 11.如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的（）命令。 A.引用 B.部件 C.工程属性 D.加窗体 12.以下关于窗体描述正确的是（）。 A.只有用于启动的窗体可以有菜单 B.窗体事件和其中所有控件事件的代码都放在窗体文件中 C.窗体的名字和存盘的窗体文件名必须相同 D.开始运行时窗体的位置只能是设计阶段时显示的位置 13.VB中控件主要分为3类，下面哪一种不是VB中的控件类（）。 A.标准控件 B.ActiveX C.可插入控件 D.外部控件 14.以下叙述中错误的是（）。 A.双击鼠标可以触发DblClick事件 B.窗体或控件的事件的名称可以由编程人员确定 C.移动鼠标时，会触发MouseMove事件 D.控件的名称可以由编程人员设定

全国计算机二级VB上机题库(题+答案)word版

一、基本操作题 下面出现的“考生文件夹”均为c:\wexam\20060001。 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 1．在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。只建立菜单，不必定义其事件过程。 注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。程序中不能使用任何变量，直接显示字符串。 注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。 一、基本操作题答案 1．【解题步骤】 （1）打开“菜单编辑器”。 （2）菜单设计见表4-1。 表4-1 标题名称内缩符号 文件vbFile 0 打开vbOpen 1 关闭vbClose 1 退出vbExit 1 帮助vbHelp 0 （3）按要求设计含有“文件”和“帮助”的菜单栏。 （4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。 （5）设计完成之后，按规定方式存盘。 2．【解题步骤】 （1）建立界面和控件并设置控件属性。程序中用到的控件及其属性见表4-2。 表4-2 控件属性设置值 按钮Name Cmd1 Caption 喜欢 按钮Name Cmd2 Caption 不喜欢 （2）编写程序代码。 参考代码： Private Sub Cmd1_Click() Print"数理化" End Sub Private Sub Cmd2_Click()

计算机等级考试二级_VB笔试真题及答案

2006年9月二级VisualBasic程序设计笔试试卷及答案 一、单项选择 (1)下列选项中不符合良好程序设计风格的是_____ 。 A) )源程序要文档化B)数据说明的次序要规范化 C) )避免滥用goto 语句D)模块设计要保证高耦合、高内聚 (2)从工程管理角度，软件设计一般分为两步完成，它们是_____ 。 A) )概要设计与详细设计B)数据设计与接口设计 C) )软件结构设计与数据设计D)过程设计与数据设计 (3)下列选项中不属于软件生命周期开发阶段任务的是_____ 。 A) )软件测试B)概要设计C)软件维护D)详细设计 (4)在数据库系统中，用户所见的数据模式为_____ 。 A) )概念模式B)外模式C)内模式D)物理模式 (5)数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和_____ 。 A) )编码设计B)测试阶段C)运行阶段D)物理设计 (6)设有如下三个关系表： 下列操作中正确的是_____ 。 (7)下列叙述中正确的是_____ 。 A) )一个算法的空间复杂度大，则其空间复杂度也必定大 B) )一个算法的空间复杂度大，则其时间复杂度必定小 C) )一个算法的时间复杂度大，则其空间复杂度必定小 D) )上述三种说法都不对 (8)在长度为64 的有序线性表中进行顺序查找，最坏情况下需要比较的次数为_____ 。 A) ) 63 B) 64 C) 6 D) 7 (9)数据库技术的根本目标是要解决数据的_____ 。 A) )存储问题B)共享问题C)安全问题D)保护问题 (10)对下列二叉树： 进行中序遍历的结果是_____ 。 A) ) ACBDFEG B) ACBDFGE C) ABDCGEF D) FCADBEG (11)以下叙述中正确的是_____ 。

计算机等级考试VB模拟训练题(十二)

第47套 1.基本操作（2小题，每小题15分，共计30分） （1）在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1，标题为“输出”的命令按钮（如图所示）。要求程序运行后，在文本框输入几个字符，在单击“输出”按钮，则在窗体上显示文本框中的的文字。*注意：1）在程序中不能使用任何变量。2）保存时必须存放在考生文件夹下，窗体文件名为lq1.frm，工程文件名为lq1.vbp。 （2）在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为“按钮一”、“按钮二”的命令按钮（如图所示）。要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上，使两个按钮重合。*注意：1）在程序中不得使用任何变量（必须通过属性设置来移动控件）。2）保存时必须存放在考生文件夹下，窗体文件名为lq2.frm，工程文件名为lq2.vbp 2.简单应用（2小题，每小题20分，共计40分） （1）在考生文件夹中有工程文件lq5.vbp及其窗体文件lq5.frm，该程序是不完整的。请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有三个名称分别为Text1、Text2、Text3的文本框，一个名称为C1，标题为“计算”的命令按钮（如图所示）。要求程序运行后，在Text1和Text2中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数（含着两个整数）累加起来并在Text3中显示出来。 （2）在窗体上建立一个名称为Text1的文本框，建立一个名称为Cmd1，标题为“计算”的命令按钮（如图所示）。要求程序运行后，如果单击“计算”按钮，则求出100-200之间所有可以被3整除的数的总和，在文本框中显示出来，并把结果存入考生文件夹下的out.txt文件中。注意，在考生的文件夹下有一个mode.bas标准模块，该模块中提供了保存文件的过程putdata，考生可以直接调用。*注意：保存时必须存放在考生文件夹下，窗体文件名为lq6.frm。工程文件名为lq6.vbp,结果存入out.txt文件。

计算机二级考试VB一般程序设计习题

(事件)单击窗体 '(响应)求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Print sum '〖第2题〗：(事件)双击窗体。 ' (响应)求s=1+1×2+1×2×3+…+1×2×3×…×10 ' 并将结果存到变量S中 Dim i, j As Integer Dim k As Long k = 1 s = 0 For i = 1 To 10 For j = 1 To i k = k * j Next s = s + k k = 1 Next Print (CStr(s)) '〖第3题〗：(事件)单击窗体。 ' (响应)求1+2+3+……+100的值，并把结果输出在窗体上 ' 结果存入变量SUM中。 '答案：Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum '〖第4题〗：判断一个数是否是素数 '答案：Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i '〖第5题〗：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值 ' 将结果存入变量J中 Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then