vb程序题火箭发射

-------- 程序文件

程序文件目录

1.文件控制程序 2.记录控制程序 3.管理评审控制程序 4.人力资源控制程序 5.设施和工作环境控制程序 6.与产品有关要求评审程序 7.采购控制程序

8.工程承包工程队控制程序 9.工程施工和服务过程控制程序 10监视和测量控制程序

11.产品的监视和测量控制程序 12.不合格品控制程序 13数据分析控制程序 14顾客满意程度测量程序 15内部质量体系审核 16纠正和预防措施控制程序

-------- 程序文件

文件控制程序

1目的

有效版本文件。 2范围

适用于本公司质量管理体系有关文件（包括外来文件）的控制。 3职责

对文件进行控制，确保工作现场所使用文件的相关部门及时得到最新

3.1总经理负责《质量方针》、《质量目标》的制定与批准；负责质量手册的批准。

3. 2 管理者代表负责质量手册的审核、程序文件的批准及文件发放范围的批准。 3.3综合部（档案管理人员）负责文件（除外来文件）的发放、回收、销毁、原稿的保存及做好相关的记录；负责编制并及时更新《文件最新状况一览表》；负责定期对工作现场所使用文件的有效性进行监督检查；负责法律法规与标准及外来文件的控制。

3.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. 时钟。程序运行后，每隔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

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

2010高教社杯全国大学生数学建模竞赛

承 诺 书

我们仔细阅读了中国大学生数学建模竞赛的竞赛规则.

我们完全明白，在竞赛开始后参赛队员不能以任何方式（包括电话、电子邮件、网上咨询等）与队外的任何人（包括指导教师）研究、讨论与赛题有关的问题。

我们知道，抄袭别人的成果是违反竞赛规则的, 如果引用别人的成果或其他公开的资料（包括网上查到的资料），必须按照规定的参考文献的表述方式在正文引用处和参考文献中明确列出。

我们郑重承诺，严格遵守竞赛规则，以保证竞赛的公正、公平性。如有违反竞赛规则的行为，我们将受到严肃处理。

我们参赛选择的题号是（从A/B/C/D中选择一项填写）： 我们的参赛报名号为（如果赛区设置报名号的话）： 29 所属学校（请填写完整的全名）： 山东理工大学 参赛队员 (打印并签名) ：1. 魏 业 2.

【程序改错】

题目：该程序实现将输入的 0 - 255 之间的正整数转换成二进制数 Option Explicit

Private Sub Form_Click() Const n = 8

Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox(\请输入一个 0 - 255 之间的正整数：\ Print x

For m = 1 To n a(m) = x Mod 2 x = x / 2 Next m s = \

For m = n To 0 Step -1 s = Str(a(m)) Next m Print s End Sub 答案：

=======(答案1)======= For m = 0 To n

=======(答案2)======= x= x \\ 2

=========或========= x= int(x/2)

==

一、选择题

1. 下列操作不能向工程中添加窗口是（ ）

A. 执行?工程?菜单中的‘添加窗体’命令 B. 单击工具栏中的‘添加窗体’按钮

C. 用鼠标右键单击窗体，在弹出的快捷菜单选择‘添加窗体’命令

D. 用鼠标右键单击职员管理器，在弹出的快捷菜单选择“添加”命令，然后再下一级

菜单中选择‘添加窗体’命令

2. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ） A.工程资源管理器窗口 B.工具箱窗口 C．代码窗口 D。属性窗口

3. 建立一个新的”标准EXE工程后，不在工具箱中出现的控件是（ ） A.单选按钮 B。图标框 C．通用对话框 D.文本框

4. 以下不能再资源管理器窗口中列出的文件类型是（ ） A.bas B.res C.frm D.OCX 5. 以下叙述中错误的是( )

A. Visuai.Basic是事件驱动型可视化编程工具

B. Visuai.Basic应用程序不具有明显的开始和结束语句

C. Visuai.Basic工具箱中的所有控件都具有宽度(Width)和高度

'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.输入一年份，判断它是否为闰年，