vb上机操作题_看

实验一

1、(P.28 例2.2) 要求：设定窗体无最大化按钮和最小化按钮

Load事件：窗体的标题栏显示“装入窗体”，并装入一背景图片；

Click事件：窗体的标题栏显示“单击窗体”，装入另一背景图片；

DblClick 事件：标题栏显示“双击窗体”，清除背景图。

（存盘文件：EX1-1.frm、EX1-1.vbp）

2、单击标签，交换两个标签显示的内容。（存盘文件：EX1-2.frm、EX1-2.vbp）

3、每单击一次标签，标签向右移动30Twips。（存盘文件：EX1-3.frm、EX1-3.vbp）

4、在文本框中输入密码，点击显示按钮后将密码在标签中显示出来。

要求：在窗体的Load事件中对文本框、标签和按钮进行如下初始化设置；

文本框：密码替代字符为*号、字体大小为20磅；

标签：有边框、背景色为白色、字体大小为20磅、居中对齐；

按钮：字体大小为20磅（存盘文件：EX1-4.frm、EX1-4.vbp）

实验二

1、在窗体上制作一个文本框和若干标签，每个标签代表一种颜色。当点击其中一个标签时，文本框中文字的颜色随之而发生相应改变。（存盘文件：EX2-1.frm、EX2-1.vbp）

2、点击同一位置的2个按钮，使标签分别显示出中文和英文的不同文本内容。

要求：使用visible属性来控制两个按钮的显示切换。（存盘文件：EX2-2.frm、EX2-2.vbp）

3、设计如下界面，利用命令按钮控制标签里的文字的字体、字号等。（存盘文件：EX2-3frm、EX2-3.vbp）

4、设置如下的窗体界面，在第一个文本框里输入字符串，显示均为#号：

(1)单击“还原”按钮，将#号还原成原字符串；

(2)单击“显示”按钮，将原输入的字符串显示在下面的文本框里；

(3)单击“清除”按钮，清除两个文本框的内容，光标自动定位在第一个文本框里。

（存盘文件：EX2-4frm、EX2-4.vbp）

实验三

1、随机产生一个三位正整数，然后逆序

显示。如输入123则逆序显示321。

要求：分别用字符串函数和算术运算两种

方式实现该题。

（存盘文件：EX3-1.frm、EX3-1.vbp）

2、用文本框输入半径值，点击按钮后将

圆的周长和面积计算并显示出来。

要求：将圆周率定义成符号常量。周长和

面积结果保留三位小数并四舍五入。

（存盘文件：EX3-2.frm、EX3-2.vbp）

3、输入一个整数区间的上限和下限，点击

按钮产生并显示该区间内的随机整数。

（存盘文件：EX3-3.frm、EX3-3.vbp）

实验四

1、用4个命令按钮来控制，在窗体上分别以下列方式显示-3到+3这7个整数。另外用“清除”按钮清除显示。

（1）紧凑格式

（2）按区格式

（3）Tab函数定位

（4）每个数间隔5个空格

（工程文件名为Ex4-1.Vbp，窗体文件名为Ex4-1.Frm。）

2、编程完成代数四则运算，用文本框输入两个操作数和操作符，点击“等号”按钮后将计算结果显示出来。（存盘文件为Ex4-2.frm、Ex4-2.vbp）

3、用InputBox函数输入三个数，按从大到小的顺序显示这三个数。

（存盘文件为Ex4-3.frm、Ex4-3.vbp）

4、用InputBox函数输入a, b, c 的值，求方程ax2 +bx+c=0的实数解。结果用Msg B ox函数输出。（存盘文件为Ex4-4.frm、Ex4-4.vbp）

5、输入一个整数并判断其奇偶性。要求用InputBox函数输入。

（存盘文件为Ex4-5.frm、Ex4-5.vbp）

6、编程输入一段字符串并转换：将里面的大写字母转换成小写字母，小写字母转换成大写字母，非字母字符转换成“*”（星号）。要求：分别使用if和select两种结构。

（存盘文件为Ex4-6.frm、Ex4-6.vbp）

