VB上机实验题

合集下载

国家二级VB机试(上机操作)模拟试卷83(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷83(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷83(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1.请根据以下各小题的要求设计’Visual Basic应用程序(包括界面和代码)。

(1)在名称为Forml、标题为“框架”的窗体上画一个名称为Framel,且没有标题的框架。

框架内含有两个单选按钮,名称分别为Opt1和Opt2、标题分别为“字体”、“大小”,如图3—163所示。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sitl.frm。

(2)考生文件夹下的工程文件sjt2.vbp 中有一个由直线Linel、L,ine2和L,ine3组成的三角形,直线Linel、Line2和Line3的坐标值见表3—4:要求画一条直线Line4以构成三角形的高,且该直线的初始状态为不可见。

再画两个命令按钮,名称分别是Cmdl、Cmd2,标题分别为“显示高”、“隐藏高”,如图3—164所示。

请编写适当的事件过程,使得在运行时,单击“显示高”按钮,则显示三角形的高;单击“隐藏高”按钮,则隐藏三角形的高。

注意:要求程序中不得使用变量,每个事件过程只能写一条语句。

不得修改已经存在的控件,最后将修改后的文件按原文件名存盘。

正确答案:第1小题【操作步骤】步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。

步骤2:按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1:打开本题工程文件sjt2.vbp,在窗体中按要求画出控件并设置属性。

步骤2:打开代码编辑窗口,编写命令按钮的Click事件过程。

参考代码:Prirate Sub Cmdl C1ick( ) Line4.Visible=TrueEnd SubPrirate Sub Cmd2 Ctick( ) Line4.ViSible=FalSeEnd Sub步骤3:按要求将文件保存至考生文件夹中。

VB考试练习题(上机操作)

VB考试练习题(上机操作)

第一部分1 在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值")。

程序运行后,单击命令按钮完成以下工作:①随机产生20个0到1000的整数,将其放入一个一维数组中②求出所有元素的平均值,并显示在窗体上(如下图所示)2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮,如下图所示。

在程序运行时,单击"转换"按钮,可以把Text1中的小写字母转换为大写,把大写字母转换为小写,其他字符不变。

3 在窗体上添加一个命令按钮(名称为MyCmd1,标题为"输出最大值")。

程序运行后,单击命令按钮完成以下工作:①随机产生30个0~1000的整数,将其放入一个一维数组中②求出其中的最大值,并显示在窗体上。

4 请设计如下图所示窗体界面。

程序运行时,在选中一个或两个复选框和一个单选按钮时,单击命令按钮,则对文本框中的文本内容做相应的设置。

请编写适当的事件过程,完成上述功能。

5 在名称为Form1的窗体上添加一个名称为Text1的文本框;添加两个标题分别为"对齐方式"、"字体",名称分别为Fm1、Fm2的框架;在Fm1框架中添加三个单选按钮,标题分别为"左对齐"、"居中"、"右对齐",名称分别为Opt1、Opt2、Opt3;在Fm2框架中添加两个单选按钮,标题分别为"宋体"、"黑体",名称分别为Opt4、Opt5。

要求:编写五个单选按钮的Click事件过程,使程序运行时,单击这些单选按钮,可以对文本框中的内容实现相应的操作(如图所示)。

6 请设计如下图所示窗体界面。

运行程序时,先向左侧文本框中输入一个不超过10的正整数,然后选择"N的阶乘"或"(N+2)的阶乘"单选钮,即可进行计算,计算结果在右侧文本框中显示。

vb上机考试习题以及答案

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()= 1= 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then= 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机试(上机操作)模拟试卷450(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷450(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷450(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1.(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框,它们的高、宽分别为300、2400和1200、2400。

窗体的标题为“窗口”。

请通过属性窗口设置适当的属性,满足如下要求:①Text2可以业示多行文本,并且有垂直和水平两个滚动条;②程序运行时在Text1中显示输入的字符为“*”。

程序运行后的窗体如图所示。

注意:存盘时必须存放在考生文件夹下。

工程文件名保存为sjt1.vbp,窗体文件名保存为sjt1.frm。

(2)在名称为Form1的窗体上添加一个名称为Image1的图像框,其高、宽分别为1900、1700,通过属性窗口把考生文件夹下的图像文件pic1.bmp载入图像框;再画两个命令按钮控件,名称分别为C1、C2,标题分别为“放大”、“缩小”,如图所示。

要求:①请编写适当的事件过程,程序运行后,如果单击“放大”按钮,则将图像框的高度、宽度均增加100;单击“缩小”按钮,则将图像框的高度、忧度均减少100,要求程序中不得使用任何变量。

②通过属性窗口设置图像框的适当属性,使得在放大、缩小图像框时,其中的图像也自动放大、缩小。

注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。

正确答案:(1)步骤1:新建一个窗体,按照题目要求建立文本框控件并设置其属性,程序中涉及的控件及属性见表3.8和表3.9。

步骤2:调试并运行程序,关闭程序后按题目要求存盘。

(2)步骤1:新建一个窗体,按照题目要求建立控件并设置图像框相应属性,如图3.17所示。

步骤2:按照步骤1设置其他控件相关属性,程亭中涉及的控件及属性见表3.10。

步骤3:打开代码编辑窗口,在指定位置编写如下代码。

参考答案Private Sub C1 Click( )’当单击”放大”按钮时,依次将Imagel的高与宽分别加100 Imagel.Height=Imagel.Height+i00 Imagel.Width=Imagel.Width+100 End Sub Private Sub C2 Click( )’当单击”缩小”按钮,则依次将Imagel的高与宽分别减100 Imagel.Height=Imagel.Height—100 Imagel.Width=Imagel.Width一100 End Sub 步骤4:调试并运行程序,关闭程序后按题目要求存盘。

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机试(上机操作)模拟试卷517(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷517(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷517(题后含答案及解析)题型有:1.vbp,窗体文件名为sjt1.frm。

(2)在名称为Form1的窗体上建立一个名称为“menu1”、标题为“文件”的弹出式菜单,含有三个菜单项,它们的标题分别为“打开”、“关闭”、“保存”,名称分别为“m1”、“m2”、“m3”。

再画一个命令按钮,名称为“Command1”、标题为“弹出菜单”。

要求:编写命令按钮的Click事件过程,使程序运行时,单击“弹出菜单”按钮即可弹出“文件”菜单(如图1-89所示)。

注意:程序中不得使用变量,事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

正确答案:第1小题【操作步骤】步骤1:新建一个“标准EXE”工程,如表2-25在窗体中画出控件并设置其相关属性。

步骤2:按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1:新建一个“标准EXE”工程,选择【工第2小题具】→【菜单编辑器】命令,打开菜单设计器,如表2-26中的设置建立菜单项。

步骤2:在窗体上画一个名为Command1,标题为“弹出菜单”的命令按钮,打开代码编辑窗口,编写“弹出菜单”按钮的单击事件过程。

参考代码:Private Sub Command1_Click( ) Form1.PopupMenu menu1 End Sub 步骤3:按要求将文件保存至考生文件夹中。

简单应用题2.(1)在考生目录下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。

程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则把它的大写形式显示在标签Label1中;若是大写字母,则把它的小写形式显示在Label1中;若是其他字符,则把该字符直接显示在Label1中。

输入的字母总数则显示在标签Label2 中,如图1-90所示。

要求:去掉程序中的注释符,把程序中的?改为正确的内容。

国家二级VB机试(上机操作)模拟试卷511(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷511(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷511(题后含答案及解析)题型有:1.vbp,窗体文件名为sjt1.frm。

(2)在名称为Form1的窗体上画一个文本框,名称为Text1,其宽度为1000;再画一个滚动条,名称为HS1。

其刻度值的范围是1000~2000。

请编写滚动条的Change 事件过程,程序运行后,如果移动滚动框,则可按照滚动条的刻度值改变文本框的宽度。

运行时的窗体如图1-61所示。

程序中不能使用任何变量,事件过程中只能写一条语句。

注意:保存时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm正确答案:第1小题【操作步骤】步骤1:新建一个“标准EXE”工程,如表2-9在窗体中画出控件并设置其相关属性。

步骤2:按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个水平滚动条和一个文本框,在属性设置窗口中设置其相关属性,其属性及值如表2-10所示。

步骤2:双击窗体Form1上的水平滚动条,打开代码编辑窗口,输入以下代码:参考代码:Private Sub HS1_Change( ) Text1.Width = HS1.Value End Sub 步骤3:按要求将文件保存至考生文件夹中。

简单应用题2.(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有两个列表框,名称分别为List1、List2,在List2中已经预设了内容;还有两个命令按钮,名称分别为C1、C2,标题分别为“添加”、“清除”,如图1-62 所示。

程序的功能是在运行时,如果选中右边列表框中的一个列表项,单击“添加”按钮,则把该项移到左边的列表框中;若选中左边列表框中的一个列表项,单击“清除”按钮,则把该项移回右边的列表框中。

文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。

既不能修改程序中的其他部分,也不能修改控件的属性。

国家二级VB机试(上机操作)模拟试卷410(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷410(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷410(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1.(1)请在名称为Form1的窗体上添加一个名称为H1的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为1,最大刻度值为100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。

再在滚动条下面画两个名称分别为L1和L2的标签,并分别显示1和100,运行时的窗体如图所示。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。

(2)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框,初始内容均为空;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Copy和Clear,标题分别为“复制”、“清除”,请编写适当的事件过程,使得在程序运行时,单击“复制”选项菜单,则把Text1中的内容复制到Text2中,单击“清除”选项菜单,则清除Text2中的内容(即在Text2中填入空字符串)。

运行时的窗体如图所示。

要求在程序中不得使用任何变量,每个事件过程中只能写一条语句。

注意:存盘时必须存放在考生文件夹下,工程文件名为Sjt2.vbp,窗体文件名为sjt2.frm。

正确答案:(1)【操作步骤】步骤1:打开Visual Basic开发环境,按照题目的要求新建窗体并添加一个水平滚动条控件,如图3.1所示。

步骤2:在属性窗口中,按照题目的要求设置水平滚动条的相关属性,如图3.2所示。

步骤3:按照题目的要求,在窗体上添加两个标签控件,如图3.3所示。

步骤4:按照题目的要求设置两个标签的相关属性,如图3.4所示。

程序中用到的控件及属性见表3.1。

步骤5:按下键盘上的F5键运行程序,程序运行后的窗体界面如图3.5所示。

步骤6:按题目要求保存工程和窗体,如图3.6所示。

国家二级VB机试(上机操作)模拟试卷267(题后含答案及解析)

国家二级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上机试题及答案

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机试(上机操作)模拟试卷280(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷280(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷280(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1,标题为“组合框”的窗体上画1个名称为Combo1的组合框,利用属性窗口设置适当属性使其在程序刚开始运行时的界面如图3—37所示。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。

(2)在名称为Form1的窗体上画一个名称为Image1的图像框,并通过属性窗口为其装入考生文件夹中的图标文件CARS.ico再画一个名称为Timer1的计时器,一个名称为Command1、标题为“开始”的命令按钮,如图3—37图3—38所示。

要求:通过属性窗口设置适当的属性,再编写适当的事件过程,使得程序运行时,单击“开始”按钮,图片可以每0.2秒向右移动50。

注意:程序中不得使用变量,每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

正确答案:第1小题步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个组合框。

按表4—25设置其相关属性。

步骤2:按要求将文件保存至考生文件夹中。

第2小题步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个图像框、一个定时器和一个命令按钮。

按表4—26设置其相关属性。

步骤2:在打开的代码编辑窗口中,编写命令按钮的Click事件代码和定时器的Timer事件代码。

参考代码:Private Sub Command1_Click( )Timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timet( )Image1.Left=50+Image1.LeftEnd Sub步骤3:按要求将文件保存至考生文件夹中。

国家二级VB机试(上机操作)模拟试卷253(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷253(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷253(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Forml的窗体上画1个命令按钮,其名称为C1,标题为“等级考试”;再画1个文本框,名称为T1,如图2-107(a)所示。

请编写适当的事件过程,使程序运行后,一旦文本框中的信息有任何变化或输入任何信息,则命令按钮消失,并使命令按钮的标题在文本框中华显示出来,如图2.107(b)所示。

注意:存盘时,将文件保存至考生文件夹下,窗体文件名为sjtl.frm,上程文件名为sjtl.vbp。

(2)在名称为Forml、标题为“菜单演示”的窗体上画一个名称为Label1、标题为空的标签:再建立一个菜单,各菜单项的属性设置见下表。

窗体外观如图2.108(a)所示。

请编写适当的程序,使得选中“输出窗体标题”菜单项时,就在标签中显示窗体标题;选中“输出当前时间”菜单项时,在标签中显示当前系统时问(如图2.108(b)所示)。

要求程序中不得使用变量,每个事件过程中只能写一条语句。

注意:存盘时,将文件保存至考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。

正确答案:第1小题【操作步骤】步骤1:新建一个“标准EXE”工程,在窗体Form1中画一个文本框和一个命令按钮,设置相关属性,其属性及值如表3.60所示。

步骤2:打开代码编辑窗口,编写文本框的Change 事件过程。

参考代码:Private Sub T1一Change( ) C1.ViSible=False T1.Text=C1.Caption End Sub 步骤3:按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1:新建一个“标准EXE”工程,按表3—61在窗体中画出控件并设置其相关属性步骤2:选择【工具】→【菜单编辑器】命令,打开菜单设计器,按表3.62中的设置建立菜单项。

国家二级VB机试(上机操作)模拟试卷407(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷407(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷407(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上画一个名称为Pic的图片框,通过属性窗口将考生文件夹下的文件Tul-1.jpg添加到图片框,然后编写适当的事件过程。

运行程序时,单击窗体,在图片框中显示“VB等级考试”,如图3—179所示。

注意:要求程序中不得使用变量,事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。

(2)在名称为Form1的面体上画一个名称为Command1的命令按钮,标题为“命令按钮”。

然后建立一个菜单,标题为“控件”,名称为menu,包含两个子菜单项,一个是“显示命令按钮”,名称为subMenul;另一个是“隐藏命令按钮”,名称为subMenu2,如图3—180所示。

编写适当的事件过程,使得程序运行时,如果选择“显示命令按钮”菜单命令,则显示命令按钮控件;而如果选择“隐藏命令按钮”菜单命令,则隐藏命令按钮控件。

注意:程序中不得使用变量,每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

正确答案:(1)【操作步骤】步骤1:新建一个“标准EXE”工程,在窗体Form1中画一个名称为Pic的图片框,并设置其Picture属性为Tu1-1.jpg。

步骤2:双击窗体打开代码编辑窗口,在窗体的Click事件过程中输入代码。

参考代码:Private Sub Form_Click( )Pic.Print”VB等级考试”End Sub 步骤3:按要求将文件保存至考生文件夹中。

(2)【操作步骤】步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。

步骤2:选择【工具】→【菜单编辑器】命令,打开菜单设计器,按要求建立菜单项。

VB上机实验题

VB上机实验题

(截止目前所有上机实验及代码。

不用画窗体界面,只写题目和代码.填写实验报告也是复习的过程,请务必认真!......)实验一:第二章⒈在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“等级考试”,BorderStyle属性值为1,可以根据标题自动调整大小;然后再画一个命令按钮,其名称和标题均为Command1,编写适当的事件过程。

程序运行后,界面如图所示,此时如果单击命令按钮,则标签消失,同时用标签的标题作为命令按钮的标题.Private sub command1_click()Label1.visible=falseCommand1.caption=label1.captionEnd sub⒉在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“输入信息”、一个文本框,名称为Text1,Text属性为空白、一个命令按钮,名称为Command1,标题为“显示”。

然后编写命令按钮的Click事件过程。

程序运行后,在文本框输入“计算机等级考试",然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框的内容。

要求程序中不得使用任何变量。

上机代码:Private sub command1_click()Label1。

visible=falseText1.visible=falsePrint text1.textEnd sub⒊在名称为Form1的窗体上画两个文本框,名称分别为Text1和Text2,再画两个命令按钮,名称分别为Command1和Command2,标题分别为“复制"和“删除”。

程序运行时,在Text1中输入一串字符,并用鼠标拖曳的方法选择几个字符,然后分别单击“复制”按钮,则被选中的字符被复制到Text2中;若单击“删除"按钮,则被选中的字符从Text1中被删除.请编写两个命令按钮的Click过程完成上述功能.Private sub command1_click()Text2=text1。

国家二级VB机试(上机操作)模拟试卷543(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷543(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷543(题后含答案及解析)题型有:1.vbp,窗体文件名为sjt1.frm。

(2)在名称为Form1的窗体上,画一个名称为Image1的图像框,左界为360,且图像框中显示考生文件夹下的图片文件“Duck.bmp”;再画两个名称分别为“Command1”、“Command2”,标题分别为“移动”、“复位”的命令按钮,如图1-208所示。

要求:编写适当的事件过程,使得每单击“移动”按钮一次,图像框向右移动10;单击“复位”按钮,图像框自动回位到左界为360的位置。

注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

正确答案:第1小题【操作步骤】步骤1:新建一个“标准EXE”工程,把窗体的标题改为“菜单”,然后利用菜单设计器如表2-100在窗体上建立一个二级菜单。

步骤2:按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1:新建一个“标准EXE”工程,如表2-101在窗体中画出控件并设置其相关属性。

步骤2:打开代码编辑窗口,分别编写两个命令按钮的单击事件过程。

参考代码:Private Sub Command1_Click( ) Image1.Left = Image1.Left + 10 End Sub Private Sub Command2_Click( ) Image1.Left = 360 End Sub 步骤3:按要求将文件保存至考生文件夹中。

简单应用题2.(1)考生文件夹下有一个工程文件sjt3.vbp,其中的窗体上有一个名称为Cmd的命令按钮控件数组;有一个名称为Image1的图像框。

请画一个名称为Timer1的计时器,时间间隔为3秒,初始状态为不可用,如图1-209所示。

程序功能如下:①单击“前进”按钮,则Timer1的状态变为可用,且在图像框中黄灯显示3秒(图像文件为考生文件夹下的“yellow.ico”)后,显示绿灯(图像文件为考生文件夹下的“green.ico”)直至下次单击某个命令按钮;②单击“停止”按钮,则Timer1的状态变为可用,且在图像框黄灯显示3秒后,显示红灯(图像文件为考生文件夹下的“red.ico”)直至下次单击某个命令按钮;③单击“结束”按钮,则结束程序运行。

国家二级VB机试(上机操作)模拟试卷509(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷509(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷509(题后含答案及解析)题型有:1.vbp,窗体文件名为sjt1.frm。

(2)在窗体上建立一个二级菜单,第一级含两个菜单项,标题分别为“编辑”“帮助”,名称分别为edit、help。

其中“编辑”菜单含有子菜单,共有三个菜单项,其标题依次为“剪切”“复制”“粘贴”,名称分别为“cut”“copy”“paste”(如图1-52 所示)。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

正确答案:第1小题【操作步骤】步骤1:新建一个“标准EXE”工程。

步骤2:在窗体Form1中加入一个单选按钮,并用“复制”和“粘贴”的方法,生成包含4个元素的单选按钮数组。

步骤3:分别设置单选按钮数组中各元素的相关属性,其属性及值如表2-1所示。

步骤4:按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1:新建一个“标准EXE”工程,利用菜单设计器如表2-2 在窗体上建立一个二级菜单。

步骤2:按要求将文件保存至考生文件夹中。

简单应用题2.(1)在考生文件夹下有一个工程文件sjt3.vbp,它的功能是在运行时只显示名为Form2的窗体,单击Form2上的“C2”按钮,则显示名为Form1的窗体;单击Form1上的“C1”按钮,则Form1的窗体消失。

这个程序并不完整,要求如下:①把Form2设为启动窗体;把Form1上按钮的标题改为“隐藏”,把Form2上按钮的标题改为“显示”。

②去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。

最后把修改后的文件存盘。

③工程文件和窗体文件仍以原来的文件名存盘。

正确程序运行后的界面如图1-53所示。

(2)在考生文件夹下有一个工程文件sjt4.vbp,它的功能是在文本框中输入一个整数,单击“移动”按钮后,如果输入的是正数,滚动条中的滚动框向右移动与该数相等的刻度,但如果超过了滚动条的最大刻度,则不移动,并且显示“文本框中的数值太大”;如果输入的是负数,滚动条中的滚动框向左移动与该数相等的刻度,但如果超过了滚动条的最小刻度,则不移动,并且显示“文本框中的数值太小”,如图1-54所示。

vb上机考试题库及答案86套

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上机实验题

第一题编一程序,程序运行的初始界面,如图1-15所示,当用户在文本框输入姓名,例如输入"张三",单击"确定"按钮,则程序的运行情况如图1-16所示,如果单击"结束"按钮,即结束程序运行。

图1-15 程序运行后初始界面图1-16 单击"确定"按钮后的程序界面第二题:编一程序,在屏幕上显示"你好,Visual Basic系统",字体大小设为三号、颜色为红色,(见图1),单击窗体后,在窗体上显示"初次见面,请多关照!",同时窗体上出现两个命令按钮"继续"和"结束",如图2所示,如果单击"继续"按钮,则又回到初始运行状态;单击"结束"按钮即结束程序运行。

图1 程序运行后初始界面图2 单击窗体后的程序界面1、创建如图所示界面(含一个标签Label1,两个文本框Text1和Text2,两个按钮Command1和Command2)。

要求:在文本框Text1中输入内容,文本框Text2的内容同步改变;若文本框Text2的内容改变,则标签的标题也同步变化;单击“清空”按钮,可以清空两个文本框中的内容,同时将文本框Text1设置为当前对象;单击“结束”按钮可以结束程序。

2、创建如图所示界面:要求:在列表框LIST1中选中一项后,单击按钮“>”可以将此项移到LIST2中,单击按钮“>>”可以将LIST1中的所有项目移到LIST2中;另两个按钮的功能与此相反。

3、创建如图所示界面:在文本框中输入内容后单击“确定”按钮,可以将内容添加到列表框中;双击列表框中的某一项,可以将此列表项移到组合框中;单击“清空”按钮可以清除文本框、列表框与组合框中的内容,并且将焦点设置在文本框上;单击“退出”按钮可以结束程序的运行。

国家二级VB机试(上机操作)模拟试卷549(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷549(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷549(题后含答案及解析)题型有:1.vbp,窗体文件名为vbsj1.frm。

(2)在名称为Form1的窗体上画一个图片框(名称为Pic1)、一个垂直滚动条(名称为Vsb1)和一个命令按钮(名称为cmdSet,标题为“设置属性”),通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg,位于考生目录下),图片框的宽度与图形的宽度相同,图片框的高度任意(如图1-237所示)。

编写适当的事件过程。

程序运行后,如果单击命令按钮,则设置垂直滚动条的如下属性:Min=100 Max=2400 LargeChange=200 SmallChange=20 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。

运行后的窗体如图1-238所示。

要求程序中不得使用任何变量。

注意:存盘时必须存放在考生文件夹下,工程文件名为vbsj2.vbp,窗体文件名为vbsj2.frm。

正确答案:第1小题【操作步骤】步骤1:新建一个“标准EXE”工程,选择【工程】→【部件】命令,打开“部件”对话框,从其列表中选中“MicroSoft Common Dialog Control6.0”项目,单击“确定”按钮。

步骤2:在窗体Form1中加入一个命令按钮和一个通用对话框,其相关属性设置如表2-116所示。

步骤3:在代码编辑窗口中,编写“打开文件”按钮的单击事件过程:参考代码:Private Sub cmdOpen_Click( ) cdlOpen.ShowOpen End Sub 步骤4:按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1:新建一个“标准EXE”工程,在窗体Form1中画一个图片框和一个水平滚动条,在属性设置窗口中设置其相关属性,属性及其值如表2-117所示。

步骤2:打开代码编辑窗口,分别编写命令按钮的Click事件过程和垂直滚动条的Change事件过程。

参考代码:Private Sub cmdSet_Click( ) Vsb1.Min = 100 Vsb1.Max = 2400 rgeChange = 200 Vsb1.SmallChange = 20 End Sub Private Sub Vsb1_Change( ) Pic1.Height = Vsb1.Value End Sub 步骤3:按要求将文件保存至考生文件夹中。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

(截止目前所有上机实验及代码。

不用画窗体界面,只写题目和代码。

填写实验报告也是复习的过程,请务必认真!......)实验一:第二章⒈在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“等级考试”,BorderStyle属性值为1,可以根据标题自动调整大小;然后再画一个命令按钮,其名称和标题均为Command1,编写适当的事件过程。

程序运行后,界面如图所示,此时如果单击命令按钮,则标签消失,同时用标签的标题作为命令按钮的标题。

Private sub command1_click()Label1.visible=falseCommand1.caption=label1.captionEnd sub⒉在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“输入信息”、一个文本框,名称为Text1,Text属性为空白、一个命令按钮,名称为Command1,标题为“显示”。

然后编写命令按钮的Click事件过程。

程序运行后,在文本框输入“计算机等级考试”,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框的内容。

要求程序中不得使用任何变量。

上机代码:Private sub command1_click()Label1.visible=falseText1.visible=falsePrint text1.textEnd sub⒊在名称为Form1的窗体上画两个文本框,名称分别为Text1和Text2,再画两个命令按钮,名称分别为Command1和Command2,标题分别为“复制”和“删除”。

程序运行时,在Text1中输入一串字符,并用鼠标拖曳的方法选择几个字符,然后分别单击“复制”按钮,则被选中的字符被复制到Text2中;若单击“删除”按钮,则被选中的字符从Text1中被删除。

请编写两个命令按钮的Click过程完成上述功能。

Private sub command1_click()Text2=text1.seltextEnd subPrivate sub command2_click()Text1.seltext=””End sub4.在名称为Form1的窗体上画一个文本框,名称为Text1,Text属性值为“VB可视化程序设计”,采用宋体四号字;再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“黑体”、“隶书”和“楷体_GB2312”。

程序运行时,单击不同的命令按钮,则文本框的字体变为相应的字体。

请编写三个命令按钮的Click过程完成上述功能。

Private sub command1_click()Text1.fontname=command1.captionEnd subPrivate sub command2_click()Text1.fontname=command2.captionEnd subPrivate sub command3_click()Text1.fontname=command3.captionEnd sub5.在名称为Form1的窗体上画一个文本框,名称为T1,Text属性值为空。

要求在文本框里输入“VB程序设计”,并按下回车键以后,窗体的标题栏显示文本框的内容。

Private sub text1_keypress(keyascii as integer)If keyascii=13 thenCaption=text1End ifEnd sub实验二:第三章1⒈在名称为Form1的窗体上画两个文本框,名称分别为T1和T2,Text属性值均为空。

程序运行时,在T1输入“abcdefg”,立即在T2里显示“ABCDEFG”。

程序中不得使用任何变量。

【提示】函数Ucase()将小写字母转换为大写字母。

Private sub T1_change()T2=ucase(T1)End sub⒉在名称为Form1的窗体上画两个文本框,名称分别为T1和T2,Text属性值均为空;画一个命令按钮,名称为C1,标题为“确定”。

程序运行时,在T1中输入“abcdefg”,按下回车键或者“确定”按钮以后,在T2里显示“ABCDEFG”。

程序中不得使用任何变量。

Private sub T1_lostfocus( )T2=Ucase(T1)End sub或:private sub T1_keypress(keyascii as integer)If keyascii=13 thenTt2=Ucase(T1)End sub⒊在名称为Form1的窗体上画一个标签,名称为L1,标题为“请输入圆半径”;一个文本框,名称为T1,Text属性值为空;一个命令按钮,名称为C1,标题为“计算圆面积”。

程序运行时,在文本框里输入一个整数,按下“计算圆面积”命令按钮后,在窗体上输出相应的圆面积。

Private sub command1_click()Dim r as integerR=text1Print 3.14*r*rEnd sub⒋在名称为Form1的窗体上画一个文本框,名称为T1,Text属性值为空;一个标签,名称为L1,标题为“欢迎您和我们一起学习VB”,标签的大小能够随着标题文字的多少自动调整。

程序运行时,在文本框里输入你的姓名,并按下回车键,则标签的标题改为“欢迎××和我们一起学习VB”(××为你的姓名)。

Private Sub T1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenL1.Caption = Mid(L1, 1, 2) & T1 & Mid(L1, 4)End IfEnd Sub实验三:第三章2⒌在名称为Form1的窗体上画一个标签,名称为L1,标题为“现在离北京奥运会开幕还有××天”,采用3号黑体字。

程序运行时,该标签处于隐藏状态;单击窗体,该标签显示倒计时;双击窗体,隐藏标签。

提示:两个日期型数据进行减法运算的结果是数值型,意义是两个日期之间的天数。

Date函数返回当天的日期。

Private Sub Form_Click()L1.Visible = TrueL1 = “现在离2009年国庆还有" & #2009/10/01# - Date & "天"End SubPrivate Sub Form_DblClick()L1.Visible = FalseEnd Sub⒍在名称为Form1的窗体上画一个名称为Label1的标签,其初始内容为空,且能根据指定的标题内容自动调整标签的大小;再画2个命令按钮,标题分别是“日期”和“时间”,名称分别为Command1和Command2。

请编写2个命令按钮的Click事件过程,标签内显示系统当前日期;单击“时间”按钮时,标签内显示系统当前时间。

如图所示。

要求:程序中不得使用变量,每个事件过程中只能写一条语句。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm 。

Private Sub Command1_Click()Label1 = DateEnd SubPrivate Sub Command2_Click()Label1 = TimeEnd Sub⒎在Form1的窗体上画一个名称为Text1,内容为“程序设计”的文本框,显示字体为三号字、居中;再画二个命令按钮,标题分别是“粗体”和“斜体”,名称分别为Command1和Command2,如图所示。

要求:编写两个命令按钮的Click事件过程,使得单击“粗体”按钮时,文本框的内容显示为粗体格式;单击“斜体”按钮时,文本框的内容显示为斜体格式。

注意:程序中不得使用变量,每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm 。

Private Sub Command1_Click()Text1.FontBold = TrueEnd SubPrivate Sub Command2_Click()Text1.FontItalic = TrueEnd Sub⒏在名称为Form1的窗体上,画两个名称为Label1、Label2,标题分别为“开始位置”、“选中的字符数”的标签;画三个文本框,名称分别为Text1、Text2、Text3,再画一个名称为Command1,标题为“显示选中信息”的命令按钮。

程序运行时在Text1中输入若干字符,并用鼠标选中一些字符后,单击“显示选中信息”按钮,则把选中的第一个字符的顺序号显示在Text2中,选中的字符个数显示在Text3中,如图所示。

要求:画出所有控件,编写命令按钮的Click事件过程。

注意:要求程序中不得使用任何变量,每个事件过程只能写两条语句,分别用于显示第一个字符的顺序号和显示选中的字符个数。

存盘时必须放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

Private Sub Command1_Click()Text2 = Text1.SelStart + 1Text3 = Text1.SelLengthEnd Sub实验四:第四章1基础练习⒈在名称为Form1的窗体上画两个文本框,名称分别为T1和T2,Text属性值分别为“学习”和“快乐”,字体分别为“华文彩云”和“方正舒体”,背景颜色分别为红和绿,字体均为3号;画一个命令按钮,名称为C1,标题为“交换”。

程序运行时,单击“交换”按钮,则交换两个文本框的字体或背景颜色。

Private Sub Command1_Click()Dim s As Strings = Text1.FontNameText1.FontName = Text2.FontNameText2.FontName = sEnd Sub⒉设计一个名称Form1的窗体,要求:①在文本框Text1里输入摄氏温度后,单击命令按钮Command1后,文本框Text2显示相应的华氏温度,反之亦然;②初始启动表单时,焦点位于Text1,命令按钮Command1的标题为“摄氏变华氏”;③当在Text1里输入摄氏温度并按下命令按钮后,命令按钮Command1的标题变为“华氏变摄氏”,焦点位于Text2。

【提示】摄氏转华氏:华氏=摄氏*9/5+32华氏转摄氏:摄氏=(华氏-32)*5/9Private Sub Command1_Click()If Command1.Caption = "摄氏变华氏" ThenText2 = Text1 * 9 / 5 + 32Command1.Caption = "华氏变摄氏"Text2.SetFocusElseText1 = (Text2 - 32) * 5 / 9Command1.Caption = "摄氏变华氏"Text1.SetFocusEnd IfEnd Sub⒊参考教材(p.67)例4.3,启动窗体时输出如下图形;单击窗体,清除图形。

相关文档
最新文档