VB上机实验题

(截止目前所有上机实验及代码。不用画窗体界面，只写题目和代码。填写实验报告也是复习的过程，

请务必认真！) ．．．．．．

实验一：第二章

⒈ 在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。程序运行后，界面如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。

Private sub command1_click() Label1.visible=false

Command1.caption=label1.caption End sub

⒉ 在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框，名称为Text1，Text属性为空白、一个命令按钮，名称为Command1，标题为“显示”。然后编写命令按钮的Click事件过程。程序运行后，在文本框输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框的内容。要求程序中不得使用任何变量。

上机代码：Private sub command1_click() Label1.visible=false Text1.visible=false Print text1.text End sub

⒊ 在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，再画两个命令按钮，名称分别为Command1和Command2，标题分别为“复制”和“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除”按钮，则被选中的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。

Private sub command1_click() Text2=text1.seltext End sub

Private sub command2_click() Text1.seltext=”” End sub

4． 在名称为Form1的窗体上画一个文本框，名称为Text1，Text属性值为“VB可视化程序设计”，采用宋体四号字；再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“黑体”、“隶书”和“楷体_GB2312”。程序运行时，单击不同的命令按钮，则文本框的字体变为相应的字体。请编写三个命令按钮的Click过程完成上述功能。

Private sub command1_click()

Text1.fontname=command1.caption End sub

Private sub command2_click()

Text1.fontname=command2.caption End sub

Private sub command3_click()

Text1.fontname=command3.caption End sub

5． 在名称为Form1的窗体上画一个文本框，名称为T1，Text属性值为空。要求在文本框里输入“VB程序设计”，并按下回车键以后，窗体的标题栏显示文本框的内容。

Private sub text1_keypress(keyascii as integer) If keyascii=13 then Caption=text1 End if End 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 then Tt2=Ucase(T1) End sub

⒊ 在名称为Form1的窗体上画一个标签，名称为L1，标题为“请输入圆半径”；一个文本框，名称为T1，Text属性值为空；一个命令按钮，名称为C1，标题为“计算圆面积”。程序运行时，在文本框里输入一个整数，按下“计算圆面积”命令按钮后，在窗体上输出相应的圆面积。

Private sub command1_click() Dim r as integer R=text1

Print 3.14*r*r End sub

⒋ 在名称为Form1的窗体上画一个文本框，名称为T1，Text属性值为空；一个标签，名称

为L1，标题为“欢迎您和我们一起学习VB”，标签的大小能够随着标题文字的多少自动调整。程序运行时，在文本框里输入你的姓名，并按下回车键，则标签的标题改为“欢迎××和我们一起学习VB”（××为你的姓名）。

Private Sub T1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

L1.Caption = Mid(L1, 1, 2) & T1 & Mid(L1, 4) End If End Sub

实验三：第三章2

⒌ 在名称为Form1的窗体上画一个标签，名称为L1，标题为“现在离北京奥运会开幕还有××天”，采用3号黑体字。程序运行时，该标签处于隐藏状态；单击窗体，该标签显示倒计时；双击窗体，隐藏标签。

提示：两个日期型数据进行减法运算的结果是数值型，意义是两个日期之间的天数。Date函数返回当天的日期。

Private Sub Form_Click() L1.Visible = True

L1 = “现在离2009年国庆还有\天\End Sub

Private Sub Form_DblClick() L1.Visible = False End Sub

⒍ 在名称为Form1的窗体上画一个名称为Label1的标签，其初始内容为空，且能根据指定的标题内容自动调整标签的大小；再画2个命令按钮，标题分别是“日期”和“时间”，名称分别为Command1和Command2。请编写2个命令按钮的Click事件过程，标签内显示系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。如图所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。 注意：

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

Private Sub Command1_Click() Label1 = Date End Sub

Private Sub Command2_Click() Label1 = Time End Sub

⒎ 在Form1的窗体上画一个名称为Text1，内容为“程序设计”的文本框，显示字体为三号字、居中；再画二个命令按钮，标题分别是“粗体”和“斜体”，名称分别为Command1和Command2，如图所示。 要求：

