vb编写程序

,实现从键盘输入若干个学生的考试成绩,统计并输出最高分和最低分,当输入负数时结束输入！！！

追问：帮忙修改下嘛，有一点问题

答案：加密原理：循环使用密码中每个字符的ASCII码值与文件的每个字节进行异或运算，然后写入文件即可。这种加密方法是可逆的，即对明文进行加密得到密文，用相同的密码对密文进行加密就得到明文。 界面设计：在窗体From1上放置驱动器列表框（Driver1）、目录列表框（Dir1）、文件列表框（File1）各一个，这三个控件相互配合，用来确定要加密文件的位置。其中File1的Pattern属性设为“*.TXT”，即仅显示文本文件；再放置一个Check控件，用来控制显示文件的类型，其Caption属性设为“显示全部文件”；接着放置两个文本框，Text1显示文件内容，Text2用来输入密码，其Passchar属性设为“*”，一个Label控件，其Caption属性设为“密码”；最后，放置两个命令按钮，其Caption属性分别设为“加密/解密”和“退出”。 程序代码： Option Explicit Dim i As Long Dim databuff（） As Byte ’定义数组用于存放文件内容 Dim addbuff（） As Byte ’定义数组用于存放加密后的文件内容 Dim password（） As Byte ’定义数组用于存放密码的ASCII值 Dim filename As String Private Sub Check1_Click（） If Check1.Value Then ’控制是否显示全部文件 File1.Pattern = "*.*" Else File1.Pattern = ".txt" End If End Sub Private Sub Command1_Click（） Dim j As Integer Dim password_len As Integer password_len = Len（Text2.Text） ReDim password（password_len） As Byte For i = 0 To password_len - 1 ’把密码转化为ASCII码 password（i）= Asc（Mid（Text2.Text，i + 1，1）） Next If filename = "" Then Exit Sub Open filename For Binary As #1 ’读取要加密的文件内容 ReDim databuff（LOF（1）） Get #1，， databuff Close #1 ReDim addbuff（UBound（databuff））As Byte For i = 0 To UBound（databuff） If j >= password_len Then ’循环使用密码 j = 0 Else j = j + 1 End If addbuff（i）= databuff（i）Xor password（j）’进行异或运算 Next Open filename For Binary As #1 ’把加密后的内容写入文件 Put #1，，addbuff Close #1 Text1 = StrConv（addbuff vbUnicode）’显示加密后的文件内容 Text2.Text = "" End Sub Private Sub Command2_Click（） .End End Sub Private Sub Dir1_Change（） File1.Path = Dir1.Path ’与文件列表框相关联 End Sub Private Sub Drive1_Change（） On Error GoTo a0 Dir1.Path = Drive1.Drive ’与目录列表框相关联 a0：If Err Then MsgBox（Error（Err））’发生错误，提示错误内容 End Sub Private Sub File1_Click（）’单击文件时，显示文件内容 filename = Dir1.Path + Fil


如果帮助到您，请记得采纳为满意答案哈，谢谢！祝您生活愉快！ 

参考资料： http://vae.la

dim n as integer
dim mx as double,mn as double,x as double 
do 
n=n+1
x=val(inputbox ("成绩"))
if x<0 then exit do
if n =1 then mn = x 
if x-mx>0 then  mx=x
if x-mn<0 then nm=x
loop
n=n-1
if n =0 then 
msgbox"你一个学生都没输入，求什么最高最低啊！"
else
msgbox "最高分：" & mx  & vbcrlf & "最低分：" & mn
endif 
 
为什么没有控件？             输入学生成绩应用到ListBox  ，    命令按钮执行      每个控件都应该有相应的代码的吧   这样的程序做起来才比较美观       建议先在对象窗口上设好控件再逐一填入代码          

上一个：VB是什么？
下一个：vb输出问题