(完整版)VB练习题(上机)含答案
第一部分1在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值”)。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!Ran domizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为”转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As Stri ng, ch1 As Stri ng, i% ch = Text1For i = 1 To Len( ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i,1))Elsechi = chi + UCase(Mid(ch, i, 1))End IfNext iTextl = Textl + vbCrLfTextl = Text1 + ch1End Sub3在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值”)。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0〜1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
Private Sub MyCmd1_Click()Dim a%(29), i%, max%Ran domizeFor i = 0 To 29a(i) = Int(Rnd * 1001)Next imax = a(0)For i = 1 To 29If a(i) > max The n max = a(i)Next iPrint maxEnd Sub4请设计如下图所示窗体界面。
程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。
请编写适当的事件过程，完成上述功能。
Private Sub Comma nd1_Click()If Optio nl.Value = True The nTextl.FontName ="宋体”ElseText1.FontName ="隶书”End IfIf Check1.Value = 1 The nText1.Fo ntUn derli ne = TrueElseText1.Fo ntUn derli ne = FalseEnd IfIf Check2.Value = 1 The nText1.F on tItalic = TrueElseText1.Fo ntItalic = FalseEnd IfEnd Sub5在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为”对齐方式"、”字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为左对齐”、”居中”、"右对齐”，名称分别为Opt1、Opt2、Opt3 ;在Fm2框架中添加两个单选按钮，标题分别为”宋体"、”黑体”，名称分别为Opt4、Opt5。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。
Private Sub Opt1_Click()If Opt1 Then Textl.Alignment = 0End SubPrivate Sub Opt2_Click()If Opt2 Then Text1.Alignment = 2End SubPrivate Sub Opt3_Click()If Opt3 Then Text1.Alignment = 1End SubPrivate Sub Opt4_Click()If Opt4 Then Text1.FontName ="宋体"End SubPrivate Sub Opt5_Click()If Opt5 Then Text1.FontName ="黑体"End Sub6请设计如下图所示窗体界面。
运行程序时，先向左侧文本框中输入一个不超过10的正整数, 然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。
请编写程序完成上述功能。
Dim n%Private Sub Form_Load()End SubPrivate Sub Optio n1_Click()Dim i%n = Val(Text1)m = 1For i = 1 To nm = m * iNext iText2 = mEnd SubPrivate Sub Optio n2_Click()Dim i%m = 1For i = 1 To n + 2m = m * iNext iText2 = mEnd Sub7在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。
程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击”统计"命令按钮, 统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数，统计结果在标签Label3中显示。
Private Sub Comma nd1_Click()Dim i%, n%For i = 1 To Len( Text1)If Mid(Text1, i, 1) = Text2 Then n = n + 1 Next iLabel3 = nEnd SubPrivate Sub Cmd1_Click() Dim ch As Stri ngFor i = Len( Txt1) To 1 Step -1 ch = ch + Mid(Txt1, i, 1) Next iIf Txt1 = ch Then Print Txt1 + " ElsePrint Txt1 + " End If End SubPrivate Sub Comma nd1_Click() Dim i%, sum% For i = 0 To 200If i Mod 3 = 0 Or i Mod 7 = 0 The n sum = sum + i Next i Textl = sum End SubPrivate Sub Text1_Cha nge()End Sub是回文"不是回文" End Sub8在窗体上添加一个文本框和一个命令按钮。
程序运行后，单击命令按钮，即可计算出 200范围内能被3或7整除的所有整数的和，并显示在文本框中。
程序运行界面如下图所示。
9请设计如下图所示界面（文本框名称为：Txt1 ,按钮名称为：Cmdl ）。
程序运行时在文本框 中输入字符串，点击命令按钮，判断文本框中的字符串是否是回文， 将判断结果显示在窗体上。
所谓回文是指字符串正序和逆序的结果相同，如“ aBCCBa 是回文，“aBCcBa'不是回文。
End Sub10编程实现求Sum 1 1 1 1—(n为小于等于20的整数)。
1! 2！3！n!程序运行界面如下图所示。
程序运行时，在文本框中输入n的值，点击“计算”命令按钮，将计算结果显示在标签上。
Private Sub Comma nd1_Click()Dim i%, m As Long, sum As Double n = Val(Text1) m = 1For i = 1 To nm = m * isum = sum + 1 / mNext iLabel2 = "sum=" & sumEnd SubPrivate Sub Form_Load()End Sub第二部分1已知在同一个笼子里有总数M只鸡和兔，鸡和兔的总脚数为N只，编程求出鸡和兔各有多少只。
要求：程序运行后，在两个文本框中分别输入M和N的值，单击计算”命令按钮，在两个标签框中分别输出鸡和兔的数量。
程序运行界面如下图。
提示：NA 2XM的偶数。
Private Sub Comma nd1_Click()m = Val(Text1)n = Val(Text2)If n Mod 2 <> 0 The nMsgBox ("脚数必须为偶数")Text2 =""Text2.SetFocusElsey = n / 2 - mIf y < 0 The nMsgBox ("脚数必须>=只数的2倍，请重新输入")Text2 =""Text2.SetFocusElsex = m - yLabel3 = xLabel4 = yEnd IfEnd IfEnd SubPrivate Sub Form_Load()End Sub2若一个3位正整数中各位数字的立方和等于该数字本身，则该数称之为水仙花数”。
例如153是水仙花数，因为153 = 1*1*1 + 5*5*5 + 3*3*3 。
编程求出100〜999之间所有的水仙花数”。
要求：程序运行后，单击查找”按钮，在窗体上显示找到的水仙花数”。
程序运行界面如下图。
Private Sub Comma nd1_Click()Print"水仙花数：”;For i = 100 To 999X1 = i Mod 10 '分离出个位数X2 = (i Mod 100) \ 10 '分离出十位数x3 = i \ 100 '分离出百位数If i = X1 A 3 + X2 A 3 + x3 A 3 The n Print i;Next iEnd SubPrivate Sub Form_Load（）End Sub3编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩（0〜100的整数）,并在左边图片框中输出（一行5个成绩），并在右边图片框中输出平均分和及格的人数，程序运行界面如下图。
Private Sub Comma nd1_Click()Dim a(1 To 20) As Integer, i%, n%Picture1.ClsPicture2.ClsFor i = 1 To 20a(i) = Int(Rnd * 101)Picturel.Pri nt a(i);If i Mod 5 = 0 Then Picturel.PrintIf a(i) >= 60 The n n = n + 1Sum = Sum + a(i)Next iPicture2.Print "平均分：";Sum / 20Picture2.Print;"及格人数：";nEnd SubPrivate Sub Picture2_Click()End Sub4编写程序实现：程序运行时，单击窗体则显示如下图所示的图案。
vb上机题库及答案
vb上机题库及答案【篇一：vb期末考试上机题编程答案】xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程，编写求某一自然数因子和的程序。
Vb操作题题库(含答案)
VB填空题:1、Visual Basic 6.0分为3种版本，这3种版本是______、______和______。
其中，最完整的是______。
答案：1：学习版#专业版#企业版2：学习版#专业版#企业版3：学习版#专业版#企业版4：企业版知识点：VB知识点/第一章2、可以通过______快捷键或______快捷键退出Visual Basic。
答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知识点：VB知识点/第一章3、传统的程序设计语言主要是面向______的，而现在涌现出的许多可视化程序设计语言，如Visual Basic主要是面向______进行程序设计的。
答案：1：过程#问题2：对象知识点：VB知识点/第一章4、在面向对象程序设计中，对象是由______和______组成的概念。
答案：1：代码#数据2：代码#数据知识点：VB知识点/第一章5、Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在______、______状态或______状态。
答案：1：设计#中断#运行#设计状态#中断状态#运行状态2：设计#中断#运行#设计状态#中断状态#运行状态3：设计#中断#运行#设计状态#中断状态#运行状态知识点：VB知识点/第一章6、在设计模式下，工程中的某个窗体没有出现，可通过双击______窗口中的相应窗体名来使之出现。
答案：1：工程资源管理器知识点：VB知识点/第一章7、Visual Basic开发环境中，当属性窗口在界面上末出现时，可使用______菜单中的______选项让它显示出来。
答案：1：视图2：属性窗口知识点：VB知识点/第一章8、在属性窗口中，属性显示方式分为两种，即按______顺序和按______顺序，分别通过单击相应的按钮来实现。
答案：1：字母#分类2：字母#分类知识点：VB知识点/第一章9、菜单命令中有"…"标记表示该命令是一个______的命令。
国家二级VB机试(上机操作)模拟试卷267(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷267(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．在考生文件夹下有一个数据库文件“samp1．accdb”，里边已建立了两个表对象“tGrade”和“tStudent”，同时还存在一个Excel文件“tCourse．xlsx”。
请按以下操作要求，完成表的设计。
(1)将Excel文件“tCourse．xlsx”链接到“samp1．accdb”数据库文件中，链接表名称不变。
要求：数据中的第一行作为字段名。
(2)将“tGrade表中隐藏的列显示出来。
(3)将“tStudent”表中“政治面貌”字段的默认值属性设置为“团员”，并将该字段在数据表视图中的显示标题改为“政治面目”。
(4)设置“tStudent”表的显示格式，使表背景颜色为主题颜色的“橄榄色，强调文字颜色3，深色50％”，文字颜色为标准色中的“黄色”、字号为10号。
(5)将北京五中毕业学生的学号第3、4位改为“09”。
(6)建立“tGrade”和“tStudent”两表之间的关系。
正确答案：(1)【操作步骤】步骤1：单击“外部数据”选项卡下“导入并链接”组中的“Excel”按钮，打开“获取外部数据－Exce电子表格”对话框，单击“浏览”按钮，在考生文件夹找到要导入的“tCourse．xlsx”文件，单击“打开”按钮，选择“通过创建链接表来链接到数槲源”单选框，单击“确定”按钮，如图3．215所示。
步骤2：单击“下一步”按钮，勾选“第一行包含列标题”复选框，单击“完成”按钮，如图3．216所示。
(2)【操作步骤】步骤1：右键单击“tGrade”表对象，从弹出的怏捷菜单中选择“打开”命令。
步骤2：在任一字段名称位置右击，选择“取消隐藏字段”命令，在打开的“取消隐藏列”对话框中勾选“成绩”复选框，单击“关闭”按钮，如图3．217所示。
步骤3：按Ctrl＋S保存修改，关闭数据表视图。
VB上机试题及答案
上机操作练习题1．某数组有20个元素,其值为随机产生的两位整数。
现要求将前10个元素与后10个元素对换。
即第1个元素与第20个元素互换,第2个数与第19个元素互换，…,第10个元素与第11个元素互换.在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer，j as integer, t as integerPrivate Sub Form_Load(）ShowPrint "原始数组是：”RandomizeFor i = 1 To 20a(i) = Int（Rnd ＊90）+ 10Print a(i）；If i Mod 10 = 0 Then PrintNext iPrintPrint ”现在数组是：”For i = 1 To 10j = 21 - it = a（i）：a(i）= a(j）：a(j) = tNext iFor i = 1 To 20Print a（i)；If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中"注意:1)如果数组中存在多个与该数相同的元素,每一个都能删除；2）能实现多次删除Private Sub Form_Load（）ShowReDim a（9）As Integerm = 1Print ”原来数组为:”For i = 0 To 9a(i) = InputBox(”请输入第”＆m ＆"个数：”）Print a(i)；m = m + 1Next iPrintn = InputBox(”查找的数是："）i = 0：flag = FalseDoIf a(i) = n Thenj = i：flag = TrueFor k = j To UBound（a) - 1a（k）= a（k + 1)Next kReDim Preserve a(UBound(a) - 1)i = i - 1End Ifi = i + 1Loop While (i <= UBound（a）)If flag = False ThenMsgBox n ＆"不在该数组中”ElsePrint ”删除”＆n ＆"后的数组是：”For i = 0 To UBound(a）Print a(i）；Next iEnd IfEnd Sub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
全国计算机VB上机题库及答案(全)
全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料：PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。
窗体的标题为"按钮窗口"。
运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
图1【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。
表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。
程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
图2【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。
步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。
第5套VB上机题
第5套VB上机题参考程序如下：Private Sub HScroll1_Scroll() '拖动水平滚动条时Timer1.Interval = HScroll1.Value '定时器时间间隔为水平滚动条的值End SubPrivate Sub Timer1_Timer()Label1.Caption = Text1.Text '标签的标题自动为文本框中字符Label1.Left = Label1.Left - 100 '标签左移100twipIf Label1.Left < -1000 Then Label1.Left = 10000 '重置Left＝10000 End Sub参考程序如下：Private Sub Command1_Click()Dim n As Integer, f As Integer, i As Integer, s As IntegerFor n = 101 To 200 Step 2 '对101 ~200 之间的每一个非偶数的数判断f = 1 'f为特征变量，可以理解为对每一个待判定的数假先设为是素数For i = 2 To Sqr(n)If n Mod i = 0 Thenf = 0: Exit For '待判定的数能被i整除，所以没必要继续对其判断了，改f值为0，跳出循环End IfNext iIf f = 1 Then s = s + n '如果f的值仍然为1，说明n不能被所有i整除，所以n是素数Next nText1.Text = sEnd SubPrivate Sub Command2_Click()Call putdata("kssj.dat", Text1.Text)End Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
VB练习题(上机)含答案
VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
vb练习题(含答案)
___B___ 。
A ． 设计流程和编写代码
B． 设计界面和编写代码
C． 设计算法和编写代码
D． 设计程序和编写代码
44．在 VB 6.0 中， 12345& 的数据类型是（ B）
A ． 整数型
B ． 长整数型 C． 字符常数 D． 双精度常数
45．在 VB6.0 中，语句 Dim M1#,Abc,Xyz As Single 定义的 M1 、 Abc 和 Xyz 的类型分别是（ D ）
19、若要执行下列程序段后窗体上显示＂红＂字，则
x 可取的值为：
Select case int(x/10)
case2,4,6,8
print" 黄 "
case1,3,5,7,9
print" 绿 "
case else
print" 红 "
end select
(A)27
(B)38
(C)10
(D)5( 对 )
(A) 必须是字母开头，不能是数字或其他字符
(B) 不能是 VB 的保留字
(C) 可以包含字母、数字、下划线和标点符号 (对 )
(D) 不能超过 255 个字符
15、以下变量名中， ______是不符合 VisualBasic 的命名规范的。
(A)Abc901
(B)_mnu_Open_234( 对 )
A. 字符串类型
B. 日期类型
C. 逻辑类型
D. 指针类型
8、表达式 Left( “Visual ”,3)+Lcase( “AB ”)的值是？（ C）
A. visAB
B. VisAB
C. Visab
D. ualab
vb上机考试题库及答案86套
vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。
- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。
- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。
- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。
- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。
4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。
- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。
（） - 答案：错误。
应该使用“==”符号进行比较。
- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。
（）- 答案：正确。
6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。
”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。
vb考试试题及答案解析
vb考试试题及答案解析**VB考试试题及答案解析**一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项不是基本数据类型？A. IntegerB. StringC. DoubleD. Object**答案：D****解析：** 在VB中，Integer、String和Double都是基本数据类型，而Object是一个引用数据类型。
2. VB中哪个函数用于将字符串转换为数值？A. Str()B. Val()D. CStr()**答案：B****解析：** Val()函数用于从字符串的开始处起，取尽可能多的字符，直到出现非数值字符，然后将这部分字符串转换为数值。
3. 在VB中，以下哪个是正确的循环结构？A. for...nextB. while...end whileC. do...loopD. All of the above**答案：D****解析：** VB支持多种循环结构，包括for...next、while...wend以及do...loop。
4. VB中哪个关键字用于声明一个过程？A. FunctionC. PropertyD. Both A and B**答案：D****解析：** 在VB中，Sub和Function都是用来声明过程的关键字，其中Sub用于无返回值的过程，Function用于有返回值的过程。
5. 下列哪个选项不是VB中的控件事件？A. ClickB. LoadC. MouseEnterD. Open**答案：D****解析：** Click、Load和MouseEnter都是VB中常见的控件事件，而Open是文件操作的语句，不是事件。
6. 在VB中，哪个关键字用于声明数组？A. DimB. ReDimC. Both A and BD. None of the above**答案：C****解析：** Dim用于声明数组，而ReDim用于重新定义数组的大小。
7. VB中哪个函数用于获取当前日期？A. Now()B. Date()C. Time()D. Both A and B**答案：D****解析：** Now()和Date()都可以获取当前日期，Now()返回的是日期和时间，而Date()只返回日期。