实验五

1、求1+22+32+……n2大于1000的最小值。

2、求S=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值。用InputBox函数输入n值。

3、产生10个三位正整数，求出其中的最大值和最小值。

4、将大写字母作如下六行打印，每行有六个字母。

5、用InputBox函数输入三条线段的长度，用

Msgbox函数显示它们是否可以构成三角形。格式

如下界面。

3、显示下列图形。

实验六

1、按下列布局显示小学生的九九乘法表。

2、单击命令按钮Cmd1，在窗体上输出那些百位数、十位数和个位数相加之和等于23的所

有三位数（例如887）。

3、求100到999之间的水仙花数。所谓水仙花数是指，一个3位数的各位数字立方之和正

好等于这个3位数。例如153等。

4、求1000之内的所有完数。所谓完数就是一个数正好等于它的所有因子之和。

例如6，6=1+2+3。

5、从键盘上输入一个正整数，判断它是否为回文数。所谓回文数是指正读和反读都一样的

数，例如123321。不用反串函数StrReverse。

6、输入任意正整数，验证这个正整数是否可以分解为两个素数之和。

实验七

一从键盘输入10位学生的成绩，使用数组来保存，并计算其平均成绩。将个人成绩和平均成绩在窗体表面打印出来，每行打印5个成绩。

二随机产生0-9之间的整数形成

一个5X5的矩阵，存储在一个二

维数组里并显示出来，然后求其上

三角、下三角、主次对角线元素之

和。

三点击第一个按钮随机产生6个二位

整数，使用选择排序将其降序排列并显

示。然后点击第二个按钮插入一个二位数到该序列中恰当的位置，使其保持原有序列并显示。

提示：1 使用动态数组 2 将数组的定

义语句写在通用声明部分

四输入两个数，选择运算的符号（+ 、—、* 、/ ）之后输出结果。

要求：使用按钮的控件数组制作运算符号

VB上机综合测试题(十五套)

VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）

答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------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 Sub

VB练习题(上机)含答案

第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For 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)) Else

ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。

vb上机操作题_看

实验一 1、(P.28 例2.2) 要求：设定窗体无最大化按钮和最小化按钮 Load事件：窗体的标题栏显示“装入窗体”，并装入一背景图片； Click事件：窗体的标题栏显示“单击窗体”，装入另一背景图片； DblClick 事件：标题栏显示“双击窗体”，清除背景图。 （存盘文件：EX1-1.frm、EX1-1.vbp） 2、单击标签，交换两个标签显示的内容。（存盘文件：EX1-2.frm、EX1-2.vbp） 3、每单击一次标签，标签向右移动30Twips。（存盘文件：EX1-3.frm、EX1-3.vbp） 4、在文本框中输入密码，点击显示按钮后将密码在标签中显示出来。 要求：在窗体的Load事件中对文本框、标签和按钮进行如下初始化设置； 文本框：密码替代字符为*号、字体大小为20磅； 标签：有边框、背景色为白色、字体大小为20磅、居中对齐； 按钮：字体大小为20磅（存盘文件：EX1-4.frm、EX1-4.vbp） 实验二 1、在窗体上制作一个文本框和若干标签，每个标签代表一种颜色。当点击其中一个标签时，文本框中文字的颜色随之而发生相应改变。（存盘文件：EX2-1.frm、EX2-1.vbp） 2、点击同一位置的2个按钮，使标签分别显示出中文和英文的不同文本内容。 要求：使用visible属性来控制两个按钮的显示切换。（存盘文件：EX2-2.frm、EX2-2.vbp） 3、设计如下界面，利用命令按钮控制标签里的文字的字体、字号等。（存盘文件：EX2-3frm、EX2-3.vbp）

