医用VB编程题

1.运行时单击窗口，调用Inputbox函数输入一个数，判断其是否为质数，把判断结果信息
显示在MsgBox对话框上
2.计算1！-3！+5！-7！+…13！的结果，并把结果显示在MsgBox对话框上。

3.计算满足1+2+3+…n>2000的最小的n值？
4.在文本框中输入一组字符，（全部由英文字母组成，不分大小写）判断大写字母的个数？
5.产生10个0-20范围内的随机整数，找出其中的最大数、最小数，同时计算出这10个数
的平均值。

6.利用循环语句和Print方法，产生如图所示的星号图形。

7.找出2000以内的“完数”，并统计其个数。

完数的值恰好等于它所有的因子之和。

例如：
6是完数，6的因子为1，2，3，而6 = 1+2+3。

8.随机产生0-9之间的整数形成一个3X3的矩阵，存储在一个二维数组里并显示出来，然
后求其上三角、下三角、主次对角线元素之和。

9.随机产生0-9之间的整数形成一个3X5的矩阵，存储在一个二维数组里并显示出来，然
后所有偶数之和。

10.随机产生10个3位整数存放在一数组中，编写一过程对该数组排序（升序）。

11..画出如图所示的图形（坐标系自定义）
12.找出99—10000里面的最小的10个素数，并且打印在窗体上。

13.输入一个整数区间的上限和下限，点击按钮产生并显示该区间内的随机整数。

14.统计计算机产生总共20个大于100的数的产生次数，计算机一次能产生3个90—110
的随机数。

（静态变量）
15.随机产生20个学生的成绩，统计出60分段，70分段，80分段，90分段的人数。

16.用Line方法绘制直角三角形。

17.随机产生10个三位整数，放在数组中，用Print方法显示出每个元素的值；同时对这些
随机数按从小到大的顺序排序，排序后用Print方法显示出来这些随机数。

18.由inputbox输入2个正整数，求出它们的最大公约数和最小公倍数，结果由msgbox输
出
19.在文本框内输入自己的身份证号码，单击“生日按钮”后在标签中显示自己的生日。

20.在图片框中打印如图所示的图形。

（字母顺序，逆序）
实验要求：
每次上机实验前请写出主要的程序设计思路和主要的程序代码。

第01次上机实验题目
1.在实验室计算机的D盘根目录下建立一个以自己学号为文件夹名的文件夹。

此后所有的实验作业保存在此文件夹下面。

2.设计如图所示的药品价格计算器。

完成后保存文件，窗体文件名为SY1-1，
工程文件名也为SY1-1。

3.设计如图所示的人民币与美元的兑换程序。

完成后保存文件，窗体文件名为
SY1-2，工程文件名也为SY1-2。

4.单击窗口，在窗体上显示如图的文字信息。

其中字体为黑体、28号、加粗、
加下划线、加倾斜，红色字，窗口背景为绿色。

完成后保存文件，窗体文件名为SY1-3，工程文件名也为SY1-3。

5.（选做）在窗口上拖动鼠标，在窗口的标题栏中显示鼠标指针的坐标位置。

窗体文件名为SY1-4，工程文件名也为SY1-4。

每次实验完成后请总结实验中问题，思考改进措施。

第02次上机实验题目
1.在两文本框中输入数据，单击等号命令按钮，结果显示在标签中（标签加了
边框），如图所示。

完成后保存文件，窗体文件名为SY2-1，工程文件名也为SY2-1。

2.编写程序实现窗体一出现时(Load事件过程)，用Print方法在窗体上显示计
算机系统当前的日期和时间，要求字体加粗、倾斜、下画线，字的颜色为红色。

窗体文件名为SY2-2，工程文件名也为SY2-2。

3.在窗口中添加一个标签，设置BorderStyle属性为有边框，编写程序代码实
现：单击窗体后，标签上显示如图所示的信息，标签文字字体设置为隶书，文字大小20，加粗，倾斜，下画线。

完成后保存文件，窗体文件名为SY2-3，工程文件名也为SY2-3。

4.在计算机系统上查找一幅*.jpg图片，复制到学号文件夹下面，重命令为
a.jpg。

在窗体上添加1按钮，单击按钮给窗体加载背景图片，如图所示。

窗体文件名为SY2-4，工程文件名也为SY2-4。

(使用LoadPicture函数)
5.编写程序，调用InputBox函数输入存款的本金X和存款年限N，计算若干
年后本金和利息的总和是多少？假设年利率固定为4%，计算公式为：总计=本金*（1+4%）N,计算的结果通过调用MsgBox函数显示。

