VB上机练习题
VB上机练习题
1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。
单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。
单击C3按钮结束程序运行。
Private Sub Command1_Click()Text1.Font = 黑体End SubPrivate Sub Command2_Click() Text1.ForeColor = vbRedText2.ForeColor = vbBlue End SubPrivate Sub Command3_Click() End End Sub2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。
鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbRed End SubPrivate Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbGreen End SubPrivate Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End SubPrivate Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。
国家二级VB机试(上机操作)模拟试卷300(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷300(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单，其中“设置”菜单项为灰色(不可用)，如图3—137所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其最大刻度为100，最小刻度为0；再画两个单选按钮，名称分别为Option1、Option2，标题分别为“最大值”、“最小值”，且都未选中。
再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图3—138所示)。
请编写适当的事件过程，使得程序运行时，单击“最大值”单选按钮，则滚动条上的滚动框移到最右端；单击“最小值”单选按钮，则滚动框移到最左端。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sji2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，利用菜单设计器按表4—81在窗体上建立一个二级菜单。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准：EXE”工程，按表4—82在窗体中画出控件并设置其相关属性。
步骤2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。
参考代码：Private Sub Option1_Click( )HScroll1．Value=100End SubPrivate Sub Option2_Click( )HScroll1．Value=0End Sub步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需按题目要求利用VB菜单设计器建立一个二级菜单。
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上机综合测试题（一）一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。
三个复选框check1,check2和check3，如图设置属性。
要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分）二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分）三、请设计如下图所示窗体界面。
运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。
请编写程序完成上述功能。
（40分）答案：一、界面设计------10分Private Sub Check1_Click()Text1.FontBold = Check1.Value ------5分End SubPrivate Sub Check2_Click()Text1.FontItalic = Check2.Value------5分End SubPrivate Sub Check3_Click()Text1.FontUnderline = Check3.Value ------5分End Sub二、界面设计------10分Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分For i = 0 To 19------3分a(i) = Int(Rnd * 1001) ------3分sum = sum + a(i) ------3分Next i ------2分aver = sum / 20 ------3分Print aver ------2分End Sub三、界面设计------10分Dim n%------2分Private Sub Form_Load()End SubPrivate Sub Option1_Click()------2分Dim i% ------2分n = Val(Text1) ------3分m = 1 ------1分For i = 1 To n ------2分m = m * i -----2分Next i ------2分Text2 = m ------2分End SubPrivate Sub Option2_Click()------1分Dim i% ------2分m = 1 ------1分For i = 1 To n + 2 ------2分m = m * i ------2分Next i ------2分Text2 = m ------2分End SubVB上机综合测试题（二）1．设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占最终成绩的30%，考试成绩占最终成绩的70%；单击“清除”按钮，清除文本框中的内容；单击“退出”按钮，关闭窗口。
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上机考试试题VB（Visual Basic）是一种非常流行的编程语言，在计算机科学领域广泛应用。
VB语言的开发环境是Visual Studio，该软件是微软公司开发的一个集成开发环境（IDE），是用来开发Windows 应用程序的集成包。
VB上机考试是衡量学生能力的一种重要方式之一，它可以考察学生掌握VB语言的基础知识和编程能力。
下面，我们列举一些常见的VB上机考试试题。
1. 编写一个求和程序，要求实现输入两个数值，计算它们的和并将结果输出。
提示：可以使用文本框（TextBox）和按钮（CommandButton）控件。
2. 编写一个计算器程序，要求实现基础的加、减、乘、除四则运算。
提示：可以使用文本框和按钮控件以及一些逻辑运算符和条件语句。
3. 编写一个登录界面，要求实现输入用户名和密码，验证用户信息是否正确。
如果验证通过，则进入主界面；如果验证失败，则提示用户重新输入。
提示：可以使用文本框和按钮控件以及一些判断语句和布尔运算符。
4. 编写一个学生管理系统，要求实现添加、删除和修改学生信息的功能。
提示：可以使用列表框（ListBox）和按钮控件以及一些数组和循环语句。
5. 编写一个简单的冒泡排序程序，要求实现对一组数字进行排序。
提示：可以使用文本框和按钮控件以及一些数组和循环语句。
这些试题都是比较基础的，但是涵盖了VB语言的许多核心概念和技术。
在实际应用中，我们还可以根据自己的需求增加一些拓展性的试题，比如实现文件操作、网络连接、多线程等等。
总的来说，VB上机考试是一种有效的评估学生编程能力的方式，它可以让学生在实践中巩固和应用所学知识，提高自己的技能水平。
我们希望大家能够通过VB上机考试，更好地掌握编程技能，为未来的职业发展打下坚实的基础。
全国计算机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中的设置建立菜单项。
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上机考试题库及答案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上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。
组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。
运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。
再画两个标题分别为“椭圆”和“圆”的命令按钮。
如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。
窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。
程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。
运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。
最后程序按原文件名存盘。
VB上机考试 习题以及答案
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load() Label1.BorderStyle = 1Label1.Alignment = 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenLabel1.Caption = X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
vb试题及答案上机
vb试题及答案上机1. 编写一个VB程序，计算并输出1到100之间所有奇数的和。
答案：```vbDim sum As Integer = 0For i As Integer = 1 To 100If i Mod 2 <> 0 Thensum += iEnd IfNextConsole.WriteLine("1到100之间所有奇数的和为：" & sum)```2. 编写一个VB程序，实现输入一个字符串，然后输出该字符串的反转。
答案：```vbDim inputString As String = Console.ReadLine()Dim reversedString As String = StrReverse(inputString) Console.WriteLine("反转后的字符串为：" & reversedString)```3. 编写一个VB程序，判断一个整数是否为素数，并输出结果。
答案：```vbDim number As Integer = Convert.ToInt32(Console.ReadLine()) Dim isPrime As Boolean = TrueIf number > 1 ThenFor i As Integer = 2 To number / 2If number Mod i = 0 ThenisPrime = FalseExit ForEnd IfNextElseisPrime = FalseEnd IfIf isPrime ThenConsole.WriteLine("该数是素数")ElseConsole.WriteLine("该数不是素数")End If```4. 编写一个VB程序，实现一个简单的计算器，可以进行加、减、乘、除运算。
答案：```vbDim num1 As Double = Convert.ToDouble(Console.ReadLine("请输入第一个数："))Dim num2 As Double = Convert.ToDouble(Console.ReadLine("请输入第二个数："))Dim operation As String = Console.ReadLine("请输入运算符（+、-、*、/）：")Select Case operationCase "+"Console.WriteLine("结果为：" & num1 + num2)Case "-"Console.WriteLine("结果为：" & num1 - num2)Case "*"Console.WriteLine("结果为：" & num1 * num2)Case "/"If num2 <> 0 ThenConsole.WriteLine("结果为：" & num1 / num2)ElseConsole.WriteLine("除数不能为0")End IfCase ElseConsole.WriteLine("无效的运算符")End Select```5. 编写一个VB程序，实现一个简单的学生信息管理系统，可以添加、删除、查询学生信息。
国家二级VB机试(上机操作)模拟试卷304(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷304(题后含答案及解析)题型有：1.jpg />(2)在名称为Form1的窗体上画一个名称为Label1、标题为“口令”的标签；画一个名称为Text1的文本框；再画三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。
程序运行时，在Text1中输入若干字符，单击“隐藏口令”按钮，则只显示同样数量的“*”，如图3—157(b)所示；单击“显示口令”按钮，则显示输入的字符，如图3—157(a)所示，单击“重新输入”按钮，则清除Text1中的内容，并把光标定位到Text1中。
要求：请画出所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”按钮、“隐藏口令”按钮的事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，画出控件并设置相应属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：在代码编辑窗口，分别编写三个按钮的单击事件过程。
参考代码：Private Sub Command1_Click( )Text1．PasswordChar=““End SubPrivate Sub Command2_Click( )Text1．PasswordChar=“*”End SubPrivate Sub Command3_Click( )Text1=““Text1．SetFocusEnd Sub步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需要在窗体上画出控件并相应设置其属性即可。
第2小题：PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空，使用SetFocus方法可使文本获得焦点。
vb上机考试试题
vb上机考试试题一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property2. VB中的“Option Explicit”语句的作用是什么？A. 定义变量类型B. 强制显式变量声明C. 隐藏变量D. 设置变量的作用域3. 在VB中，以下哪个控件用于显示图像？A. LabelB. TextBoxC. PictureBoxD. ComboBox4. 如果要为VB中的按钮控件添加点击事件，应该使用哪个事件？A. ClickB. DoubleClickC. MouseDownD. KeyPress5. 在VB中，以下哪个函数可以用于将字符串转换为数值？A. Str()B. Val()C. Chr()D. Asc()6. VB中的“Select Case”语句最多可以有多少个Case分支？A. 1B. 2C. 10D. 无限制7. 在VB中，以下哪个属性用于设置控件是否可见？A. VisibleB. EnabledC. CaptionD. Text8. 当在VB中创建一个数组时，数组的下标默认从哪个数字开始？A. 0B. 1C. 100D. -19. 在VB中，以下哪个方法用于获取文本框中输入的文本？A. TextB. CaptionC. ValueD. Name10. VB中的“With”语句用于什么目的？A. 初始化变量B. 创建对象C. 引用对象的多个属性或方法D. 定义数据类型二、填空题（每空3分，共30分）11. 在VB中，使用________关键字可以创建一个类。
12. 如果要让一个变量在整个应用程序中都可访问，应该使用________关键字声明它。
13. 在VB中，一个事件处理程序的名称通常由触发事件的控件名称、一个下划线和一个________组成。
14. 要循环遍历一个数组中的所有元素，可以使用________循环。
国家二级VB机试(上机操作)模拟试卷157(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷157(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签的外观如图所示。
注意：存盘时必须存放在考生文件夹下，上程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动涮整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Commahd1、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。
在考生文件夹下有两个图标文件，其名称分别为“Misc34．ico”和“Misc37．ico”。
程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Misc37．ieo文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34．ico文件，如图所示)；单击“清除”按钮则清除图像框中的图案，请编写相应控件的Click事件过程，实现上述功能。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置其属性，如图3．32所示。
程序中用件的控件及属性见表3．47。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】步骤1：建立界面，添加相应的控件并设置控件的属性。
程序中涉及的控件及属性见表3．48。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub Command1_Click( ) Image1．Picture＝LoadPicture(App．path＆”＼MiSC 34．iCO”)’加载图片End Sub Private Sub Command2_Click( ) Imagel．Picture＝LoadPicture(App．path＆”＼Misc37．ico”) End Sub Private Sub Command3_Click( ) Set Image1．Picture＝Nothing’清除Imagel中的图片End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
国家二级VB机试(上机操作)模拟试卷144(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷144(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为“请输入密码”，添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使得在输入密码时，文本框中品永为“*”字符，此外再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。
注意：存盘时必须存放在考生文件火下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框”，每单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。
要求在程序中不得使用变量，每个事什过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置其属性，如图3．11所示。
程序中用到的控件及属性如表3．7所示。
步骤2：调试并运行程序，效果如图3．12所示。
步骤3：关闭程序后按题目要求保存T程和窗体文件。
(2)【操作步骤】步骤1：新建一个窗体，按照题日要求建立控什并设置其属性，如图3．13所示。
步骤2：打开代码编辑窗口，存指定位置编写如下代码。
参考答案Private Sub Form_CliCk( ) Form1．Print”单击窗体”End Sub Private Sub P1_Click( ) P1．Print”单击图片框”End Sub 步骤3：凋试并运行程序，关闭程序后按题目要求存盘。
简单应用题2．(1)在考生文件央下有一个工程文件sit3．vbp，窗体中柯两个图片框，名称分别为P1、P2，其中的图片内容分别是-架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为“发射”，还有一个计时器，名称为Timer1。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
V B上机练习题Company number：【0089WT-8898YT-W8CCB-BUUT-202108】1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。
单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。
单击C3按钮结束程序运行。
Private Sub Command1_Click() = 黑体End SubPrivate Sub Command2_Click() = vbRed= vbBlue End SubPrivate Sub Command3_Click() End End Sub2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。
鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) = vbRed End SubPrivate Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) = vbGreen End SubPrivate Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) = "在窗体上按下了鼠标"End SubPrivate Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) = "在窗体上抬起了鼠标" End SubText2Text13.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。
Private Sub Command1_Click() = ""= ""= ""End SubPrivate Sub Command2_Click() End End SubPrivate Sub Text1_Change()==End Sub注：“字体不同”可以在属性那调“Font”4.设计一个窗体，如上图所示。
当单击某个命令按钮时，对文本框中的文字完成相应的设置。
其中，每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅，“粗体”按钮将使文本框中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线，“删除线”按钮将使文本框中的文字加删除线。
Private Sub Command1_Click() = + 5End SubPrivate Sub Command2_Click() = - 5End SubPrivate Sub Command3_Click() = TrueEnd Sub Private Sub Command4_Click() = TrueEnd SubPrivate Sub Command5_Click() = TrueEnd SubPrivate Sub Command6_Click() = TrueEnd Sub5.设计一个窗体，如下图所示。
程序中将π定义成符号常量（用Const ）,运行时，输入底面半径r和圆柱高h，然后单击“计算”命令按钮，在相应文本框中显示计算结果。
运算结果为只读。
Private Sub Command1_Click()Const pi =h = Val(Text1)r = Val(Text2)= pi * r ^ 2= 2 * pi * r * h= pi * r ^ 2 * hEnd Sub6.设计界面如上图所示。
单击“出题”按钮，产生任意两个【1，100】之间的随机整数于Text1、 Text2中，单击“计算”按钮，求两个数的和。
运算结果为只读。
Private Sub Command1_Click() = Int(100 * Rnd + 1)= Int(100 * Rnd + 1)End SubPrivate Sub Command2_Click() a = Valb = Val = a + b End Sub7．设计一个数字钟表程序，界面如图所示。
运行时单击窗体，显示当前的年月日星期及时间。
Private Sub Form_Click()= Year(Now)= Month(Now)= Day(Now)= Weekday(Now)= TimeEnd Sub8．设计一个数学函数程序，界面如图所示。
程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。
文本框始终处于选中状态。
Private Sub Command1_Click() = Abs(Val(Text1))= 0= LenEnd SubPrivate Sub Command2_Click() = Sqr(Val(Text1))= 0= LenEnd SubPrivate Sub Command3_Click() = Fix(Val(Text1)) = 0= LenEnd SubPrivate Sub Command4_Click() = Int(Val(Text1))= 0= LenEnd SubPrivate Sub Command5_Click() = Sgn(Val(Text1))= 0= LenEnd Sub9．设计一工程，在文本框中输入一整数，单击“判断”按钮，判断能否同时被3、5、7整除，若能用MsgBox函数显示“能同时被3、5、7整除”，否则显示“不能整除”。
Private Sub Command1_Click()a = Val(Text1)If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 ThenMsgBox "能同时被3、5、7整除"ElseMsgBox "不能整除"End IfEnd Sub10．设计一个计算购书价钱的程序，界面如下图所示。
为了提高运行速度，设置Tab键序，使得输入完单价后，焦点定位到输入数量文本框中。
单击“计算总价”或用访问键，算出总价。
总价文本框要求为只读属性。
完成相应功能。
Private Sub Command1_Click()a = Val(Text1)b = Val(Text2)= a * bEnd SubPrivate Sub Command2_Click() EndEnd Sub11．设计一工程，界面如上图所示。
程序运行，单击“计算”，求出对应角度的三角函数的绝对值于文本框Text2中，同时要求选中文本框Text1内容，以便继续输入。
Private Sub Command1_Click()a = Val(Text1)b = a * / 180c = Abs(Sin(b))d = Abs(Cos(b))= & a & Space(10) & Format(c, "") _& Space(10) & Format(d, "") & vbCrLf= 0= LenEnd Sub12．设计一个程序，用户界面如下图所示。
程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。
Private Sub Command1_Click()a = Val(Text1)b = Val(Text2)c = Val(Text3)= a * b * cEnd Sub Private Sub Command2_Click() = ""= ""= ""= ""End Sub13．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。
Private Sub Command1_Click() a = Val(Text2)Select Case aCase 90 To 100h = "优秀"Case 80 To 89h = "良好"Case 70 To 79h = "中等"Case 60 To 69 h = "及格"Case 0 To 59h = "不及格"End Select"学号：" &"分数：" & a & Space(3) & h End Sub14．设计一个窗体Forml，界面如上图所示。
编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。
Private Sub Command1_Click() a = Val(Text1)= a ^ 2 * = 2 * a * End Sub15．设计一个程序，用户界面如下图所示。
程序运行后，单击Command1按钮，求出最大、最小数。
Private Sub Command1_Click()a = Val(Text1):b = Val(Text2):c = Val(Text3)If a < b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = t= a= cEnd Sub16．界面如下图所示。
编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，若能组成三角形在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。
Private Sub Command1_Click()a = Val(Text1):b = Val(Text2):c = Val(Text3)If a + b < c Or a + c < b Or b + c < a Or Abs(a - b) > c Or Abs(a - c) > b Or Abs(b - c) > a Then = "FALSE"Elseh = (a + b + c) / 2s = Sqr(h * (h - a) * (h - b) * (h - c))= Format(s, "")End IfEnd Sub17．设计一个程序运行界面如下图所示，将输入的三个不同数，按从小到大的顺序排列。