青岛科技大学VB上机答案-实验一

实验一 VB环境和简单应用程序设计（4个学时）

一、实验目的

1.熟悉Visual Basic集成开发环境的使用。

2.掌握建立、编辑和运行简单的Visual Basic应用程序的全过程。

3.掌握窗体对象的属性、事件和方法。

二、实验内容

1. 在VB的集成开发环境中实现如下的操作：

1）、将“标准”工具栏去掉后再添加上，将“编辑”工具栏添上再去掉。

2)、分别利用“菜单”和“工具栏”中的命令打开“属性窗口”、“工程资源管理器窗口”

3）、将“窗体布局窗口“的”启动位置“设置成“手工”。

4)、在工具箱中任意添加一个Active X 控件。

5）、在工程1中增加两个窗体：Form1、Form2

6）、在工程1中增加两个标准模块：Module1 、Module2

7）、在工程1中增加一个类模块：Class1

8）、在工程资源管理器中将Form2、Module2 删除。

9）、在在工程资源管理器中利用“切换文件夹”按钮隐藏或显示对象的文件夹

10）、将代码窗口中的字体大小改为18号字。

2．设计一个窗体，窗体内有1个文本框和3个命令按钮控件。

要求：

当按“显示”按扭时，在文本框内显示“欢迎来到青岛科技大学！”一串红色、四号、隶书字符串。

当按“清除”按钮时，清除文本框内全部信息；

当按“退出”按钮时，结束程序运行。

1) 创建界面（将设计好的界面截下来粘贴在下面）

3)代码设计

Private Sub Command1_Click()

Text1.Text = "欢迎来到青岛科技大学!" Text1.ForeColor = vbRed

Text1.FontSize = 14

Text1.FontName = "黑体"

End Sub

Private Sub Command2_Click()

Text1.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

4)调试过程记录（错误情况及改正方法，不得少于三条）

（一）在进行“显示”指令设置时由于不清楚指令代码，导致指令编写错误。后经老师指正得以改正并调试成功。

（二）在进行属性设置时开始不是通过编码进行，而是在属性窗口中直接设置。后与同学对比发现错误，改正后调试成功。

（三）在进行“清除”指令设置时由于开始时使用了”SelText”代码，导致后面设置时出现错误。

后经老师指正，改使用”Text”代码，调试后成功。

3. 设计一个窗体，在窗体上添加一个文本框和三个命令按钮。

要求：

当按“显示”按扭时，在文本框内显示“Visual Basic 程序设计”一串字符串。

当按“黑体”按钮时，文本框内的字符串的字体变为黑体；

当按“隶书”按钮时，文本框内的字符串的字体变为隶书；

1)创建界面（将设计好的界面截下来粘贴在下面）

3)代码设计

Private Sub Command1_Click()

Text1.Text = "Visual Basic 程序设计"

End Sub

Private Sub Command2_Click(Index As Integer)

Text1.FontName = "黑体"

End Sub

Private Sub Command3_Click()

Text1.FontName = "宋体"

End Sub

4)调试过程记录（错误情况及改正方法，不得少于三条）

(一)在调试“显示”程序时，由于将显示内容写在调试文本框的程序中，导致调试不成功。后来将

代码位置书写正确后调试成功。

(二)在调试“黑体”程序时，由于代码输入时引号用了汉语格式，导致调试不成功。后将其改为英

文格式后调试成功。

(三)在调试“隶书”程序时由于系统不支持隶书形式，导致调试失败。将其改为宋体后调试成功。

VB期末考试试题及答案

二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value

7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。

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全部上机练习题

