目录
实验题目1：设计窗体。参考界面如下： (2)
实验题目2： 设计一个计算器。参考界面如下： (3)
实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下： (4)visual basic pdf
实验题目4：设计界面，编写程序计算圆的周长和面积。参考界面如下： (4)
实验题目5：设计界面，编写程序验证算术运算符的功能。参考界面如下： (5)
实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考界面如下： (6)
实验题目7：输入一个三位数，将它按逆序输出。参考界面如下： (7)
实验题目8：输入两个数，将这两个数交换。 (8)
实验题目9：设计文本编辑窗体。 (8)
实验题目10：编写程序计算某个学生三门课程的平均成绩。 (10)
实验题目12：编写程序计算长方体的体积。 (10)
实验题目13：编写程序求出四个数中的最小数。 (11)
实验题目14：编写程序判断某个数是否是水仙花数。 (11)
实验题目15：编写程序，实现数字和英文单词的对应。 (12)
实验题目16：设计程序，判断从键盘上输入的某个字符为哪类字符。（大写字母、小写字母、数字字符或其他字符） (12)
实验题目17：设计一个简单的文本编辑器，可以实现文本的简单格式化操作。 (13)
实验题目18：编写程序输出图形，运行界面如下： (15)
实验题目19：编写程序求n！。 (15)
实验题目20：编写程序，求出某班所有同学某门课程的平均成绩。 (16)
实验题目21：编写程序输出1-100之间所有能被3整除的整数，要求每行输出5个。并输出这些整数的和。（用for语句实现） (16)
实验题目21：编写程序，统计输入的一个字符串中各类字符的个数。（用for语句实现）.17 实验题目22：编写程序，定义包含10个数组元素的一维数组，给该数组中的数组元素赋值为3，6，9，12......数字，并以顺序和逆序两种方式输出各元素值。. (17)
实验题目23：随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上，并分别统计奇数和偶数的个数。 (18)
实验题目24：用数组实现从键盘输入10个学生的计算机课程成绩，求其平均成绩和高于平均成绩的人数。 (18)
实验题目25：用数组实现从键盘输入10个学生的计算机课程成绩，求最高分和最低分。 (19)
实验题目26：阅读并上机运行下面程序，理解动态数组的用法。 (19)
实验题目27：阅读并上机运行下面程序，理解array函数的用法。 (20)
实验题目28：阅读并上机运行下面程序，理解for each ...... next语句的用法。.. (20)
实验题目29：用控件数组实现下面界面的设计。（建立一个含有3个单选按钮的控件数组，当单击某个单选按钮时，标签的背景分别显示不同的颜） (21)
实验题目30：阅读并运行以下程序，理解过程中的参数传递。 (21)
实验题目31：编写程序，实现两个变量值的交换。要求用过程。 (22)
实验题目32：以下代码的功能是：调用max “子过程”，求出两个数中的最大值。请将以下代码补充完整。 (22)
实验题目33：以下代码的功能是：调用max“函数过程”，求出两个数中的最大值。请将以下代码补充完整。 (23)
实验题目34：阅读并运行下面的程序代码，多次单击command1命令按钮，比较两种数组的区别。 (24)
实验题目35两种数组的区别是：用static定义的数组表示静态数组，如果没有给该数组赋初值，第一次运行时，各元素的初值都为0，再次运行时以上一次运行的结果作为初始值；用dim定义的数组则表示动态数组，如果没有给该数组赋初值，每次运行时，各元素的初值都为0。 (25)
实验题目36：设计窗体，界面如下：当单击“图片1”，“图片2”，“图片3”时，图片（像）框分别加载不同图片。（要求：图片自己从网上下载） (25)
End Sub (26)
实验题目37：设计个人情况登记程序。程序初始界面如下： (26)
Picture1.Print Combo1.Text & Combo2.Text & Combo3.Text (26)
实验题目38：设计“商品统计”窗体。初始界面如下： (26)
实验题目39：设计界面，实现调板功能。 (27)
End Sub (28)
实验题目40： (28)
实验题目1：设计窗体。参考界面如下：
运行前运行后
要求：
1）在窗体上添加一个标签，通过属性窗囗设置标签格式：
Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。
提示：字号FontSize、加粗FontBold、下划线FontUnderline
实验题目1源程序代码：
Private Sub Command1_Click()
Label1.FontSize = 30
End Sub
Private Sub Command2_Click()
Label1.FontBold = true
End Sub
Private Sub Command3_Click()
Label1.FontUnderline = True
End Sub
实验题目2： 设计一个计算器。参考界面如下：
要求：怎么在文本框中输入数据----直接输入，文本框有输入、编辑和显示文本的作用。 1）实现算术运算（+、-、*、/）的功能；
2）实现清除和结束的功能；
3）实现清除后，将焦点移到第一个文本框中。
实验题目2源程序代码：
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下：
要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。
说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。
实验题目3源程序代码：
Private Sub Command1_Click()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Text5.Text = Val(Text4.Text) / 3
End Sub
Private Sub Command3_Click()
‘（cls用于清除form和picturebox运行时生成的图片和文本）
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
实验题目4：设计界面，编写程序计算圆的周长和面积。参考界面如下：
要求：
①设置窗体的标题为“计算圆的周长和面积”。
②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。
③“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目4源程序代码：
Private Sub Command1_Click()
Dim r As Double, s As Double , c As Double
Const pi = 3.1415926    ‘声明用于代替文字量的常数。
r = Val(Text1.Text)
s = pi * r * r
c = 2 * pi * r
Text2.Text = Str(c)
‘返回代表一数值的 Variant (String)。当一数字转成字符串时，总会在前头保留一空位来表示正负。如果 number 为正，返回的字符串包含一前导空
格暗示有一正号。
Text3.Text = Str(s)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus    ‘ 将焦点移到第一个文本框中。
End Sub
实验题目5：设计界面，编写程序验证算术运算符的功能。参考界面如下：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。