点击查看：2018年9月计算机二级VB考试巩固练习及答案汇总

　　1.下列可以激活属性窗口的操作是(D)(单)

　　A.用鼠标双击窗体的任何部位

　　B.执行"文件"菜单中的"属性窗口"命令

　　C.执行"编辑"菜单中的"属性窗口"命令

　　D.按F4键

　　2下列能打开工具箱窗口的操作是(A)(单)

　　A.执行"视图"菜单中的"工具箱"命令

　　B.按Alt键

　　C.单击属性窗口上的"工具箱"按钮

　　D.按Ctrl键

　　3.假定已在一个窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置该窗体的Name属性，预先应执行的操作是(D)(单)

　　A.单击窗体上有控件的地方

　　B.单击任一个控件

　　C.不执行任何操作

　　D.双击窗体的标题栏

　　4.为了把窗体上的某个控件变为活动的，应执行的操作是(B)(单)

　　A.单击窗体的空白处

　　B.单击该控件的内部

　　C.双击该属性列表框

　　D.双击窗体

　　5.确定一个控件在窗体上的位置的属性是(D)(单)

　　A.Width或Height

　　B.Top和Height

　　C.Top或Width

　　D.Top和Left

　　6.确定一个窗体或控件的大小的属性是(A)(单)

　　A.Width或Height

　　B.Top和Width

　　C.Top或Left

　　D.Top和Left

　　7.为了同时改变一个活动控件的高度和宽度，正确的操作是(A)(单)

　　A.拖拉位于控件左上角

　　B.只能拖拉位于控件右下角

　　C.只能拖拉位于控件左下角

　　D.不能同时改变控件的高度和宽度

　　8.面向对象的程序设计指满足(B)(单)

　　A.虚拟化、结构化、动态化

　　B.封装性、继承性、多态性

　　C.对象的链接、动态链接、动态数据交换

　　D.ODBC、DDE、OLE

　　9.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为(A)(单)

　　A.面向对象的程序设计

　　B.结构化程序设计

　　C.事件驱动的编程机制

　　D.程序设计

　　10.VB集成开发环境开发的应用程序不适宜的运行环境是(A)(单)

　　A.WINDOS 32

　　B.WINDOWS 9X

　　C.WINDOWS NT

　　D.WINDOWS 2000

　　11.以下程序段：

　　Private Sub Form_Load( )

　　Dim Nop As Integer, Op As String * 1

　　Num1 = 3

　　Num2 = 2

　　Nop = val(Inputbox("请输入1-4之间的整数"))

　　Select Case Nop

　　Case 1

　　Op = "+"

　　Result = Num1 + Num2

　　Case 2

　　Op = "-"

　　Result = Num1 - Num2

　　Case 3

　　Op = "×"

　　Result = Num1 * Num2

　　Case 4

　　Op = "÷"

　　Result = Num1 / Num2

　　End Select

　　Label1= Num1 & Op & Num2 & "=" & Result

　　End Sub

　　窗体运行后，输入2，则label1的标题显示结果为(B)(单)

　　A.3+2=5

　　B.3-2=1

　　C.3×2=6

　　D.3÷2=1.5

　　12.以下程序段：

　　Private Sub Form_Load( )

　　Dim Nop As Integer, Op As String * 1

　　Num1 = 3

　　Num2 = 2

　　Nop = val(Inputbox("请输入1-4之间的整数"))

　　Select Case Nop

　　Case 1

　　Op = "+"

　　Result = Num1 + Num2

　　Case 2

　　Op = "-"

　　Result = Num1 - Num2

　　Case 3

　　Op = "×"

　　Result = Num1 * Num2

　　Case 4

　　Op = "÷"

　　Result = Num1 / Num2

　　End Select

　　Label1= Num1 & Op & Num2 & "=" & Result

　　End Sub

　　窗体运行后，输入3，则label1的标题显示结果为(C)(单)

　　A.3+2=5

　　B.3-2=1

　　C.3×2=6

　　D.3÷2=1.5

　　13.以下程序段：

　　Private Sub Form_Load( )

　　Dim Nop As Integer, Op As String * 1

　　Num1 = 3

　　Num2 = 2

　　Nop = val(Inputbox("请输入1-4之间的整数"))