编写两个命令按钮的Click事件过程，使得单击“粗体”按钮时，文本框的内容显示为粗体格式；单击“斜体”按钮时，文本框的内容显示为斜体格式。 注意：

程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm 。

Private Sub Command1_Click() Text1.FontBold = True End Sub

Private Sub Command2_Click() Text1.FontItalic = True End Sub

⒏ 在名称为Form1的窗体上，画两个名称为Label1、Label2，标题分别为“开始位置”、“选中的字符数”的标签；画三个文本框，名称分别为Text1、Text2、Text3，再画一个名称为Command1，标题为“显示选中信息”的命令按钮。程序运行时在Text1中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在Text2中，选中的字符个数显示在Text3中，如图所示。 要求：

画出所有控件，编写命令按钮的Click事件过程。

注意：

要求程序中不得使用任何变量，每个事件过程只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。存盘时必须放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

Private Sub Command1_Click() Text2 = Text1.SelStart + 1 Text3 = Text1.SelLength End Sub

实验四：第四章1 基础练习

⒈ 在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，Text属性值分别为“学习”和“快乐”，字体分别为“华文彩云”和“方正舒体”，背景颜色分别为红和绿，字体均为3号；画一个命令按钮，名称为C1，标题为“交换”。程序运行时，单击“交换”按钮，则交换两个文本框的字体或背景颜色。

Private Sub Command1_Click() Dim s As String s = Text1.FontName

Text1.FontName = Text2.FontName Text2.FontName = s End Sub

⒉ 设计一个名称Form1的窗体，要求：

① 在文本框Text1里输入摄氏温度后，单击命令按钮Command1后，文本框Text2显示相应的华氏温度，反之亦然；

② 初始启动表单时，焦点位于Text1，命令按钮Command1的标题为“摄氏变华氏”；

③ 当在Text1里输入摄氏温度并按下命令按钮后，命令按钮Command1的标题变为“华氏变摄氏”，焦点位于Text2。

【提示】

摄氏转华氏：华氏=摄氏*9/5+32 华氏转摄氏：摄氏=（华氏-32）*5/9 Private Sub Command1_Click()

If Command1.Caption = \摄氏变华氏\ Text2 = Text1 * 9 / 5 + 32

Command1.Caption = \华氏变摄氏\ Text2.SetFocus Else

Text1 = (Text2 - 32) * 5 / 9

Command1.Caption = \摄氏变华氏\ Text1.SetFocus End If End Sub

⒊ 参考教材（p.67）例4.3，启动窗体时输出如下图形；单击窗体，清除图形。

【提示】

设置窗体的ForeColor和BackColor属性。 Private Sub Form_Load() AutoRedraw = True

Print : Print : Print : Print : Print

Print Tab(17); \☆☆☆☆☆\☆\ Print Tab(18); \☆☆☆☆\☆☆\ Print Tab(19); \☆☆☆\☆☆☆\ Print Tab(20); \☆☆\☆☆☆☆\ Print Tab(21); \☆\☆☆☆☆☆\

End Sub

3-1．在名称为Form1的窗体上画1个名称为Label1标签，三号字，背景色为绿色；3个单选按钮，名称分别为Option1、Option2、Option3，标题分别为“华文彩云”、“黑体”、“隶书”，当按下不同按钮时，标签的文字用相应的字体显示。

实验五：第四章2 综合练习

⒋ 在名称为Form1的窗体上画3个标签，名称分别为Label1、Label2和Label3，标题分别为“姓名”、“性别”和“欢迎您和我们一起学习VB”，并且Label3的大小能够随着标题文字的多少自动调整；2个文本框，名称分别为Text1和Text2，Text属性值均为空；1个名称为Command1的命令按钮，标题为“确定”。程序运行时，在Text1里输入姓名，在Text2里输入性别，按下“确定”按钮后，Label3的标题改为“××先生或女士，欢迎您和我们一起学习VB”（××为姓名，如果是男性，输出先生；否则输出女士）。

