vb上机程序3.docx

1、vb上机程序31 某个数组有10个元素，元素的值由键盘输入，要求将前五个元素与后五个元素对换，即第1个元素与第10个元素互换，第2个元素与第9个元素互换，第3个元素与第8个元素互换第5个元素与第6个元素互换。输出数组原来各元素的值和对换后各元素的值。2 把两个按升序（即从小到大）排列的数列a(1)，a(2)，a(n)和b(1)，b(2)，b(m)，合并成一个仍是按照升序排列的新数列。3 计算全班学生每门课的总分，同时计算每个学生的总分，最后计算总平均分数。假设全班有4个学生，每个学生考3门课，如表3-1所示。表3-1 学生成绩单姓名语文数学物理总分黎丽78.596.575余胜泉8575.596

2、章文余998988阮次山6972.6804 将一个54的矩阵赋值并转置。5 某校在保送研究生的过程中，采取按照综合评分来决定候选人的综合排名。各个候选人的排名如表3-2所示。请设计一个程序，实现按照这种方式的排名顺序。表3-2 候选人排名候选人姓名成绩候选人姓名成绩张贵和263王小平321李士滨259赵明飞231陈小乐589明 亮265赵 静428刘 桑398吴大海458何 平289张 海467韩 虎455综合题设计制作一个科学计算器，该计算器不仅能够满足一般的算术运算，而且能够满足科学计算的功能。 建立应用程序用户界面与设置对象属性选择“新建”工程，进入窗体设计器，增加一个框架控件Frame

3、1，选中Frame1后，其中增加一个文本框控件 Text1、三个命令按钮控件数组Command1(010),Command2(04),Command6(012),和四个命令按钮Command3,command4,Command5,Command7。设置对象属性如表3-5所示。表3-5 对象属性表对 象属 性值Text1Alignment1right justifyText空Font粗体、小四Command1(0)Command1(10)Caption1、2、9、.字体粗体、小四Command2(0)Command( 4 )Caption+ 、 - 、 * 、 / 、x(y)字体粗体、小四Com

4、mand3Caption=字体粗体、小四Command4CaptionOn字体粗体、小四Command5CaptionOff字体粗体、小四Command6(0)Command6(12)Captionsin、cos、tan、abs、tan-、E(x)、Ln、x(1/2)、x(2)、x(3)、sin-、cos-、x! 字体粗体、小四Command7CaptionPI字体粗体、小四设计界面如图3-31所示。 图3-31 设计界面 设计代码实现声明：Dim v As BooleanDim s1 As StringDim s2 As StringDim X As DoubleDim Y As Doubl

5、eDim z As IntegerDim i As IntegerConst PI = 3.14159265 设置常数PI为圆周率设置数字和小数点属性代码：Private Sub Command1_Click(Index As Integer) If Form1.Tag = T Then If Index = 10 Then Text1.Text = 0. Else Text1.Text = Command1(Index).Caption End If Form1.Tag = Else If Text1.Text = 0 Then Text1.Text = End If a = Text1.T

6、ext Text1.Text = a & Command1(Index).Caption End IfEnd Sub二元运算属性代码：Private Sub Command2_Click(Index As Integer) 定义二元运算 Dim n As Single Dim m As Single Form1.Tag = T If v Then X = Text1.Text: v = Not v Else 用x和y分别存放二元运算的两个值 Y = Text1.Text Select Case s1 Case 0 二元加法 Text1.Text = X + Y Case 1 二元减法 Text

7、1.Text = X - Y Case 2 二元乘法 Text1.Text = X * Y Case 3 二元除法 If Y 0 Then Text1.Text = X / Y Else 除数不为零 For i = 0 To 10 Command1(i).Enabled = False Next i For i = 0 To 4 Command2(i).Enabled = False Next i For i = 0 To 12 Command6(i).Enabled = False Next i Command3.Enabled = False Command7.Enabled = Fals

8、e Text1.Enabled = False Text1.Text = E End If Case 4 定义x的y次幂 m = Val(X) z = Int(Y) If z 0 Or z = 0 Then Text1.Text = mm(m, z) 调用函数实现 Else Text1.Text = 1 / mm(m, z) End If End Select X = Val(Text1.Text) s1 = Index End IfEnd Sub等号的属性代码：Private Sub Command3_Click() 单击=显示结果 Dim m As Single Form1.Tag = T

9、 Y = Text1.Text Select Case s1 Case 0 加法 Text1.Text = X + Y Case 1 减法 Text1.Text = X - Y Case 2 乘法 Text1.Text = X * Y Case 3 除法 If Y 0 Then Text1.Text = X / Y Else 除数不为零 For i = 0 To 10 Command1(i).Enabled = False Next i For i = 0 To 4 Command2(i).Enabled = False Next i For i = 0 To 12 Command6(i).E

10、nabled = False Next i Command3.Enabled = False Command7.Enabled = False Text1.Enabled = False Text1.Text = E End If Case 4 x的y次幂 m = Val(X) z = Int(Y) If z 0 Or z = 0 Then Text1.Text = mm(m, z) 调用函数实现 Else Text1.Text = 1 / mm(m, z) End If End Select X = Val(Text1.Text) Y = 0 s1 = 5 v = FalseEnd Sub打

11、开命令按钮属性代码：Private Sub Command4_Click() 定义打开on For i = 0 To 10 Command1(i).Enabled = True Next i For i = 0 To 4 Command2(i).Enabled = True Next i For i = 0 To 12 Command6(i).Enabled = True Next i Command3.Enabled = True Command7.Enabled = True Command5.Enabled = True Text1.Enabled = True Text1.Text =

12、 0 X = 0 Y = 0End Sub关闭命令按钮属性代码：Private Sub Command5_Click() 定义关闭off For i = 0 To 10 Command1(i).Enabled = False Next i For i = 0 To 4 Command2(i).Enabled = False Next i For i = 0 To 12 Command6(i).Enabled = False Next i Command3.Enabled = False Command7.Enabled = False Text1.Enabled = False Command

13、5.Enabled = False Text1.Text = X = 0 Y = 0End Sub一元运算属性代码：Private Sub Command6_Click(Index As Integer) 定义一元运算 Dim m As Single Form1.Tag = T X = Text1.Text s2 = Index Select Case s2 Case 0 求正弦函数 Text1.Text = Sin(X) Case 1 求余弦函数 Text1.Text = Cos(X) Case 2 求正切函数 Text1.Text = Tan(X) Case 3 求绝对值函数 Text1.

14、Text = Abs(X) Case 4 求反正切函数 Text1.Text = Atn(X) Case 5 求e的幂次函数 Text1.Text = Exp(X) Case 6 求自然对数 If X 0 Then Text1.Text = Log(X) Else 对数指数不小于零 For i = 0 To 10 Command1(i).Enabled = False Next i For i = 0 To 4 Command2(i).Enabled = False Next i For i = 0 To 12 Command6(i).Enabled = False Next i Command3.Enabled = False Command7.Enabled = False Text1.Enabled = False Text1