4、设置如下的窗体界面，在第一个文本框里输入字符串，显示均为#号： (1)单击“还原”按钮，将#号还原成原字符串； (2)单击“显示”按钮，将原输入的字符串显示在下面的文本框里； (3)单击“清除”按钮，清除两个文本框的内容，光标自动定位在第一个文本框里。 （存盘文件：EX2-4frm、EX2-4.vbp） 实验三 1、随机产生一个三位正整数，然后逆序 显示。如输入123则逆序显示321。 要求：分别用字符串函数和算术运算两种 方式实现该题。 （存盘文件：EX3-1.frm、EX3-1.vbp） 2、用文本框输入半径值，点击按钮后将 圆的周长和面积计算并显示出来。 要求：将圆周率定义成符号常量。周长和 面积结果保留三位小数并四舍五入。 （存盘文件：EX3-2.frm、EX3-2.vbp）

VB上机试题及答案

1、在工程中添加一个窗体form1，当用户单击窗体时，在窗体上显示九九乘法表程序。结果如下图所示（本题编程解决，20分） 参考答案： Private Sub Form_Click() Cls For i = 1 To 9 For j = 1 To i Print i * j; " "; Next j Print Next i End Sub 2、在工程中，添加一个窗体form2，在窗体上放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。 要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（本题编程完成，满分：30分） 参考答案： Private Sub Check1_Click() Text1.FontBold = Check1.Value End Sub

Private Sub Check2_Click() Text1.FontItalic = Check2.Value End Sub Private Sub Check3_Click() Text1.FontUnderline = Check3.Value End Sub 3、在工程中添加一窗体form3，在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。 要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除.（本题：20分） 参考答案： Private Sub Command1_Click() List1.AddItem Text1.T ext End Sub Private Sub List1_DblClick() List1.RemoveItem List1.ListIndex End Sub 4、在窗体form4中建立下图所示的菜单,各菜单项的名称如下： 文件：file, 新建：NEW，-：kong1，打开：OPEN，关闭：CLOSE 编辑：EDIT，剪切：CUT，复制：COPY，粘贴：PASTE （本题不用编程，30分）

VB练习题(上机)含答案

VB练习题(上机)含答案

第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub

2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For 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)) Else ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf

Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29

全国vb上机基本操作题

（1）在名称为Forml的窗体上添加一个名称为H1水平滚动条，请在属性窗口中设置它的属性值，满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1、L2的标签，并分别显示1、100，运行时的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 (1) 【考点分析】本题考点有：水平滚动条的Name、Min、Max和LargeChange属性以及标签的Name和Caption属性。 【解题思路】水平滚动条的最大刻度值和最小刻度值分别由Max和Min属性设置；单击滚动条上滚动框以外的区域移动刻度值大小由LargeChange属性设置，而单击滚动条两边按钮移动刻度大小由SmallChange属性设置，本题要求"单击滚动条上滚动框以外的区域移动刻度大小"则由LargeChange属性设置；标签标题显示由Caption属性设置。 【操作步骤】 步骤1：打开Visual Basic，按照题目的要求新建窗体并添加一个水平滚动条控件，如图3.1所示。 图3.1 步骤2：在属性窗口中，按题照目的要求设置水平滚动条的相关属性，如图3.2所示。 图3.2 步骤3：按照题目的要求，在窗体上添加两个标签控件，如图3.3所示。

图3.3 步骤4：按照题目的要求设置两个标签的相关属性，如图3.4所示。 图3.4 程序中用到的控件及属性见表3.1。 图3.5 步骤6：按题目要求保存工程和窗体文件，如图3.6所示。

计算机二级考试《VB》上机操作题

计算机二级考试《VB》上机操作题 2016年计算机二级考试《VB》上机操作题 还有一天计算机二级考试就要开考了!小伙伴们，你们都准备好了吗?下面是店铺为大家搜索整理了关于计算机二级考试《VB》上机操作题，欢迎参考练习，希望对大家备考有所帮助!想了解更多相关信息请持续关注我们店铺! 一、基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码) 1、在名称为Forml的窗体上添加两个名称分别为T extl和T ext2的文本框，初始内容均为空;再建立一个下拉菜单，菜单标题为“操作”，名称为Ml，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把T extl中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在T ext2中填人空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sit2.frm。 2、在名称为Forml的窗体上添加两个名称分别为T extl和T ext2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： ①Text2可以显示多行文本，并且有垂直和水平两个滚动条; ②程序运行时在T extl中显示输入的字符为“*”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。 二、简单应用题 3、在考生文件夹下有一个工程文件sjr4.vbp。窗体上的控件如图所示。程序运行时，若选中“累加”单选按钮，则“10”、“l2”菜