工程文件名：sy2-5;
窗体文件名：sy2-5
1、在窗口的单击事件中完成如下操作：
（1）：产生一个“C ”到“L ”范围内的大写字符。

（2）：产生一个100-200（包含100和200）范围内的正整数。

（3）：计算下列表达式的值，注意运算符的功能。

①10\4.6 ②77.2 Mod 2.6
③7^4 ④9^(-1/2)
⑤2>3 ⑥2>3 And “abc ”>“ABC ”
⑦“A ” & “a ” ⑧“A ” + “a ”
（4）：计算下列表达式的值，注意标准函数的功能。

①Int(-123.45) ②Round(123.4567)
③Round(123.4567,3) ④Val(“95分”)
⑤Str(95.8) ⑥String(3, “ABC ”)
⑦Len(“2010级”) ⑧Int(Rnd)
（5）：计算下列表达式的值，注意运算符的运算顺序。

①18\4*4.0^2/1.6 ②25\3 Mod 3.2*Int(2.5)
③25.15+“0.85”=26
2、在窗体上建立1个“交换”命令按钮（Command1），使用InputBox 输入两个值a,b ，在窗体上输出交换后的值，程序运行结果如图所示。

保存的窗体文件名为Sy3-2，工程文件名为Sy3-2。

3、编写程序，计算自由落体的位移。

其公式为：
t v t s 02g 2
1+= 其中，g （=9.81）为重力加速度，可定义为符号常量。

v 0为初速，t 为经历的时间，可由InputBox 函数输入，由MsgBox 函数显示计算结果。

保存的窗体文件名为Sy3-3，工程文件名为Sy3-3。

4、编写一个时钟的程序。

要求单击窗体显示当前的年月日及时间，如图所示。

注意：使用Now 函数来实现。

保存的窗体文件名为Sy3-4，工程文件名为Sy3-4。

5、利用随机函数产生一个两位正整数，将其个位数与十位数对换。

例如，产生的数为78，
则结果应为87。

保存窗体程序的文件名为Sy3-5，保存工程的文件名为Sy3-5。

1. 运行时单击窗口，调用Inputbox 函数输入一个数，判断其是否为正整数，如果为正整数判断其奇偶性，把结果信息显示在MsgBox 对话框上，保存窗体sy4-1，工程sy4-1。

2. 运行时单击窗口，随机产生一个1000-9999间的整数，判断其是否是6的倍数。

用Print 方法把产生的随机数和判断结果显示在窗口上。

保存窗体sy4-2，工程sy4-2。

3. 设银行的定期存款利率为：一年期2.52%，二年期3.06%，三年期3.69%，五年期
4.14%。

请输入存款金额，并选择存款年限，编程计算到期利息。

保存窗体sy4-3，工程sy4-3。

4. 为医院计算公费医疗报销费。

程序界面如图所示，报销比例是分段计算，具体报销比例为：医疗费600元以内，不报销；医疗费大于600元并在2000元以内，报销70%；医疗费大于2000元并在10000元以内，报销80%；医疗费大于10000元并在30000元以内，报销90%；医疗费大于50000元并参加大病保险，报销100%。

程序功能：在文本框（Text1）中输入医疗费，单击“计算”按钮（Command1），则可根据医疗费计算应报销的费用，并将计算结果显示在标签框（Label1）内，如果医疗费大于50000元，系统会提示是否参加大病保险，如果参加则多于50000的费用全部报销。

保存的窗体文件名为sy4-4，工程文件名为sy4-4。

5. （选做题）利用随机函数产生三个[10,1000]之间的整数，若这三个数能构成三角形的三条边，则求这个三角形的面积；否则输出出错信息。

分析：三个数构成三角形的三条边的充分条件：三个数均大于0；任意二条边的和大于第三边。

