VB上机实验题

Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateVB上机实验题实验一：(截止目前所有上机实验及代码。不用画窗体界面，只写题目和代码。填写实验报告也是复习的过程，请务必认真！)实验一：第二章 在名称为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 Then L1.Caption = Mid(L1, 1, 2) & T1 & Mid(L1, 4) End IfEnd Sub实验三：第三章2 在名称为Form1的窗体上画一个标签，名称为L1，标题为“现在离北京奥运会开幕还有天”，采用3号黑体字。程序运行时，该标签处于隐藏状态；单击窗体，该标签显示倒计时；双击窗体，隐藏标签。提示：两个日期型数据进行减法运算的结果是数值型，意义是两个日期之间的天数。Date函数返回当天的日期。Private Sub Form_Click() L1.Visible = True L1 = “现在离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 + 1 Text3 = Text1.SelLengthEnd 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 = sEnd Sub 设计一个名称Form1的窗体，要求： 在文本框Text1里输入摄氏温度后，单击命令按钮Command1后，文本框Text2显示相应的华氏温度，反之亦然； 初始启动表单时，焦点位于Text1，命令按钮Command1的标题为“摄氏变华氏”； 当在Text1里输入摄氏温度并按下命令按钮后，命令按钮Command1的标题变为“华氏变摄氏”，焦点位于Text2。【提示】摄氏转华氏：华氏=摄氏*9/5+32华氏转摄氏：摄氏=（华氏-32）*5/9Private Sub Command1_Click()If Command1.Caption = 摄氏变华氏 Then Text2 = Text1 * 9 / 5 + 32 Command1.Caption = 华氏变摄氏 Text2.SetFocusElse Text1 = (Text2 - 32) * 5 / 9 Command1.Caption = 摄氏变华氏 Text1.SetFocusEnd IfEnd Sub 参考教材（p.67）例4.3，启动窗体时输出如下图形；单击窗体，清除图形。【提示】设置窗体的ForeColor和BackColor属性。Private Sub Form_Load() AutoRedraw = True Print : Print : Print : Print : Print Print Tab(17); ; Spc(6); Print Tab(18); ; Spc(6); Print Tab(19); ; Spc(6); Print Tab(20); ; Spc(6); Print Tab(21); ; Spc(6); End Sub3-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 = 男 Then temp = 先生 Else temp = 女士 End If Label3 = Text1 & temp & ,欢迎您和我们一起学习VBEnd Sub 在名称为Form1的窗体上画1个标签，名称为Label1，初始为空白，能够自动调整大小；2个命令按钮，名称分别为Command1和Command2，标题分别为“输入3个数”和“求最大的数”。程序运行时，单击Command1按钮，依次弹出3个InputBox，要求用户输入任意3个整数；单击Command2按钮，求出3个数中最大的数，并在Label1里输出结果。Private Sub Command1_Click() a = InputBox(请输入数a, 输入数a, 0) b = InputBox(请输入数b, 输入数b, 0) c = InputBox(请输入数c, 输入数c, 0)End SubPrivate 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 & 、 & b & 、 & c & 中最大的数是： & maxEnd 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 & ,欢迎您和我们一起学VBEnd 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 a, e, i, o, u Label2 = c & 是元音 Case A, E, I, O, U Label2 = c & 是元音 Case Else Label2 = c & 不是元音 End Select End IfEnd Sub 在名称为Form1的窗体上画1个标签，名称为Label1，标题为空白，标签的大小能够随着标题文字的多少自动调整；2个框架，各包含2个单选按钮，标题分别为“男”、“女”、“教师”、“学生”；1个名称为Command1的命令按钮，标题为“确认”。程序运行时，在单选按钮里选择性别和身份，按下“确认”按钮后，Label1的标题显示“您是一个女（或男）教师（或学生）”。Private sub command1_click()If option1 and option3 thenLabel1.caption=”您是一位” & option1.caption & option3.captionElseif option1 and option4 thenLabel1.caption=”您是一位” & option1.caption & option4.captionElseif option2 and option3 thenLabel1.caption=”您是一位” & option2.caption & option3.captionElseLabel1.caption=”您是一位” & option2.caption & option4.captionEnd ifEnd 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 IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 Then Label1.FontUnderline = TrueElse Label1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Option1_Click() Label1.ForeColor = Option1.BackColorEnd SubPrivate Sub Option2_Click() Label1.ForeColor = Option2.BackColorEnd SubPrivate Sub Option3_Click() Label1.ForeColor = Option3.BackColorEnd Sub:实验6：第四章3基础练习 在Form1的窗体上画一个名称为Text1的文本框，初始内容为空；然后再画三个单选按钮，其名称分别为Op1、Op2和Op3，标题分别为北京、西安和杭州。编写适当的事件过程。程序运行后，选择Op1，在文本框显示“颐和园”；选择Op2，文本框显示“兵马俑”；选择Op3，文本框显示“西湖。Private Sub Option1_Click() Text1 = 颐和园End SubPrivate Sub Option2_Click() Text1 = 兵马俑End SubPrivate 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 SelectEnd Sub 在窗体上画一个名称为Label1的标签，标题为“神奇的循环”，方正舒体小五号字，红色，随字体变化自动调整大小；窗体的标题栏显示您的专业和姓名。程序运行时，单击窗体，自动逐步放大字体。图为放大后的界面。Private Sub Form_Click()Dim i As IntegerFor i = 1 To 28 Label1.Font.Size = Label1.Font.Size + 1Next iEnd 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 = sEnd 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 a, e, i, o, u n1 = n1 + 1 Case A, E, I, O, U n1 = n1 + 1 Case Else n2 = n2 + 1 End Select Next i Label2 = 元音字母有 & n1 & 个 Label3 = 辅音字母有 & n2 & 个 End IfEnd Sub 编程，用QBColor函数显示16种不同的颜色的文字。Private Sub Form_Click() For i = 0 To 15 ForeColor = QBColor( i ) Print 颜色代码： & i Next iEnd 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 Z Then MsgBox (第 & i & 个字符必须是大写字母！) Text1.SelStart =【i-1】 Text1.SelLength = 1 Text1.【SetFocus 】 Exit For End If Case 3 If c - Then MsgBox (第 & i & 个字符必须是字符 & -) Text1.SelStart = 【i-1】 Text1.SelLength = 1 Text1.【setfocus】 Exit For End If Case Else If c 9 Then MsgBox (第 & i & 个字符必须是数字！) Text1.SelStart =【i-1】 Text1.SelLength = 1 Text1.【setfocus】 Exit For End If End Select Next iEnd Sub实验八：第五章1:列表框和组合框 在Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加四个项目，分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”，编写适当的事件过程。程序运行后，如果单击列表框中的某一项，则该项就从列表框中消失。Private sub list1_click()List1.removeitem list1.listindexEnd sub 窗体上画2个命令按钮，标题分别为“添加项目”和“删除项目”，再画一个列表框和一个文本框。程序运行后，单击“添加项目”按钮，则从键盘输入要添加到列表框中的项目内容；单击“删除项目”按钮，则从键盘输入要删除的项目内容。下面提供的代码不完整，请补充完整。Private Sub Command1_Click() Text1.Text = InputBox(请输入要添加的项目) List1.AddItem text1End SubPrivate 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 iEnd Sub 在名称为Form1的窗体上画一个名称为Label1、标题为“添加项目：”的标签；画一个名称为Text1的文本框，没有初始内容；画一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目（不少于3个，内容任意）；再画两个命令按钮，名称分别为Command1和Command2，标题分别为“添加”、“统计”。在运行时，向Text1中输入字符，单击“添加”按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个数，请编写两个命令按钮的Click事件过程。程序中不得使用变量，也不能使用循环。Private sub command1_click()Combo1.additem text1Text1=”Text1.setfocusEnd subPrivate sub command2_click()Print combo1.listcountEnd sub 利用属性窗口向列表框添加四个项目：Visual Basic、Turbo C、C+、Java； 请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮Option1，然后单击“确定”命令按钮，则文本框中显示“笔试”；当选择列表框中的一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中显示“上机”。其中“”是在列表框中所选择的项目。Private sub command1_click()If option1 thenText1=list1.text & option1.captionElseText1=list1.text & option2.captionEnd ifEnd sub实验九：第五章2:控件数组 在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为300、800。窗体的标题为专业姓名。 在名称为Form1的窗体上画一个标签，和一个包含3个元素的命令按钮控件数组。 设计一个单选按钮控件数组，和一个文本框。程序运行时，选中单选按钮中的任何一项，都会在文本框里显示“您喜欢的出行方式是乘坐”。Private sub option1_click(index as integer)Text1=”你喜欢的出行方式是乘” & option1(index).captionEnd sub 设计一个单选按钮控件数组、一个命令按钮和一个文本框。程序运行时，选中单选按钮中的任何一项，然后单击“确认”按钮，在文本框里显示“您喜欢的出行方式是乘坐”。Private sub command1_click()For i=0 to 3If option1(i) thenText1=”你喜欢的出行方式是乘坐” & option1(i).captionEnd ifNext iEnd sub5统计字母A、B、C、D出现的次数，不区分大小写。将统计结果分别保存在变量A、B、C、D中。（提示：依次取出文本框里的一个字符， 如果是字母将其转换为下标（A1，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 *1Le=len(text1)For i=1 to leC=Ucase(mid(text1,I,1)If c=”A” and c0 then picture1.print “ ”;chr(j+64);”=”;a(j);Next jEnd sub