VB上机练习题3 1、实验教材P9 (1) 2、实验教材P9 (2) 3、实验教材P9 (3) 4、在窗体上设计一个标签，要求标签有边框，当程序运行时标签中显示内容为“验证性实验”，窗体的背景颜色为“黄色”，当单击标签时，显示的内容水平居中对齐，双击标签时，标签的背景透明。 5、按照下面窗体的式样设计窗体界面，然后编写程序代码实现下面的加法器功能：当程序运行时单击“出题”按钮，分别在文本框Text1和Text2中随机出[10—90]之间的两位整数（提示：用随机函数Rnd），当单击“=”按钮时，在文本框Text3中显示计算的结果，单击“清除”按钮时，三个文本框中的内容全部清除。 VB上机练习题4 1、设a=2, b=3, c=4, d=5, 求下列表达式的值，将答案写在每题的后面。 (1) a+c < b+d (2) a+b <> c+d (3) a > b AND c<=d (4) b < c AND d>a (5) a < c OR d<=b (6) a > b OR c<=d (7)NOT a>b OR c>=d (8)3>2*b OR a=c AND b <> c OR c< d 2、将下列数学式子写成vb表达式，将答案写在每题的后面。 (1) 5+(a+b)2 (2)e2+2 (3)2a(7+b) (4)8e3ln2 (5) (6) 3、将答案写在每题的后面。 (1) (2)print chr(97) (3)print Asc(“B”)

(4)print Asc(“def”) (5)print Sqr(2) (6) print sgn(2) 4、写出下列程序的运行结果，将答案写在每题的后面。 设ab$=”ABCDEF” (1)Print Left(ab$ , 4) (2)Print Mid(ab$ , 2, 4) (3)print Right(ab$ , 4) (4)print Len(ab$) 5、按照运算符的运算顺序(函数>算术运算符>关系运算符>逻辑运算符) 计算表达式的值：10\ 97 / Asc(“a”)*(18.7 mod 4)+Int(8.7-5.5) 6、产生[10，100]区间内的随机整数使用________________________语句？ 7、实验教程P10 （6）。 8、编写程序，要求程序运行时在四个文本框中分别任意输入相应的信息（见下图），当单 击“计算”按钮时在窗体中按照下图格式输出此人相应的信息及总分和平均分，平均分保留两位小数（用Format（S，“###.##”）函数实现）。单击“清除”按钮时清除四个文本框中的内容及窗体中显示的信息。单击“结束”按钮时结束运行。运行界面如下图。（可参考实验教程P16 例2-1） 9、编写程序，要求程序运行时单击“生成”按钮在窗体中输出指定范围内的（范围在程 序运行时由两个文本框任意输入）3个随机整数和这三个随机整数和的平方根，平方根保留两位小数（用Format（S，“###.##”）函数实现）。单击“清除”按钮时清除两个文本框中的内容及窗体中显示的红色信息。单击“结束”按钮时结束运行。运行界面如下图。

VB上机程序调试题_题目及参考答案

