vb程序题50道

'1.输入3个数，输出最大的数 Private Sub Command11_Click() Dim max% X1=Val(InputBox(\X2=Val(InputBox(\x3=Val(InputBox(\max=X1 If max<=X2 Then max=X2 End If If max<=x3 Then max=x3 End If MsgBox(\个数之中的最大数max=\End Sub Private Sub Command12_Click() '2.'有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 a=Val(InputBox(\B=Val(InputBox(\c=Val(InputBox(\s=B^2-4*a*c If a<>0 Then If s=0 Then MsgBox(\两个相等实根\ElseIf s>0 Then MsgBox(\两个不相等实根\ElseIf s<0 Then MsgBox(\两个不相等虚根\End If Else MsgBox(\无解\End If End Sub Private Sub Command13_Click() '3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示\恭喜！成绩通过！\，若小于60，则弹出消息框，显示\抱歉！成绩没有通过！\X=Val(InputBox(\If X>=60 Then MsgBox(\恭喜！成绩通过！\Else MsgBox(\抱歉！成绩没有通过！\End If End Sub Private Sub Command14_Click() '4.输入一年份，判断它是否为闰年，

'1.输入3个数，输出最大的数 Private Sub Command11_Click() Dim max% X1=Val(InputBox(\X2=Val(InputBox(\x3=Val(InputBox(\max=X1 If max<=X2 Then max=X2 End If If max<=x3 Then max=x3 End If MsgBox(\个数之中的最大数max=\End Sub Private Sub Command12_Click() '2.'有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 a=Val(InputBox(\B=Val(InputBox(\c=Val(InputBox(\s=B^2-4*a*c If a<>0 Then If s=0 Then MsgBox(\两个相等实根\ElseIf s>0 Then MsgBox(\两个不相等实根\ElseIf s<0 Then MsgBox(\两个不相等虚根\End If Else MsgBox(\无解\End If End Sub Private Sub Command13_Click() '3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示\恭喜！成绩通过！\，若小于60，则弹出消息框，显示\抱歉！成绩没有通过！\X=Val(InputBox(\If X>=60 Then MsgBox(\恭喜！成绩通过！\Else MsgBox(\抱歉！成绩没有通过！\End If End Sub Private Sub Command14_Click() '4.输入一年份，判断它是否为闰年，

VB程序设计结构：顺序结构、分支结构、循环结构。 二、分支结构：

一、顺序结构题： 1、以下程序段的执行结果是?

A=1

b=5

c=4

a=b

b=c

c=a

Print a;b;c 3、下面程序段的划线部分应是? A=356 b=214 t=a a=b print a;b 运行结果 214356

5、经过几下几条语句，A和B的 值分别为多少？ A=6 B=7 C=A A=B B=C

2、该程序段运行后， 变量b的值为 ? a=7 b=8 a=a+b b=a-b 4、该程序段运行后，变量a的值为 ? a=8 b=7 z=a a=b b=z 6、Text1和Text2中分别输入5，6，求Labe7l中值？ Dim X AS Single, Y AS Single, Z AS Single X=Val（Text1.text） Y=Val（Text2.text） Z=X*Y／10 Label7.caption=Z

IF <条件> Then 当条件满足时，执行语句组1 <语句组1> 当条件不满足时，执行

《概率论与数理统计》（第四版）选做习题全解

1.一打靶场备有5支某种型号的枪,其中3支已经校正,2支未经校正.某人使用已校正的枪击中目标的概率为p1,使用未经校正的枪击中目标的概率为p2.他随机地取一支枪进行射击,已知他射击了5次,都未击中,求他使用的是已校正的枪的概率(设各次射击的结果相互独立).

2.某人共买了11只水果,其中有3只是二级品,8只是一级品.随机地将水果分给A、B、C三人,各人分别得到4只、6只、1只.

(1)求C未拿到二级品的概率.

(2)已知C未拿到二级品,求A,B均拿到二级品的概率. (3)求A,B均拿到二级品而C未拿到二级品的概率.

3.一系统L由两个只能传输字符0和1的独立工作的子系统L1和L2串联而成(如图15.3),每个子系统输入为0输出为0的概率为p(0?p?1);而输入为1输出为1的概率也是p.今在图中a端输入字符1,求系统L的b端输出字符0的概率.

L1 L2 b

题15.3图

4.甲乙二人轮流掷一骰子,每轮掷一次,谁先掷得6点谁得胜,从甲开始掷,问甲、乙得胜的概率各为多少?

5.将一颗骰子掷两次,考虑事件A?“第一次掷

1. 时钟。程序运行后，每隔2秒命令按钮Command1向右移动100

个单位。

Option Explicit

Private Sub Form_Load() Timer1.Interval = 2000 End Sub

Private Sub Timer1_Timer() Call mymove End Sub Sub mymove()

Command1.Left = Command1.Left + 100 End Sub

2.滚动条。水平滚动条HScroll1的数值范围0～100，LargeChange设置为10，SmallChange设置为5，水平滚动条HScroll1的值(Value)代表正方形的边长，当水平滚动条的滑块变化时，标签Label1中正方形边长随之改变，文本框Text1中正方形面

积也随之改变

Option Explicit

Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = 100 HScroll1.SmallChange = 5 HScroll1.LargeChange = 10 End Sub

Private Sub hscroll1_change() Cal

《概率论与数理统计》（第四版）选做习题全解

1.一打靶场备有5支某种型号的枪,其中3支已经校正,2支未经校正.某人使用已校正的枪击中目标的概率为p1,使用未经校正的枪击中目标的概率为p2.他随机地取一支枪进行射击,已知他射击了5次,都未击中,求他使用的是已校正的枪的概率(设各次射击的结果相互独立).

2.某人共买了11只水果,其中有3只是二级品,8只是一级品.随机地将水果分给A、B、C三人,各人分别得到4只、6只、1只.

(1)求C未拿到二级品的概率.

(2)已知C未拿到二级品,求A,B均拿到二级品的概率. (3)求A,B均拿到二级品而C未拿到二级品的概率.

3.一系统L由两个只能传输字符0和1的独立工作的子系统L1和L2串联而成(如图15.3),每个子系统输入为0输出为0的概率为p(0?p?1);而输入为1输出为1的概率也是p.今在图中a端输入字符1,求系统L的b端输出字符0的概率.

L1 L2 b

题15.3图

4.甲乙二人轮流掷一骰子,每轮掷一次,谁先掷得6点谁得胜,从甲开始掷,问甲、乙得胜的概率各为多少?

5.将一颗骰子掷两次,考虑事件A?“第一次掷

VB2-2

1、数组最大值。在文本框Text1中放入一维数组元素个数n，在文本框Text2中放入n个数组元素，点击按钮Command1，找出这n个数中第二大的数放入文本框Text3中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。

Private Sub Command1_Click() Dim a%(), n%, i%, j%, t% n = Val(Text1.Text) - 1 ReDima(n) TextToArray Text2, a For i = 0 To n For j = iTo n t = a(i)

If a(j) > a(i) Then a(i) = a(j): a(j) = t Next Next

Text3.Text = a(1) End Sub

2、数组排序。在文本框Text1中放入一维数组元素个数n，在文本框Text2中放入n个数组元素，点击按钮Command1，将n个元素按逆序（从大到小）排序后放入文本框Text3中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。

Private Sub Command1_Click() Dim a%(), imi

三、填空题 1、【程序说明】

下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。 Private Sub Form_Click()

Dim n As Integer, a As Integer, b As Integer, c As Integer Dim x As Integer

For a =0 to 9 '个位数数码

For b = 0 To 9 '十位数数码 For c = ----1----

If a<>b And b<>c And a<>c Then x =a+10*(b+10*c) n = ----2---- ----3----

If n mod 15 = 0 Then Print End If Next c,b,a

Print \总共有这样的三位数\个\End Sub 1、1 to 9

2、n+1

VB考试必备十道编程题VB考试必备的十道编程题

(1)计算 sum=1/1!+1/2!+1/3!+.......+1/10! Private Sub Command1_Click()

Dim m As Integer, n As Long, s As Double n = 1 s = 0

For m = 1 To 10 n = m * n s = s + 1 / n Next Print s End Sub

(2)求前n项和 s=1/!-1/2!+1/3!-1/4!+.........+(-1)^(n-1)*1/n!+.......当求和过程某项绝对值小于0.0001时结束（该项参与求和），输出s，保留6位小数。 Private Sub Command1_Click()

Dim m As Double, n As Long, s As Double, p As Integer s = 0: n = -1: m = 1: p = 1 Do While 1 / m >= 0.0001 m = m * p p = p + 1 n = -n

s = s + n / m Loop

s = Format(s, \Print s End Sub

（3）

50道唐诗宋词名句题

1． 被苏轼形容为“诗中有画，画中有诗”的是哪一位诗人： A． 王维 B．孟浩然 C．刘禹锡 2． 下列对应错误的一项是： A． 王维——诗佛 B． 李贺——诗鬼 C． 白居易——诗狂

3． 下列不属于田园派诗人的是： A． 陶渊明 B．孟浩然 C．王昌龄 4．“两小无猜”出自哪首诗： A．李白《长干行》 B．李商隐《无题》 C．白居易《赠内》

5．下列诗句中完全正确的一项是：

A． 家书何处达，归雁洛阳边。（王湾《次北固山下》） B． 寄书长不达，况乃未休兵。（杜甫《月夜忆舍弟》） C． 岭外音书绝，经冬复历春。（宋之问《渡汉江》） 答案：1.A 2.C 3.C 4.A 5.B

6．“满城尽带黄金甲”是描写哪种花的诗句： A．桂花 B．菊花 C．向日葵

7．下列对应中没有错误的一项是：

A．小时不识月，呼作白玉盘——五言律诗·李白 B．露从今夜白，月是故乡明——五言律诗·杜甫 C．海上生明月，天涯共此时——五言律诗·王勃 8．素有“孤篇压倒全唐”之美誉的作品是： A．李白《梦游天姥吟留别》 B．张若虚《春江花月夜》 C．白居易《长恨歌》

9．下列哪一句出自刘希夷的《代悲白头翁》： A．今年欢笑复明年，秋月春风等闲度。