9月计算机二级《VB》上机操作题练习

9月计算机二级《VB》上机操作题练习 2016年9月计算机二级《VB》上机操作题练习 一、基本操作题 (1)在名称为Forml的窗体上用名称为shapel的形状控件画一个长、宽均为1200的正方形。请设置适当的属性以满足下列要求： ①窗体的标题为“正方形”，窗体的最小化按钮不可用。 ②正方形的边框为虚线(线型不限)。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。 (2)在名称为Forml、标题为“标签”的窗体上，添加一个可自动调整大小的标签，名称为l_abell，其标题为“计算机等级考试”，字体大小为三号字;再添加两个命令按钮，标题分别是“宋体”和“黑体”，名称分别为Commandl、Command2，如图所示。 要求：编写两个命令按钮的Click事件过程。程序运行后，如果单击“宋体”命令按钮，则标签标题显示为宋体字体;如果单击“黑体”按钮，则标签标题显示为黑体字体。 注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，其窗体上有一个控件数组，名称为Labell，含三个标签，标题分别是“开始时间”、“结束时间”和“通话费用”;有一个名称为T extl的控件数组，含三个初始内容为空的文本框;此外还有两个名称分别为Cmdl和Cmd2的命令按钮，标题分别是“通话开始”和“通话结束”。其中通过属性窗口对“通话结束”命令按钮的初始状态设置为不可用，如图所示。该程序的功能是计算公用电话计时收费。计时收费的标准是：通话时间在3分钟以内时，收费0.5元;3分钟以上时，每超过1分钟加S0.15元，不足1分钟按1分钟计算。程序执行的操作如下：

计算机二级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() Randomize For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = Int(Rnd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键，记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alignment = 2 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Label1.Caption = X & "," & Y End If End Sub

4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1 To 25) Private Sub Form_Click() Cls For i = 1 To 25 a(i) = Int(Rnd * (99 - 10 + 1) + 10) Print a(i); Next i Print For i = 1 To 25 - 1 For j = 1 To 25 - i If a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next j Next i For i = 1 To 25 Print a(i); Next i End Sub 5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。Dim a(1 To 6) Private Sub Form_Click() For i = 1 To 6 a(i) = 0 Next i For j = 1 To 50 x = Int(Rnd * (6 - 1 + 1) + 1) a(x) = a(x) + 1 Next j For i = 1 To 6 Print i & "出现了" & a(i); "次" Next i End Sub 6、在文本框中输入一些英语单词，统计空格的个数。

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