已知三角形的三条边a,b,c ，求其面积s 的公式为：
2c b a p ++=))()((c p b p a p p s ---=
1.利用一种循环语句计算1+2+3+……+100的结果。

保存窗体sy6-1，
工程sy6-1
2.计算s=2!+4!+6!+……+12！的结果，结果显示窗口上。

保存窗体
sy6-2，工程sy6-2。

3.产生10个100-999范围内的随机整数，找出其中的最大数、最小
数，同时计算出这10个数的平均值。

保存窗体sy6-3，工程sy6-3。

4.利用Inpubox函数输入2个正整数，求其最小公倍数，结果用
Msgbox函数显示。

保存窗体sy6-4，工程sy6-4。

5.利用Inpubox函数输入1个正整数，判断其是否为质数（素数），
结果用Msgbox函数显示。

保存窗体sy6-5，工程sy6-5。

6.（选做题）利用循环语句和Print方法，产生如图所示的星号图
形。

保存窗体和工程分别为sy6-6、sy6-7 、sy6-8。

7.（选做题）找出1000以内“完数”，并统计其的个数。

完数的值恰好等于
它所有的因子之和。

例如：6是完数，6的因子为1，2，3，而6 = 1+2+3。

保存窗体sy6-9，工程sy6-9。

1.随机产生0-9之间的整数形成一个5X5的矩阵，存储在一个二维数组里并显
示出来，然后求其上三角、下三角、主次对角线元素之和。

窗体文件和工程文件均保存为sy6-1
2.随机产生6个二位整数，使用选择排序将其降序排列。

然后插入一个二位数
到该序列中恰当的位置，使其保持原有序列。

把插入操作前后的两个序列都显示出来。

窗体文件和工程文件均保存为sy6-2
3.随机产生一个数据为个位数的5x5矩阵，然后显示其转置矩阵。

运行结果如
图7-2所示。

窗体文件和工程文件均保存为sy6-3
图7-2 实验7-2程序运行结果
4.随机产生10个两位数保存在数组中，找出最大值、最小值，计算最大值与
最小值的平均值，统计小于该平均值的个数。

窗体文件和工程文件均保存为sy6-4
5.用随机函数产生有N（N≥10）个元素(取值范围为[10,200])组成的一维数组，
按从大到小的顺序显示出来，并求它们的平均值，找出大于平均值的数据。

窗体文件和工程文件均保存为sy6-5
6.利用随机函数模拟掷麻将骰子，要求统计掷1000次麻将骰子每种情况出现
的次数。

窗体文件和工程文件均保存为sy6-6
1.输入一个整数，编写一函数判断该数是否同时是2和7的倍数，窗体文件和
工程文件均保存为sy7-1
2.实验10-2：计算1+（1+2）+（1+2+3）+……+（1+2+3+……+n）的值，其中
n的值在调用程序中由用户输入，窗体文件和工程文件均保存为sy7-2
3.利用子过程或函数，编写程序计算!3!5!8
，窗体文件和工程文件均保存为sy7-3
4.随机产生10个3位整数存放在一数组中，编写一过程对该数组排序，窗体
文件和工程文件均保存为sy7-4
5.利用子过程或函数，编写程序验证歌德巴赫猜想：一个不小于6 的偶数可
以表示为两个素数之和，验证1000以内的偶数符合歌德巴赫猜想。

例如：6=3+3，8=3+5，10=3+7，……，窗体文件和工程文件均保存为sy7-5
1.拖动滚动条改变标签字体大小，如图所示。

滚动条Min属性设置为1，Max
属性设置为72，保存窗体和工程文件均为sy8-1
2.滚动条控制图片框的背景色，如图所示。

三滚动条的Min属性均设置为0，
Max属性设置为255，保存窗体和工程文件均为sy8-2
3.实时显示计算机系统时间，时钟控件的Interval属性设置为1000，保存窗
体和工程文件均为sy8-3
4.用时钟控件控制标签在窗口中左右来回移动。

时钟控件的Interval属性设
置为100，每个时钟间隔移动的距离自定义。

保存窗体和工程文件均为sy8-4
5、画出如图所示的图形（坐标系和矩形对角线各点坐标自定义），保存窗体
sy8-5，工程sy8-5
6、画出如图所示的图形（坐标系自定义），保存窗体sy8-6，工程sy8-6
7、画出如图所示的图形（坐标系和各圆心坐标自定义），保存窗体sy8-7，工程sy8-7
Private Sub Form_click()
Dim a$(1 To 20)
For i = 1 To 20
n = Int(Rnd * 10) + 1
If Max < n Then Max = n
For j = 1 To n
ch = Chr(Int(Rnd * (90 - 65 + 1) + 65))
a(i) = a(i) & ch
Next j
Print Tab(11 * s + 1); a(i);
s = s + 1
If i Mod 5 = 0 Then Print: s = 0
Next i
Print
For i = 1 To 20
If Len(a(i)) = Max Then Print Tab(1); a(i); Next i
End Sub。