当前位置：文档之家 › 省二级VB编程题

省二级VB编程题

  • 格式：doc
  • 大小：295.50 KB
  • 文档页数：67

Vb编写程序题型一、基本操作题1、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。

窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“绿色”，标签上文字为“这里是一个标签”（5分）。

(2)编写事件过程，运行程序后，单击命令按钮，窗体的背景色改为绿色（5分）。

(3)编写事件过程，运行程序后，单击窗体，标签上显示“你单击了窗体”（5分）。

答案：Private Sub Command1_Click()Form1.BackColor = vbGreenEnd SubPrivate Sub Form_Click()Label1.Caption = "你单击了窗体"End Sub2、新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。

窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜色”（5分）。

(2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的高度（5分）。

(3)编写事件过程，运行程序后，单击标签，将窗体的背景色改为绿色（5分）。

答案：Private Sub Command1_Click()Form1.Height = Form1.Height + 200End SubPrivate Sub Label1_Click()Form1.BackColor = vbGreenEnd Sub3、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。

窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“隐藏”和“显示”，标签上文字为“可以隐藏的控件”（5分）。

(2)编写事件过程，运行程序后，单击“隐藏”按钮，标签不可见，单击“显示”按钮，标签重新可见（5分）。

(3)编写事件过程，运行程序后，单击窗体，窗体的标题栏上显示“隐藏/显示控件”（5分）。

答案：Private Sub Command1_Click()Label1.Visible = FalseEnd SubPrivate Sub Command2_Click()Label1.Visible = TrueEnd SubPrivate Sub Form_Click()Form1.Caption = "隐藏/显示控件"End Sub4、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1～3。

窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“关闭”，标签上的文字为“字体颜色”，三个单选钮上的文字分别为“红”、“绿”、“蓝”（5分）。

(2)编写事件过程，运行程序后，单击命令按钮可关闭窗体（5分）。

(3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字为红色、绿色或蓝色（5分）答案：Private Sub Command1_Click()Form1.HideEnd SubPrivate Sub Option1_Click()Label1.ForeColor = vbRedEnd SubPrivate Sub Option2_Click()Label1.ForeColor = vbGreenEnd SubPrivate Sub Option3_Click()Label1.ForeColor = vbBlueEnd Sub5、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。

窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“窗体标题”，标签上文字为“窗体颜色”（5分）。

(2)编写事件过程，运行程序后，单击命令按钮，窗体的标题栏上显示“Visual Basic考试”（5分）。

(3)编写事件过程，运行程序后，单击标签，窗体的背景色改为红色（5分）。

答案：Private Sub Command1_Click()Form1.Caption = "Visual Basic考试"End SubPrivate Sub Label1_Click()Form1.BackColor = vbRedEnd Sub6、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。

窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变大小”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。

(2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签的背景色改为绿色（5分）。

(3)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字内容改为“大小已经改变”，文字大小改为30(磅)（5分）。

答案：Private Sub Command1_Click()Label1.BackColor = vbGreenEnd SubPrivate Sub Command2_Click()Label1.Caption = "大小已经改变"Label1.FontSize = 30End Sub7、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1～3。

窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“关闭”，标签上的文字为“请选择学历”，三个单选钮上的文字分别为“硕士”、“本科”、“大专”（5分）。

(2)编写事件过程，运行程序后，单击命令按钮可关闭窗体（5分）。

(3)编写事件过程，运行程序后，分别单击三个单选钮，标签上的文字相应改变为“硕士学历”、“本科学历”或“大专学历”（5分）。

答案：Private Sub Command1_Click()Form1.HideEnd SubPrivate Sub Option1_Click()Label1.Caption = "硕士学历"End SubPrivate Sub Option2_Click()Label1.Caption = "本科学历"End SubPrivate Sub Option3_Click()Label1.Caption = "大专学历"End Sub8、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1～3。

窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“红色”，标签上的文字为“字体大小”，三个单选钮上的文字分别为“10”、“14”、“18”（5分）。

(2)编写事件过程，运行程序后，单击命令按钮可将标签文字改变为红色（5分）。

(3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字大小为10磅、14磅或18磅（5分）。

答案：Private Sub Command1_Click()Label1.ForeColor = vbRedEnd SubPrivate Sub Option1_Click()Label1.FontSize = 10End SubPrivate Sub Option2_Click()Label1.FontSize = 14End SubPrivate Sub Option3_Click()Label1.FontSize = 18End Sub9、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。

窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变字体”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。

(2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色（5分）。

(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的字体改为“黑体”（5分）。

答案：Private Sub Command1_Click()Label1.ForeColor = vbRedLabel1.Caption = "颜色已经改变"End SubPrivate Sub Command2_Click()Label1.FontName = "黑体"End Sub10、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。

窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变大小”和“改变字体”，标签上文字为“Visual Basic程序设计”，字体为宋体，标签可以自动调整大小以显示所有文字（5分）。

(2)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为28(磅)（5分）。

(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为黑体，文字内容改为“这是黑体”（5分）。

答案：Private Sub Command1_Click()Label1.FontSize = 28End SubPrivate Sub Command2_Click()Label1.FontName = "黑体"Label1.Caption = "这是黑体"End Sub或者(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为楷体，文字内容改为“这是楷体”（5分）。

（提示：楷体的字体名称为“楷体_GB2312”。

）Private Sub Command2_Click()Label1.FontName = "楷体_GB2312"Label1.Caption = "这是楷体"End Sub（提示：楷体的字体名称为“楷体_GB2312”。

）11、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。

窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“显示”，将标签上的文字清除（5分）。

合集下载

江苏省计算机二级考试VB程序设计复习题

江苏省计算机二级考试VB程序设计复习题

江苏省计算机二级考试VB程序设计复习题一、填空题：（第一章Visual Basic程序设计概述）1、Visual Basic是一种面向_对象_的可视化程序设计语言，采取了__事件驱动__的编程机制。

2、在VB中工程文件的扩展名是_ Vbp ，窗体文件的扩展名是frm _，标准模块文件的扩展名是_ bas _。

3、执行“工程”菜单下的部件命令，可选择并添加ActiveX控件。

4、Visual Basic 6.0用于开发_ WINDOWS环境下的应用程序。

第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮，应该用_ Tabstop ___属性。

2、一个控件在窗体的位置由__ Left ___和_ top ___属性决定，其大小由__ height _和_ width _属性决定。

3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和_ enabled __属性为true，才能接受焦点。

4、设置控件背景颜色的属性名称是_ backcolor __。

5、所有控件都具有的共同属性是__ name __属性。

6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_ name和caption。

7、VB中的每个对象（控件）都有一组特征，这组特征称为_属性_，我们通过修改它可以控制对象的外观和操作。

8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_标准模块文件_文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。

9、VB有三种工作模式，分别是设计（Design）模式、_运行模式__和中断（Break）模式。

第三章1、一般可以使用____ Const ______关键字声明常量。

2、_ Variant _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。

3、变量的声明分为两种方法：_隐式声明__和__显示声明__。

安徽省vb省二级考试题目答案

安徽省vb省二级考试题目答案

安徽省vb省二级考试题目答案1. 题目：在Visual Basic中，如何创建一个窗体（Form）？答案：在Visual Basic中，创建一个窗体可以通过在IDE（集成开发环境）的“项目”窗口中右键单击“窗体”，然后选择“添加”并点击“新建窗体”来实现。

2. 题目：如何使用Visual Basic编写一个简单的循环，用于计算1到100的和？答案：可以使用For循环来实现这一功能。

例如：```Dim sum As Integer = 0For i As Integer = 1 To 100sum += iNext iMessageBox.Show("1到100的和为：" & sum.ToString())```3. 题目：在Visual Basic中，如何声明一个整型变量并赋值？答案：在Visual Basic中，声明一个整型变量并赋值可以通过以下方式实现：```Dim myInteger As Integer = 10```4. 题目：如何使用Visual Basic的If语句来判断一个数是否为偶数？答案：可以使用If语句结合Mod运算符来判断一个数是否为偶数： ```Dim number As Integer = 4If number Mod 2 = 0 ThenMessageBox.Show("这是一个偶数")ElseMessageBox.Show("这是一个奇数")End If```5. 题目：在Visual Basic中，如何使用数组存储一系列的值？答案：在Visual Basic中，可以使用数组来存储一系列的值。

例如，声明并初始化一个整型数组：```Dim numbers() As Integer = {1, 2, 3, 4, 5}```6. 题目：如何使用Visual Basic编写一个函数，该函数接收一个字符串参数并返回其反转后的字符串？答案：可以创建一个名为ReverseString的函数来实现这一功能： ```Function ReverseString(ByVal input As String) As String Dim reversed As String = ""For i As Integer = input.Length - 1 To 0 Step -1reversed &= input(i)Next iReturn reversedEnd Function```7. 题目：在Visual Basic中，如何使用事件处理程序来响应按钮点击事件？答案：可以为按钮的Click事件编写一个事件处理程序。

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

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

计算机二级vb考试题及答案一、选择题（每题2分，共20分）1. VB中，以下哪个选项不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 在VB中，以下哪个关键字用于声明常量？A. DimB. ConstC. LetD. Set答案：B3. 下列关于VB中的事件驱动编程描述正确的是：A. 程序执行顺序由事件决定B. 程序执行顺序由代码顺序决定C. 程序执行顺序由用户输入决定D. 程序执行顺序由系统决定答案：A4. 在VB中，如果要在窗体上显示文本，应该使用哪个控件？A. TextBoxB. ComboBoxC. LabelD. CheckBox答案：C5. VB中，以下哪个选项是正确的子程序声明？A. Sub MySub()B. Function MySub()C. Procedure MySub()D. Method MySub()答案：A6. 在VB中，以下哪个选项不是控制结构？A. If...Then...ElseB. For...NextC. Do...LoopD. Call答案：D7. VB中，以下哪个选项不是数组声明的正确方式？A. Dim arr(10) As IntegerB. Dim arr() As IntegerC. Dim arr(1 To 10) As IntegerD. Dim arr As Integer()答案：D8. 在VB中，以下哪个选项不是合法的变量名？A. myVarB. _myVarC. 123VarD. my$Var答案：C9. VB中，以下哪个选项是正确的循环结构？A. Do WhileB. While DoC. For ToD. Loop Until答案：A10. 在VB中，以下哪个选项不是合法的注释方式？A. ' 这是一个注释B. REM 这是一个注释C. // 这是一个注释D. /* 这是一个注释 */答案：D二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以定义一个类。

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

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

计算机二级考试VB练习题及答案计算机二级考试VB练习题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是店铺搜索整理的计算机二级考试VB练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!计算机二级考试VB练习题及答案1.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。

Private Sub Form_Click( )Dim m1, n1, m, n, r As Integern1 = InputBox("输入自然数n", "输入数")m1 = InputBox("输入自然数m", "输入数")n = n1m = m1If m<n p="" then<="">t = m: m = n: n = tEnd Ifr = m Mod nDo While r 【<>】 0m = nn = rr = m Mod nLoopPrint "最大公约数=", nPrint "最小公倍数= ", m1 * n1 / nEnd Sub2.下面是求100以内素数的程序。

Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod 【i】 = 0 Then tag = FalseNext iIf tag Then Print mNext mEnd Sub3.下面是求100以内素数的程序，下面说法正确的是(A)(单)Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod i = 0 Then tag = FalseNext iIf tag=true Then Print mNext mEnd SubA.tag为true时，表示m是素数B.tag为false时，表示m是素数C.语句m Mod i = 0，说明m是素数D.以上说法都不正确4.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。