1.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，

　　第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。

　　程序如下：(程序运行刚开始时，四个单选按钮都没有选中)

　　Private Sub Command1_Click( )

　　Text1.FontName = Iif(Option1.Value, "宋体", "黑体")

　　Text1.FontSize = Iif(Option3.Value, 8, 12)

　　End Sub

　　当程序运行时，先单击单选按钮option2，然后单击命令按钮command1，则文本框text1的变化效果是(B) (单)

　　A.字体设置为宋体

　　B.字体设置为黑体

　　C.字体大小设置为8号

　　D.字体大小设置为12号

　　2.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，

　　第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。

　　程序如下：(程序运行刚开始时，四个单选按钮都没有选中)

　　Private Sub Command1_Click( )

　　Text1.FontName = Iif(Option1.Value, "宋体", "黑体")

　　Text1.FontSize = Iif(Option3.Value, 8, 12)

　　End Sub

　　当程序运行时，先单击单选按钮option3，然后单击命令按钮command1，则文本框text1的变化效果是(C) (单)

　　A.字体设置为宋体

　　B.字体设置为黑体

　　C.字体大小设置为8号

　　D.字体大小设置为12号

　　3.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，

　　第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。

　　程序如下：(程序运行刚开始时，四个单选按钮都没有选中)

　　Private Sub Command1_Click( )

　　Text1.FontName = Iif(Option1.Value, "宋体", "黑体")

　　Text1.FontSize = Iif(Option3.Value, 8, 12)

　　End Sub

　　当程序运行时，先单击单选按钮option1，然后单击命令按钮command1，则文本框text1的变化效果是(A) (单)

　　A.字体设置为宋体

　　B.字体设置为黑体

　　C.字体大小设置为8号

　　D.字体大小设置为12号

　　4.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，

　　第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。

　　程序如下：(程序运行刚开始时，四个单选按钮都没有选中)

　　Private Sub Command1_Click( )

　　Text1.FontName = Iif(Option1.Value, "宋体", "黑体")

　　Text1.FontSize = Iif(Option3.Value, 8, 12)

　　End Sub

　　当程序运行时，先单击单选按钮option4，然后单击命令按钮command1，则文本框text1的变化效果是(D) (单)

　　A.字体设置为宋体

　　B.字体设置为黑体

　　C.字体大小设置为8号

　　D.字体大小设置为12号

　　5.在窗体中建立了一个名称为lstBooks的列表框，一个名称为txtItem的文本框，四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。

　　如下程序：

　　Sub Form_Load( )

　　lstBooks.AddItem "计算机文化基础"

　　lstBooks.AddItem "VB程序设计教程"

　　lstBooks.AddItem "操作系统"

　　End Sub

　　Sub cmdAdd_Click( )

　　lstBooks.AddItem txtItem

　　txtItem = ""

　　End Sub

　　对该程序说法不正确的是(D) (单)

　　A.窗体启动时，在列表框中有三个列表项目，依次为：计算机文化基础、VB程序设计教程、操作系统

　　B.单击cmdAdd命令按钮后，把文本框中的信息添加到列表框中

　　C.在列表框中添加列表项目的方法为additem方法

　　D.以上说法都不正确

　　6.在窗体中建立了一个名称为LSTBOOKS的列表框，一个名称为txtItem的文本框，四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。如下程序的功能是将修改后的项目送回列表框，替换原项目，实现修改：

　　Sub cmdModify_Ok_Click( )

　　LSTBOOKS.List【Lstbooks.lstindex】 = txtItem

　　txtItem = ""

　　End Sub

　　7.对以下程序说法不正确的是(C) (单)

　　Private Sub Combo1_LostFocus( )

　　flag = False

　　For i = 0 To Combo1.ListCount - 1

　　If Combo1.List(i) = Combo1.Text Then

　　flag = True

　　Exit For

　　End If

　　Next i

　　If Not flag Then

　　Combo1.AddItem Combo1.Text

　　End If

　　End Sub

　　A.当焦点离开组合框时组合框的LostFocus事件被触发

　　B.添加到组合框的新项目不能永久保存，下次运行该程序中看不到上次保存的项目，利用该事件过程能够将输入的新内容添加到组合框中，下次运行该程序中能够看到上次保存的项目

　　C.逻辑变量flag=true时，表示组合框的项目中有该输入新项目

　　D.逻辑变量flag=false时，表示组合框的项目中有该输入新项目

　　8.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：

　　Private Sub Command1_Click( )

　　If Check1.Value = 1 Then

　　List1.AddItem "品牌：松下"

　　List1.AddItem "数量：3台"

　　End If

　　If Check2.Value = 1 Then

　　If Option1.Value = True Then

　　List1.AddItem "操作系统：Windows 2000"

　　Else

　　List1.AddItem "操作系统：Windows 98"

　　End If

　　End If

　　End Sub