第二部分VB上机考试模拟试题 一、程序调试题(改错或填空) （二）程序调试题 [题1] Modify.bas模块中的getanswer过程是用于计算一元二次方程的根，并将结果输出来。 Option Explicit Public Sub getanswer() '该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c# a = InputBox("输入系数a") b = InputBox("输入系数b") c = InputBox("输入系数c") dalt = b * b - 4 * a * c If ----1---- dalt >0 then dalt = Sqr(dalt) MsgBox Format((-b + dalt) / 2 / a), "0.00" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") Elseif ---2---- dalt =0 then MsgBox Format(-b / 2 / a, "0.00") + Chr(13) + Chr(10) + Format(-b / 2 / a, "0.00") Else dalt= ---3---- Sqr(-dalt) MsgBox Format((-b + dalt) / 2 / a, "0.00") + "+i" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") + "-i" End If End Sub [题2] 打印输出一菱形图案。 Public Sub prt() '打印由#组成的菱形图案 ' # ' ### ' ##### ' ####### ' ######### ' ####### ' ##### ' ### Dim start As String '每行起始空格数 Dim count As Integer '每行#个数 For i = 1 To 9 If i <= 5 Then '------1------ start=space(21-i) count = 2 * i - 1 Else start = Space(11 + i) '-------2------ count=19-2*i End If '------3------ form1.print start; For j = 1 To count Form1.Print "#"; Next j '------4------ form1.print Next i [题3] 过程pyramid用以打印一个数字金字塔，请在横线上填入必要的内容（将横线删除掉后填入正确的内容），使其完整。 Option Explicit Public Sub pyramid() '打印数字金字塔 ' 1 ' 222 ' 33333 ' 4444444 ' 555555555 ' 6666666 ' 77777 ' 888 ' 9 Dim i As Integer Dim j As Integer Dim start As String '每行起始空格数 Dim num As Integer '每行数字个数 For i = 1 To 9 If i <= 5 Then start = Space(20 - i) num = 2 * i - 1 Else start= '------1------ Space(10 + i) num= '------2------ 2 * (10-i) - 1 End If Form1.Print start; For j = 1 To num '------3------ form1.print trim(str(i)); Next j '------4------ form1.print Next i End Sub [题4] 改错。 Option Explicit Public Sub prt() '打印由数字组成的如下所示金字塔图案 ' 9 ' 888 ' 77777 ' 6666666 ' 555555555 ' 44444444444 ' 3333333333333 ' 222222222222222 ' 11111111111111111 Dim i As Integer, j As Integer '****** 错误1 ****** For i = 9 To 1 step -1 Form1.Print Space(i); '****** 错误2 ****** For j = 1 To 2 *(10- i) - 1 '****** 错误3 ****** Form1.Print trim(str(i)); Next j

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.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和， 结果显示在label3中。 https://www.wendangku.net/doc/0b4842526.html,bel3的背景色每隔1.5秒蓝红交替。

Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()

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过程完成上述功能。

VB上机实验三(2012-3-26)

《Visual Basic语言》上机实验三 实验名称：数据类型、运算符和表达式 一、实验目的 1.掌握Visual Basic的数据类型和变量定义方法。 2.正确使用Visual Basic的运算符和表达式。 3.掌握Visual Basic常用函数的使用方法。 二、背景知识 1．Visual Basic的数据类型 Visual Basic提供了丰富的数据类型，所有的数据都具有数据类型，如果数据的数值和数据类型不匹配，就会出现错误或者造成内存空间的浪费。Visual Basic将数据类型分为标准数据类型和自定义类型。 标准数据类型包括数值型数据类型、非数值型数据类型和变体数据类型。其中数值型数据类型包括整型、长整型、单精度型、双精度型、货币型、字节型等；非数值类型包括日期型、逻辑型（布尔型）、字符串型和对象型数据类型。 除了以上标准数据类型外，用户还可以根据需要自定义数据类型，称为自定义类型。2．Visual Basic变量的声明 变量用来在程序运行期间临时存储数据。变量名、类型、值称为变量的三要素。变量名表示的是变量在内存中的地址，类型决定了变量在内存中的存储方式和所占内存单元的大小，值指的是变量名所对应内存单元的存储内容。 所谓声明一个变量，就是先将变量的有关信息（变量名和变量的数据类型）告诉程序。变量的声明方式有三种： （1）显式声明：用Dim、Static、Public、Private等声明语句显式声明变量及类型。（2）隐式声明：Visual Basic允许用户在编写应用程序时，不声明变量而直接使用，系统临时为新变量分配存储空间并使用。所有隐式声明的变量都是为变体类型Variant。系统根据程序中赋予变量的值来自动调整变量的类型。 （3）强制类型声明：在程序中用到的变量必须事先声明，要达到此目的，方法是在窗体模块或标准模块的“通用－声明”部分写上语句：Option Explicit，也可以在“工具”菜单中选取“选项”命令，然后在打开的对话框中单击“编辑器”选项卡，再复选“要求变量声明”选项，这样系统就会在新模块中自动插入Option Explicit语句。 3．运算符及优先级 （1）不同类型运算符优先级别如下： 算术运算符＞字符串运算符＞关系运算符＞逻辑运算符 （2）相同类型运算符优先级别如下： ①算术运算符：乘方（^）＞负号（-）＞乘除（*、/）＞整除（\）＞求余（Mod）＞加减（+、-） ②字符串运算符:优先级别相同 ③关系运算符:所有关系运算符优先级别相同 ④逻辑运算符:逻辑非（Not）＞逻辑与（And）＞逻辑或（Or） 4．Visual Basic的表达式 表达式是指用运算符或圆括号将运算元素连接起来的一个有意义的式子。 （1）表达式的类型

