VB编程：设计一个体 *** 评分程序， 20 位评委，除去一个最高分和一个最低分，计算平均分

Dim a(20) '如果不需要显示20个数的话，不需要数组，a(i)用X代替就可以

Dim max!, Min!, i%

Private Sub Command1_Click() '按钮单击

For i = 1 To 20

a(i) = Int(Rnd 10) + 1 '[1~10]间在随机数

s = s + a(i) '求和

If i = 1 Then '最大最小值的初值为第一个数

max = a(1): Min = a(1)

Else

If max < a(i) Then max = a(i)

If Min > a(i) Then Min = a(i)

End If

Next i

Print (s - max - Min) / 18 '求平均

End Sub

if combo1listindex=0 then

x=1

elseif combo1listindex=1 then

x=2

end if

if combo2listindex=0 then

y=1

elseif combo2listindex=1 then

y=2

end if

text1text= x+y

按上面实例自行扩展

清除 text1text=""

比如你 语文80 是文本框1 数学76是文本框2 以此类推

a=val(text1text)+val(text2text)+val(text3text)+val(text4text)+val(text5text)

v=a/5 '平均分v变量

建Text1,text2,command1代码如下。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Private Sub Command1_Click()

Dim x As Single, y As Single

x = CSng(Text1Text)

Select Case x

Case Is < -2

y = 3 x - 1 - 1 / x

Case Is < 1

y = Sin(x) + 2 ^ x

Case Else

y = Log(x) / Log(10) / 2

End Select

Text2Text = y

End Sub

一个程序打开另外一个程序=可以

主程序显示子程序=可以(XXXshow)

主程序生成子程序=

难道你要做一个VB开发工具

否则生成(编译)这种功能很难实现!

如果你能弄到"VB60程序"的源代码希望分享下

-

-|||

PS如果你只是想让主程序"释放"另一个程序的话可以使用:外接程序-外接程序管理器中的"VB6

资源管理器",吧一个exe文件添加进资源管理器中,然后用Binary

As

#1输出

Protected Sub Button31_Click(ByVal sender As Object, ByVal e As SystemEventArgs) Handles Button31Click

Dim a As Integer

If TextBox1Text = "" Or TextBox2Text = "" Then

MsgBox("请输入学生姓名或成绩!")

Exit Sub

End If

a = CInt(TextBox2Text)

If 0 < a And a < 61 Then

TextBox3Text = TextBox1Text & "--" & "不及格"

ElseIf 60 < a And a < 71 Then

TextBox3Text = TextBox1Text & "--" & "及格"

ElseIf 70 < a And a < 81 Then

TextBox3Text = TextBox1Text & "--" & "中"

ElseIf 80 < a And a < 91 Then

TextBox3Text = TextBox1Text & "--" & "良"

ElseIf 90 < a And a < 100 Then

TextBox3Text = TextBox1Text & "--" & "优"

End If

End Sub

这是按钮的后台代码

3个文本框和标签就照你的图做就可以了

有问题再在线联系

在窗体上放一个命令按钮，将代码复制到窗体里，程序运行单击一次命令按钮可输入一次n的值

代码如下：

Private Sub Command1_Click()

Dim n, y As Single

n = InputBox(" 请输入N的值")

Select Case n

Case Is < 0

y = 2 n + 5

Case 0

y = 0

Case Is > 0

y = 3 n - 1

End Select

MsgBox "Y=" & y

End Sub

以上就是关于VB编程：设计一个体 *** 评分程序， 20 位评委，除去一个最高分和一个最低分，计算平均分全部的内容，包括:VB编程：设计一个体 *** 评分程序， 20 位评委，除去一个最高分和一个最低分，计算平均分、VB初学者求教做一个搭配选项并计分程序、vb程序计算学生总分等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！