　　当窗体启动后，先选中检查框check1，然后单击命令按钮command1，运行效果为(A) (单)

　　A.列表框List1中的列表项目分别为：品牌：松下数量：3台

　　B.列表框List1中的列表项目分别为：操作系统：Windows 2000 操作系统：Windows 98

　　C.没有任何显示

　　D.以上都不正确

　　*9.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：

　　Private Sub Command1_Click( )

　　If Check1.Value = 1 Then

　　List1.AddItem "品牌：松下"

　　List1.AddItem "数量：3台"

　　End If

　　If Check2.Value = 1 Then

　　If Option1.Value = True Then

　　List1.AddItem "操作系统：Windows 2000"

　　Else

　　List1.AddItem "操作系统：Windows 98"

　　End If

　　End If

　　End Sub

　　当窗体启动后，先选中检查框check2(其中单选按钮option1被选中)，然后单击命令按钮command1，运行效果为(B)(单)

　　A.列表框List1中的列表项目分别为：品牌：松下数量：3台

　　B.列表框List1中的列表项目分别为：操作系统：Windows 2000 操作系统：Windows 98

　　C.列表框List1中的列表项目为：操作系统：Windows 2000

　　D.以上都不正确

　　53430.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：

　　Private Sub Command1_Click( )

　　If Check1.Value = 1 Then

　　List1.AddItem "品牌：松下"

　　List1.AddItem "数量：3台"

　　End If

　　If Check2.Value = 1 Then

　　If Option1.Value = True Then

　　List1.AddItem "操作系统：Windows 2000"

　　Else

　　List1.AddItem "操作系统：Windows 98"

　　End If

　　End If

　　End Sub

　　当窗体启动后，先选中检查框check2(其中单选按钮option2被选中)，然后单击命令按钮command1，运行效果为(B)(单)

　　A.列表框List1中的列表项目分别为：品牌：松下数量：3台

　　B.列表框List1中的列表项目为：操作系统：Windows 98

　　C.列表框List1中的列表项目为：操作系统：Windows 2000

　　11 .传值：形参得到的是实参的值，形参值的改变不会影响实参的值。在定义形参前加关键字Byval。√

　　12.以下利用SUB关键字定义的子过程Rate，其调用格式不正确的是(B) (单)

　　A.call Rate(12,56)

　　B.Rate(12,56)

　　C.Rate 12,56

　　D.以上A和C正确

　　13.如下程序运行后显示结果为(B) (单)

　　Public Temp As integer

　　Sub Form_Load( )

　　Dim Temp As Integer

　　Temp=10

　　Form1.Temp=20

　　Print Form1.Temp;"和";Temp

　　End Sub

　　A.10和20

　　B.20和10

　　C.10和10

　　D.20和20

　　14.以下对静态变量说法不正确的是(D) (单)

　　A.定义格式为：Static 变量名 [AS 类型]

　　B.在子过程名/函数名前加Static，表示该过程/函数体内局部变量全部都是静态变量

　　C.静态变量必须在过程体内定义

　　D.静态变量可以在窗体的"通用声明部"定义

　　15 .过程在自身定义的内部调用自己本身的结构称为递归。√

　　16.如下程序功能是求n的阶层：

　　Function fac(n As Integer) As Integer

　　If n = 1 Then

　　fac = 1

　　Else

　　fac = n * fac(n - 1)

　　End If

　　End Function

　　Sub Command1_Click( )

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

　　Print "fac(n)=";fac(n)

　　End Sub

　　以下说法不正确的是(D) (单)

　　A.若fac函数中If n = 1 Then fac = 1没有，仅有语句：fac = n * fac(n - 1) ，程序运行将会出错

　　B.若输入的n<=0 ，程序运行将会出错

　　C.若n=4，则输出结果为：fac(n)=24

　　D.以上说法都不正确

　　17.利用递归求最大公约数的程序为：

　　Public Function gcd(m As Integer, n As Integer) As Integer

　　If (m Mod n) = 0 Then

　　gcd =【n】

　　Else

　　gcd = gcd(n, m Mod n)

　　End If

　　End Function

　　Private Sub Form_Click( )

　　Print gcd(10, 4)

　　End Sub

　　18 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√

　　Private Sub Check1_Click( )

　　Text1.FontBold = Not Text1.FontBold

　　End Sub

　　*19 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√

　　Private Sub Check1_Click( )

　　Text1.FontItalic = Not Text1.FontItalic

　　End Sub

　　*20 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√

　　Private Sub Check1_Click( )

　　Text1.FontUnderline = Not Text1.FontUnderline

　　End Sub

　　相关推荐：

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

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

　　2018计算机等级考试报名时间|各地报名入口|报名条件

　　2018年全国计算机等级考试时间|教材目录（2018年版）

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

　　报名方法|考试内容|考试大纲|2018计算机等级考试科目

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