　　Select Case Nop

　　Case 1

　　Op = "+"

　　Result = Num1 + Num2

　　Case 2

　　Op = "-"

　　Result = Num1 - Num2

　　Case 3

　　Op = "×"

　　Result = Num1 * Num2

　　Case 4

　　Op = "÷"

　　Result = Num1 / Num2

　　End Select

　　Label1= Num1 & Op & Num2 & "=" & Result

　　End Sub

　　窗体运行后，输入4，则label1的标题显示结果为(D)(单)

　　A.3+2=5

　　B.3-2=1

　　C.3×2=6

　　D.3÷2=1.5

　　14.以下程序段的作用是(A)(单)

　　Private Sub Picture1_Click( )

　　Dim asci As Integer, i As Integer

　　i = 0

　　For asci = 32 To 126

　　Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;

　　i = i + 1

　　If i = 7 Then i = 0: Picture1.Print

　　Next asci

　　A.打印ASCII码表，一行7个表达式

　　B.打印九九乘法表，一行7个表达式

　　C.打印ASCII码表，一行8个表达式

　　D.以上说法都不正确

　　15.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。

　　Private Sub Command1_Click( )

　　Dim x, n

　　x = Val(Text1)

　　n = 0

　　Do While 【x】<26

　　x = x * (1 + 0.008)

　　n = n + 1

　　Loop

　　Text2 = Str(n)

　　End Sub

　　16.以下程序的作用是(B)(单)

　　For i = 1 To 9

　　For j = 1 To 9

　　se = i & "×" & j & "=" & i * j

　　Picture1.Print Tab((j - 1) * 9 + 1); se;

　　Next j

　　Picture1.Print

　　Next i

　　A.打印ASCII码表

　　B.打印九九乘法表

　　C.打印加法表

　　D.以上说法都不正确

　　17.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。

　　Private Sub Form_Click( )

　　Dim I%, n&, t!, e!

　　E = 0 ' 存放累加和结果

　　I = 0 ' 计数器

　　n = 1 ' 存放阶乘的值

　　t = 1 ' 级数第I项值

　　Do While 【t>】 0.00001

　　e = e + t

　　I = I + 1

　　n = n * I

　　t = 1 / n

　　Loop

　　Print "计算了 "; I; " 项的和是 "; e

　　End Sub

　　18.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。

　　Private Sub Form_Click( )

　　Dim I%, n&, t!, e!

　　E = 0 ' 存放累加和结果

　　I = 0 ' 计数器

　　n = 1 ' 存放阶乘的值

　　t = 1 ' 级数第I项值

　　Do While t>0.00001

　　e = e + 【t】

　　I = I + 1

　　n = n * I

　　t = 1 / n

　　Loop

　　Print "计算了 "; I; " 项的和是 "; e

　　End Sub

　　19.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。

　　Private Sub Form_Click( )

　　Dim I%, n&, t!, e!

　　E = 0 ' 存放累加和结果

　　I = 0 ' 计数器

　　n = 1 ' 存放阶乘的值

　　t = 1 ' 级数第I项值

　　Do While t>0.00001

　　e = e + t

　　I = I + 1

　　n = n * 【I】

　　t = 1 / n

　　Loop

　　Print "计算了 "; I; "项的和是"; e

　　End Sub

　　20.以下程序是求最大公约数和最小公倍数的程序。

　　Private Sub Form_Click( )

　　Dim m1, n1, m, n, r As Integer

　　n1 = InputBox("输入自然数n", "输入数")

　　m1 = InputBox("输入自然数m", "输入数")

　　n = n1

　　m = m1

　　If m < n Then

　　t = m: m = n: n = t

　　End If

　　r = m Mod 【n】

　　Do While (r<>0)

　　m = n

　　n = r

　　r = m Mod n

　　Loop

　　Print "最大公约数=", n

　　Print "最小公倍数= ", m1 * n1 / n

　　End Sub

　　相关推荐：

　　2018年全国计算机等级考试必做试题汇总(各科目)

　　2018年全国计算机等级考试复习知识点汇总(各科目)

　　2018全国计算机等级考试备考经验及应试技巧汇总

　　历年真题汇总|考试吧策划：2018年计算机等级考试报考指南