国家二级VB机试（上机操作）模拟试卷115(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题 基本操作题 1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画一个名称为List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件”，名称为File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为Show，初始状态为选中，运行时的效果如图3-130所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjtl．frm，工程文件名为sjtl．vbp。(2)新建一个名称为Forml，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图3．131所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sit2．frm，工程文件名为sjt2．vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。步骤2：新建一个“标准EXE”工程，选择【工具】→【菜单编辑器】命令，打开菜单设计器按要求设置建立菜单项。步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，将窗体Forml的Caption属性设置为“使用输入对话框”。步骤2：打开代码编辑窗口，编写以下事件过程：参考代码：Private Sub Form Click( )InputBox“请输入”，“等级考试”，“Basic”End Sub步骤3：按要求将文件保存至考生文件夹中。 简单应用题 2．(1)在考生目录下有一个工程文件sit3．vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图3-18所示。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求如下：①依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“上海”，添加命令按钮标题为“显示”。 ②去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。(2)在考生目录下有一个工程文件sit4．vbp，请在Forml窗体中画三个标签，名称分别为B1、B2、L1，标题分别为“字号”、“字体”、“计算机等级考试”，其中L1的高为500，宽为3000；再在B1、B2标签的下面画两个组合框，名称分别为Cbl、Cb2，并为Cbl添加项目：“10”、“15”、“20”，为Cb2

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

国家二级VB机试（上机操作）模拟试卷551(题后含答案及解析) 题型有：1.vbp，窗体文件名为vbsj1.frm。（2）在名称为Form1的窗体上画两个文本框，名称分别为txtLeft、txtRight，再画两个命令按钮，名称分别为cmdLeft、cmdRight，标题分别为“左”、“右”，如图1－248所示。要求：编写适当的事件过程，使得程序运行时，单击“左”按钮，则焦点位于txtLeft 上；单击“右”按钮，则焦点位于txtRight 上。注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程。步骤2：单击工具箱中的TextBox控件图标，在窗体Form1上按下鼠标左键并拖动到一定位置后松开，画出一个文本框，如图2－7所示。步骤3：选定窗体中的文本框，在属性窗口中设置其相关属性，如图2－8所示，属性及值如表2－121所示。步骤4：在文本框的属性窗口中点击“Font”属性右侧的按钮，打开”字体”对话框，在其中设置“字体”为“黑体”，“字号”为“四号”。步骤5：单击窗体无控件区域，在属性窗口中设置窗体相关属性，属性及值如表2－121所示。步骤6：选择【文件】→【保存工程】命令，打开“文件另存为”对话框，如错误!未找到引用源。所示。在该对话框的“保存在”下拉列表中选择考生文件夹，并在“文件名”文本框中输入vbsj1.frm，单击“保存”按钮，如错误!未找到引用源。，即保存好窗体文件；在接下来的“工程另存为”对话框中，在“文件名”文本框中输入vbsj1.vbp，如错误!未找到引用源。所示，并单击“保存”按钮，即保存好工程文件。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中画两个文本框和两个命令按钮，分别设置其相关属性，属性及值如错误!未找到引用源。所示。程序界面如图2－11所示。步骤2：双击“左”命令按钮，打开代码编辑窗口，在按钮的Click事件过程中输入如图2－12中所示代码。步骤3：从代码编辑窗口的“对象”下拉列表中选择cmdRight，从“事件”下拉列表如图2－12所示，选择Click，编写以下事件过程。参考代码：Private Sub cmdRight_Click( ) txtRight.SetFocus End Sub 步骤4：按要求将文件保存至考生文件夹中。 简单应用题 2．（1）在考生目录下有一个工程文件vbsj3.vbp，窗体文件中已给出所有控件和部分程序，如图1－249所示。要求：①利用属性窗口设置适当的属性，使txtInput、txtResult 中数据右对齐；②请编写适当的程序完成以下功能：在txtInput 中输入40（度数），选择一个单选按钮，单击“计算”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值（保留3位小数，第4位截去，π取3.14159），并显示在txtResult中。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在txtInput中输入的必须是40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。程序源码：Private Sub Form_Unload(Cancel As

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上机题库及答案

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 integer for i = 1000 to 9999 if k(i) then list1.additem i: a = a + 1 next i text1.text = a end sub private sub command2_click() list1.clear text1.text = end sub private sub command3_click() end end sub private function k(n as integer) as integer dim i as integer, a as integer, s1 as integer, s2 as integer dim s as string s = cstr(n) for i = 1 to len(s) / 2 s1 = s1 + mid(s, i, 1) s2 = s2 + mid(s, len(s) + 1 - i, 1) next i

VB上机试题及答案

上机操作练习题 1．某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。 Option explicit Dim a(1 to 20) as integer, I as integer, j as integer, t as integer Private Sub Form_Load() Show Print "原始数组是：" Randomize For i = 1 To 20 a(i) = Int(Rnd * 90) + 10 Print a(i); If i Mod 10 = 0 Then Print Next i Print Print "现在数组是：" For i = 1 To 10 j = 21 - i t = a(i): a(i) = a(j): a(j) = t Next i For i = 1 To 20 Print a(i); If i Mod 10 = 0 Then Print Next i End Sub 2．从数组中删除一个数。先定义一个一维数组，大小、数组的值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中” 注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除； 2）能实现多次删除 Private Sub Form_Load() Show ReDim a(9) As Integer m = 1 Print "原来数组为：" For i = 0 To 9 a(i) = InputBox("请输入第" & m & "个数：") Print a(i); m = m + 1 Next i Print n = InputBox("查找的数是：") i = 0: flag = False

VB练习题(上机)含答案

第一部分 1在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值”)。程序运行后，单击命令 按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Ran domize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为”转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转 换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As Stri ng, ch1 As Stri ng, i% ch = Text1 For 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)) Else chi = chi + UCase(Mid(ch, i, 1))