Private Sub Command1_Click() Dim temp As String If Text2 = \男\ temp = \先生\ Else

temp = \女士\ End If

Label3 = Text1 & temp & \欢迎您和我们一起学习VB\End Sub

⒌ 在名称为Form1的窗体上画1个标签，名称为Label1，初始为空白，能够自动调整大小；2个命令按钮，名称分别为Command1和Command2，标题分别为“输入3个数”和“求最大的数”。程序运行时，单击Command1按钮，依次弹出3个InputBox，要求用户输入任意3个整数；单击Command2按钮，求出3个数中最大的数，并在Label1里输出结果。

Private Sub Command1_Click()

a = InputBox(\请输入数a\输入数a\ b = InputBox(\请输入数b\输入数b\ c = InputBox(\请输入数c\输入数c\End Sub

Private Sub Command2_Click() Dim max As Integer If a > b And a > c Then max = a

ElseIf b > a And b > c Then max = b Else

max = c End If

Label1.Caption = a & \、\、\中最大的数是：\End Sub

⒍ 在名称为Form1的窗体上画2个标签，名称分别为Label1和Label2，标题分别为“姓名”和“欢迎您和我们一起学习VB”，并且Label3的大小能够随着标题文字的多少自动调整；1个文本框，名称为Text1，Text属性值为空；1个框架，包含2个单选按钮；1个名称为Command1的命令按钮，标题为“确定”。程序运行时，在Text1里输入姓名，在框架里选择性别，按下“确定”按钮后，Label2的标题改为“××先生或女士，欢迎您和我们一起学习VB”（××为姓名，如果选择男性，输出先生；否则输出女士）。

Private Sub Command1_Click() Dim temp As String If Option1 Then temp = \女士\ Else

temp = \先生\

End If

Label2 = Text1 & temp & \欢迎您和我们一起学VB\End Sub

⒎ 在名称为Form1的窗体上画2个标签，名称分别为Label1和Label2，标题分别为“请输入一个字母”和空白，并且Label2的大小能够随着标题文字的多少自动调整；1个文本框，名称为Text1，Text属性值为空。程序运行时，在文本框里输入字母并按下回车键，判断该字母是元音字母还是辅音字母，在Label2里显示结果。要求用Select Case结构完成。

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then c = Text1 Select Case c

Case \ Label2 = c & \是元音\ Case \ Label2 = c & \是元音\ Case Else

Label2 = c & \不是元音\ End Select End If End Sub

⒏ 在名称为Form1的窗体上画1个标签，名称为Label1，标题为空白，标签的大小能够随着标题文字的多少自动调整；2个框架，各包含2个单选按钮，标题分别为“男”、“女”、“教师”、“学生”；1个名称为Command1的命令按钮，标题为“确认”。程序运行时，在单选按钮里选择性别和身份，按下“确认”按钮后，Label1的标题显示“您是一个女（或男）教师（或学生）”。

Private sub command1_click() If option1 and option3 then

Label1.caption=”您是一位” & option1.caption & option3.caption Elseif option1 and option4 then

Label1.caption=”您是一位” & option1.caption & option4.caption Elseif option2 and option3 then

Label1.caption=”您是一位” & option2.caption & option3.caption Else

Label1.caption=”您是一位” & option2.caption & option4.caption End if End sub

⒐ 在名称为Form1的窗体上画1个标签，名称为Label1，标题为“大家都来学VB”，小二号“方正舒体”；1个名称为Frame1的框架，标题为“请选择文字颜色”，内含3个单选按钮，名称分别为Option1、Option2、Option3，标题为空，背景色分别为绿、黄、红；1个名称为Frame2的框架，标题为“请选择文字效果”，内含3个复选框，标题分别为“粗体”、“斜体”、“下划线”。当按下不同按钮时，标签的文字用相应的颜色和效果显示。

Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else

Label1.FontBold = False End If End Sub

Private Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else

Label1.FontItalic = False End If End Sub

Private Sub Check3_Click() If Check3.Value = 1 Then

Label1.FontUnderline = True Else

Label1.FontUnderline = False End If End Sub

Private Sub Option1_Click() Label1.ForeColor = Option1.BackColor End Sub

Private Sub Option2_Click() Label1.ForeColor = Option2.BackColor End Sub

Private Sub Option3_Click() Label1.ForeColor = Option3.BackColor End Sub

:

实验6：第四章3 基础练习

⒈ 在Form1的窗体上画一个名称为Text1的文本框，初始内容为空；然后再画三个单选按钮，其名称分别为Op1、Op2和Op3，标题分别为北京、西安和杭州。编写适当的事件过程。程序运行后，选择Op1，在文本框显示“颐和园”；选择Op2，文本框显示“兵马俑”；选择Op3，文本框显示“西湖。

Private Sub Option1_Click() Text1 = \颐和园\End Sub

Private Sub Option2_Click() Text1 = \兵马俑\End Sub

Private Sub Option3_Click() Text1 = \西湖\End Sub

⒋ 在名称为Form1的窗体上画1个标签，标题为空，可以自动调节大小；再画1个命令按钮，标题为“输入/显示”。程序运行时，单击命令按钮，显示输入对话框，在对话框里输入某个月份后，在标签里显示该月份所在季节：

3-5：春季 6-8：夏季 9-11：秋季 12-2：冬季

Private Sub Command1_Click() Dim n As Integer

n = InputBox(\请输入月份\ Select Case n

Case 3, 4, 5

Label1 = n & \月是春季\ Case 6, 7, 8

Label1 = n & \月是夏季\ Case 9, 10, 11

Label1 = n & \月是秋季\ Case Else

Label1 = n & \月是冬季\ End Select End Sub

⒌ 在窗体上画一个名称为Label1的标签，标题为“神奇的循环”，方正舒体小五号字，红色，随字体变化自动调整大小；窗体的标题栏显示您的专业和姓名。程序运行时，单击窗体，自动逐步放大字体。图为放大后的界面。

Private Sub Form_Click() Dim i As Integer For i = 1 To 28

Label1.Font.Size = Label1.Font.Size + 1 Next i End Sub

⒍ 在窗体上画2个标签，标题分别为“输入字符串”和空白；1个文本框，初始内容为空；1个命令按钮，标题为“反向输出”。程序运行时，在文本框输入任意字符串后单击命令按钮，在Label2反向显示该字符串。

Private Sub Command1_Click() Dim s As String, i As Integer

For i = Len(Text1) To 1 Step -1

s = s & Mid(Text1, i, 1) Next i Label2 = s End Sub

实验七：第四章4 综合练习

⒎ 统计一串字符中元音字母和辅音字母的个数。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim n1, n2 As Integer If KeyAscii = 13 Then L= Len(Text1) For i = 1 To L

c = Mid(Text1, i, 1) Select Case c

Case \ n1 = n1 + 1

Case \ n1 = n1 + 1 Case Else

n2 = n2 + 1 End Select Next i

Label2 = \元音字母有\个\ Label3 = \辅音字母有\个\ End If End Sub

⒏ 编程，用QBColor函数显示16种不同的颜色的文字。

Private Sub Form_Click() For i = 0 To 15

ForeColor = QBColor( i ) Print \颜色代码：\ & i Next i End Sub

⒐ 有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框（见图）。合法编号的组成是：前2个字符是大写英文字母，第3个字符是“-”，后面是数字字符（至少1个）。下面程序可实现此功能，请填空。

Private Sub Text1_LostFocus() n = Len(Text1)

For i = 1 To IIf(n > 3, n, 4) c = Mid(Text1, i, 1) Select Case【i】 Case 1, 2

If c < \

MsgBox (\第\个字符必须是大写字母！\ Text1.SelStart =【i-1】 Text1.SelLength = 1 Text1.【SetFocus 】 Exit For End If Case 3

If c <> \

MsgBox (\第\个字符必须是字符\ Text1.SelStart = 【i-1】 Text1.SelLength = 1 Text1.【setfocus】 Exit For End If Case Else

If c < \

MsgBox (\第\个字符必须是数字！\ Text1.SelStart =【i-1】 Text1.SelLength = 1 Text1.【setfocus】

Exit For End If End Select Next i End Sub

实验八：第五章1:

列表框和组合框

⒈ 在Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加四个项目，分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”，编写适当的事件过程。程序运行后，如果单击列表框中的某一项，则该项就从列表框中消失。

Private sub list1_click()

List1.removeitem list1.listindex End sub

⒉ 窗体上画2个命令按钮，标题分别为“添加项目”和“删除项目”，再画一个列表框和一个文本框。程序运行后，单击“添加项目”按钮，则从键盘输入要添加到列表框中的项目内容；单击“删除项目”按钮，则从键盘输入要删除的项目内容。下面提供的代码不完整，请补充完整。

Private Sub Command1_Click()

Text1.Text = InputBox(\请输入要添加的项目\ List1.AddItem text1 End Sub

Private Sub Command2_Click()

Text1.Text = InputBox(\请输入要删除的项目\

'For i = 0 To list1.listcount -1 'If List1.List(i) = text1 Then 'List1.RemoveItem i End If Next i End Sub

⒊ 在名称为Form1的窗体上画一个名称为Label1、标题为“添加项目：”的标签；画一个名称为Text1的文本框，没有初始内容；画一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目（不少于3个，内容任意）；再画两个命令按钮，名称分别为Command1和Command2，标题分别为“添加”、“统计”。在运行时，向Text1中输入字符，单击“添加”按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个数，请编写两个命令按钮的Click事件过程。

程序中不得使用变量，也不能使用循环。

Private sub command1_click() Combo1.additem text1 Text1=””

Text1.setfocus End sub

Private sub command2_click() Print combo1.listcount End sub

⒋ ⑴ 利用属性窗口向列表框添加四个项目：Visual Basic、Turbo C、C++、Java； ⑵ 请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮Option1，然后单击“确定”命令按钮，则文本框中显示“×××笔试”；当选择列表框中的一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中显示“×××上机”。其中“×××”是在列表框中所选择的项目。

Private sub command1_click() If option1 then

Text1=list1.text & option1.caption Else

Text1=list1.text & option2.caption End if End sub

实验九：第五章2:

控件数组

⒈ 在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为300、800。窗体的标题为专业姓名。

⒉ 在名称为Form1的窗体上画一个标签，和一个包含3个元素的命令按钮控件数组。

⒊ 设计一个单选按钮控件数组，和一个文本框。程序运行时，选中单选按钮中的任何一项，都会在文本框里显示“您喜欢的出行方式是乘坐××”。

Private sub option1_click(index as integer)

Text1=”你喜欢的出行方式是乘” & option1(index).caption End sub

⒋ 设计一个单选按钮控件数组、一个命令按钮和一个文本框。程序运行时，选中单选按钮中的任何一项，然后单击“确认”按钮，在文本框里显示“您喜欢的出行方式是乘坐××”。

Private sub command1_click() For i=0 to 3

If option1(i) then

Text1=”你喜欢的出行方式是乘坐” & option1(i).caption End if Next i End sub

5．统计字母A、B、C、D出现的次数，不区分大小写。将统计结果分别保存在变量A、B、C、D中。（提示：依次取出文本框里的一个字符， 如果是字母将其转换为下标（A→1，B →2，等），对应元素计数 ，J从1到4 如果a(j)<>0 Chr(j + 64)=a(j) ）

Private sub command1_click()

Dim a(1 to 4) as integer,c as string *1 Le=len(text1) For i=1 to le

C=Ucase(mid(text1,I,1))

If c>=”A” and c<=”D” then J=asc(c)-65+1 A(j)=a(j)+1 End if Next i

For j=1 to 4

If a(j)>0 then picture1.print “ ”;chr(j+64);”=”;a(j); Next j End sub

本文来源：https://www.bwwdw.com/article/52vw.html