VB高分求解

来源：百度知道 编辑：UC知道 时间：2024/05/27 19:43:16
1、输入20个整数，运用选择排序方法（发泡排序法、插入排序法），将其从小到大排列。
2、输入一批以-1为结束符的学生成绩，要求打印出所有大于平均成绩的学生成绩。
3、输入N个学生的考试成绩，要求统计每个分数值的人数。如80分2人，81分1人，82分5人、88分9人。
4、输入一个英文长句或短文，要求分解出所有英文单词，并且要求按字典排序输出每一个单词。
5、请你模拟简单计算机的界面，设计一个可以进行加、减、乘、除运算的计算器。

你把别人的代码粘过去，对你没什么提高。
问题都不难，自己学吧。给你代码是害你。
yes

Dim s, x, y ‘声明模块级变量
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption ‘在文本框中连接输入的数字
End Sub
Private Sub Command2_Click(Index As Integer)
s = Command2(Index).Index ‘把运算符存入s变量
x = Val(Text1.Text) ‘把第一次输入文本框中的内容转换成数值型数据放入变量X
Text1.Text = ""
End Sub
Private Sub Command3_Click()
y = Val(Text1.Text)
Select Case s
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
MsgBox "你输入的有非法字符！"
Text1.Text = x
End If
End Select
End Sub
Private Sub Command4_Click()
Text1.Text = ""
x = 0
y = 0
End Sub
其中 Caption属性为“1、2、3、4、5、6、7、8、9、0、.”的十个按钮为控件数组command1,“+、-、*、/”为控件数组command2，“=”为command3,清除键“c”为comma