vb经典题目及答案

1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。

(完整版)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 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 Text1

VB上机考试习题以及答案

VB上机考试 1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 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 = In t(R nd * (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.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1

VB上机题汇总

以题号保存，如第1题取名：1.Frm 、1.Vbp 。 1、 编制事件过程Command1_Click ，执行该过程时调用InputBox 函数输入x ，按下式计算y 并以标签 控件Label1显示y 值。 ?????>+-<=<=-+?-<-+=5 log 5552 sin 51 23102x x x x x x x x x y x 2、 编程运行时单击命令按钮，输入行数n(n<10)然后在窗体上输出n 层数字金字塔。 3、 编程求f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)。在窗体上输出结果，运行效果如下图所示。。 4、 计算下式的和，变量x 与n 的数值用输入对话框输入。在窗体上输出结果，运行效果如下图所示。 )! 1(...!4!3!23 2 +++++=n x x x x s n 5、 建立一个5行5列二维数组，要求对角线为1，其余元素为0。运行结果如图所示。 6、 建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。 7、 编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输 出到窗体，并求出其最大元素及最大元素的行、列坐标。 8、 编制通用函数过程(Sum )，计算1+2+……+N 的值。在窗体的Click 事件中调用该函数。

9、编制通用函数过程(Fact)，计算N！的值。在窗体的Click事件中调用该函数。 10、编制通用函数过程(Prime)，用于判断1个整数是否为素数，若是则显示true，若不是则显示 false。在窗体的Click事件中调用该函数。 11、编制通用函数过程(Odd)。用于判断一个整数的奇偶性。在窗体的Click事件中调用该函数。 12、编制通用函数过程（Average），计算Double类型一维数组所有元素的平均值。在窗体的Click 事件中调用该函数。 13、编制通用Sub过程(Sort)，用选择法对一维数组按从大到小进行排序。在窗体的Click事件中 调用该函数。 14、编制函数过程(Sum)，用于计算1个整数的各位数字之和（如引用Sum(132)的结果是6，引用 Sum(-23)的结果是5，等等）。在窗体的Click事件中调用该函数。

VB实验一

实验一熟悉VB6.0开发环境 [实验目的] 1.掌握VB集成开发环境的启动和退出 2.了解VB集成开发环境的基本组成 3.掌握VB常用函数和表达式的应用 4.学会在VB集成开发环境中建立应用程序 [实验内容] 一、VB集成开发环境的启动和退出 1.启动VB集成开发环境 想一想：可以通过哪些方法启动VB集成开发环境。 2.在“新建工程”对话框中选择“标准EXE” 注意：在“新建工程”对话框中有几个选项卡？它们各有什么作用？在“新建”选项卡中有哪些选项？ 3.熟悉VB集成开发环境 4.退出VB集成开发环境 想一想：可以通过哪些方法退出VB集成开发环境。 二、VB集成开发环境的基本组成 1.指出VB集成环境中各组成部分的名称。 2.找到并熟悉VB集成环境中的工具箱、工程管理器窗口、属性窗口、窗体 设计器窗口、代码窗口；掌握打开和关闭这些窗口的方法。 想一想：可以通过哪些方法打开代码窗口。 3.掌握在窗体设计器窗口中添加控件。 4.学会设置窗体、命令按钮、文本框的最常用属性。 5.在代码窗口中找到窗体、命令按钮、文本框的主要事件，学会在对象事件 过程中输入代码。 想一想：窗体、命令按钮、文本框的缺省事件是什么。 三、VB的函数和表达式 1、计算下列函数值。 (1)Sqr(4+3*7) (2)Int(123.8) (3)Abs(-4.6) (4)Mid$(“abcdABCD”,5,4) (5)Len(“湖北民族学院”) (6)Asc(“M”) (7)Asc(Chr(100)) (8)Chr(78) (9)DateDiff(“d”,#3/25/2006#,#10/30/2010#) (10)IsDate(#11/20/2010#)

VB期末考试上机题编程答案

VB期末考试上机题编程答案 1.新建一个工程，编写一个找出所有四位荣幸数显示在列表框中，并将荣幸数的个数显示在文本框中。所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为和，保存在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 i: a = a + 1 Next i = a End Sub Private Sub Command2_Click() = ““ 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 If s1 = s2 Then k = True End Function 2.新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“求和“按钮，则在文本框中显示计算得到的因子和； 3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框； 4、单击“退出”按钮，结束程序运行；

VB练习题(上机)含标准答案

第一部分 １在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值"）。程序运行后，单击命令按钮完成以下工作： ①随机产生20个０到10０0的整数,将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上（如下图所示) ＰrivaｔｅSub Cmd1_Cｌick（) Ｄim ａ%（１9）, i%,ｓum!, avｅr! Raｎdomizｅ Foｒｉ= 0 Ｔo１9 a(i) =Int(Rｎd * 100１） sum = sum ＋a(i） Nｅxｔi ａver = suｍ/20 Print aveｒ EnｄSub 2 请在名称为Fｏrm1的窗体上添加一个名称为Ｔext１的文本框和一个名称为C1、标题为＂转换＂的命令按钮,如下图所示。在程序运行时，单击＂转换＂按钮,可以把Tｅxｔ1中的小写字母转换为大写，把大写字母转换为小写,其他字符不变。 Prｉvate Sub Ｃ1_Clｉｃｋ() Dim ｃh As String, ch１ As String, i％ cｈ= Text1 Ｆoｒ i = 1 Ｔo Len(ｃｈ） Ｉf Aｓｃ(Mｉd（ｃh，i, 1)) >= ６5 And Aｓｃ(Mid(cｈ, i, 1)) <= 9０Theｎ ｃh１= ch1 + LCａse（Mid(cｈ, i, 1）)

Elｓｅ ｃｈ1 ＝ ch1 ＋ UCasｅ（Ｍid(ｃh, i, 1)） Enｄ If Neｘｔ i Text1 = Teｘｔ１＋ vｂCｒＬf Teｘt１＝ Text1 ＋ ch1 End Ｓub 3 在窗体上添加一个命令按钮(名称为MyCｍd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作： ①随机产生3０个0~100０的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Prｉvate SuｂMyCmｄ１_Ｃliｃk() Diｍa%(2９)， i%, max% Ｒandomize Fｏr i = 0 To ２9 a(i) ＝Ｉnt(Rｎd ＊ 1００1) Nｅxｔ i ｍａx = ａ(0) Foｒi ＝ 1 To 2９ Iｆ a(i) > max Ｔｈｅn max = a（i) Nｅｘt ｉ Pｒint mａｘ End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。

计算机一级VB上机理解练习知识题

2007—2008(2) VB上机练习题 1．设计一个数字钟表程序，界面如图所示。运行时单击窗体，显示当前的年月日星期及时间。 2．设计一个数学函数程序，界面如图所示。程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。文本框始终处于选中状态。 3．设计口令检测界面，口令自定，运行初始如第一幅图，若口令错，则如第二幅图；否则，将显示另一欢迎窗口，如第三幅图所示。在连续三次输入错误口令后，给出警告并结束运行。 4．设计一个程序，用户界面如下图所示。程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。

5．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。 6．设计一个程序，用户界面如下图所示。程序运行后，单击Command1按钮，求出最大最小数。 7．设计一个100（随机函数产生）之内的四则运算题，界面如下。

8．设计一个窗体Forml，界面如右图所示。编写适当的 事件过程，程序运行后在第一个文本框中输入圆的半径， 单击“计算”按钮，分别在第二个和第三个文本框中显示 圆的面积和周长。 9．界面如下图所示。编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，如果可以在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。

10．某工程运行时，图片框中图可以任意。单击“隐藏图像”按钮（command2）界面如右图，单击“显示图像”按钮（command1）界面如左图，编写适当的事件过程。 11．在文本框T1中打印100~999之间的所有水仙花数。 （该数为各位数字的立方和。例如：153=1 3+5 3+3 3） 12．有一数列，它的头2个数为0、1，以后的每个数都是其前2个数之和。编程在文本框T1中输出所有这些数列，直到第30个数或最后一项等于1000为止，同时在另一文本框中输出它们的和。 13. 在窗体上画两个命令按钮分别求12+22+32+42+……+1002和1-3+5-7+…+(-1)n+1(2n-1)的累加和。并将结果输出到Label1和Label2中。 14．在窗体上画两个文本框，其名为Text1和Text2，内容为空白，再画一个命令按钮，名为C1，

VB本科上机实验

VB程序设计上机实验 ----李运娣（本科）

实验一熟悉VB6.0集成开发环境 一实验目的 1 熟悉VB的运行环境，了解VB所用计算机系统软、硬件配置。 2 初步掌握VB开发环境中编写程序的步骤 3 通过运行简单的VB程序，了解VB程序的基本结构及特性。 二实验内容 1 建立自己的文件夹，以备存放文件。 进入VB 集成环境，熟悉VB的菜单栏、工具栏、工具箱、工程管理器、属性窗口、对象浏览器、窗体设计器以及代码编辑器窗口。通过在VB环境下简单程序的编写熟悉编辑、编译和运行一个VB程序的过程。 2 设计一程序，由用户通过文本框输入圆的半径，计算并输出圆的周长和面积。界面如下： 输入代码：双击“计算”按钮进入代码编辑窗口，输入以下代码 Private Sub Command1_Click() //该行系统自动生成 Text2.Text = 2 * 3.14 * V al(Text1.Text) Text3.Text = 3.14 * Val(Text1.Text) ^ 2 End Sub //该行系统自动生成 再双击“退出”按钮进入代码编辑窗口，输入以下代码 Private Sub Command2_Click() End End Sub

设计界面和输入代码，多次输入半径查看计算结果，通过该例子的设计运行进一步熟悉VB开发环境，熟悉VB程序开发步骤。 三实验要求 1上机前认真预习本次上机实验内容。 2 上机输入和调试程序，调试通过后，记录程序清单和运行结果。

实验二程序设计初步 一实验目的 1 进一步掌握运行一个VB语言程序的方法和步骤。 2 分清VB语言的符号、标识符、保留字的区别。 3 掌握VB语言的各种数据类型，会定义以及对它们进行赋值。 4 掌握数据输入函数和数据输出函数的使用方法。 5 了解顺序程序设计。 二实验内容 1设计如下图所示的界面，当点击“显示”按钮时，在窗体上显示一副背景图片，点击“隐藏”按钮时再使其消失。 2设计一个窗体，在其中创建两个标签和两个文本框，标签用于显示提示信息，其标题分别为“密码”和“明码”；两个文本框中一个用于输入密码，输入的密码要以“*”号显示，另一个将输入的密码的真实字符显示出来。 三实验要求 1上机前认真预习本次上机实验内容，思考要编写的程序。 2 上机输入和调试程序，调试通过后，记录程序清单和运行结果。 3 上机结束后，按照上机的具体要求，写出实验报告。