End If Next i Textl = Textl + vbCrLf Textl = Text1 + ch1 End Sub 3在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值”)。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0〜1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Ran domize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max The n max = a(i) Next i Print max 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 Sub Private Sub Command2_Click() Text1.ForeColor = vbRed Text2.ForeColor = vbBlue End Sub Private Sub Command3_Click() End End Sub Tex Tex

2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。 Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbRed End Sub Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbGreen End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub 3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。 Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command2_Click() End End Sub Private Sub Text1_Change() Text2.Text = Text1.Text Text3.Text = Text1.Text End Sub 注：“字体不同”可以在属性那调“Font”

VB上机操作题综合

VB程序设计—《暴风影音》程序运行前： 程序运行后： 说明：当用户双击窗体任意区域时，播放器窗口最大化。 提示：窗体最大化可使用语句：Form1.windowstate = 2 详细内容： 程序使用控件如下： 窗体（Form）1个。控件属性设置： Form1 Caption 暴风影音 BackColor 黑色

参考代码： Private Sub Form_DblClick() Form1.WindowState = 2 End Sub VB程序设计—《登录框》 程序运行： 说明：制作如图所示登录框，其中，用户名限制输入6位长度，密码以“*”号显示。 详细内容： 程序使用控件如下： 窗体（Form）1个，标签（Label）2个，文本框（TextBox）2个，按钮（Command Button）2个。 控件属性设置： Form1 Caption 登录框 Label1 Label2 Caption 用户名Caption 密码 Font 小三Font 小三 Text1 Text2 Text 清空Text 清空 Font 小三Font 小三 MaxLength 6 Passwordchar *

Command1 Command2 Caption 登录Caption 退出 Font 小三Font 小三 VB程序设计—《静夜思》 程序运行： 说明：当用户点击程序中的“显示诗句”按钮时，程序相应位置显示对应诗句. 程序使用控件如下： 窗体（Form）1个，标签（Label）5个，按钮（CommandButton）4个。控件属性设置： Form1 Label1 Caption 诗词记忆练习Caption 静夜思 Font 一号，隶书Label2 Label3 Caption 床前明月光，Caption 疑是地上霜。Font 小二，隶书Font 小二，隶书Visible False Visible False Label4 Label5 Caption 举头望明月，Caption 低头思故乡。Font 小二，隶书Font 小二，隶书Visible False Visible False Command1 Command2 Caption 显示诗句Caption 显示诗句 Font 三号Font 三号

vb上机考试基本操作题

四、基本操作题 1. 在考生文件夹中，完成以下要求： 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”，标题改为"字体显示"。 2.请在窗体的适当位置增加以下控件：文本框Text1，Text属性为“VB演示”；复选按钮Check1，Value初值为0，Caption属性为“粗体”；命令按钮Command1，标题为“退出”，结束系统运行。 3.要求用If-Endif语句完成：选中复选按钮，文本框的文字为粗体；不选中，文本框的文字取消粗体，单击命令按钮结束程序运行。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Command1_Click() End End Sub 2. 在考生文件夹中，完成以下要求： 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.请在适当位置增加以下控件：标签Label1，标题为："列表显示"；文本框Text1用于显示在列表框中选中的项；列表框List1。 3.在窗体装载事件中编写代码为列表框List1添加三项显示内容：“足球”，“篮球”，“排球”。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Form_Load() List1.AddItem "足球" List1.AddItem "篮球" List1.AddItem "排球" End Sub Private Sub List1_Click() Text1.Text = List1.Text End Sub