1. [说明] 某单位组织一次职业技术考核比赛,由十名评委对选手的现场表现打分(0到100以内的数值)。本程序接收原始评分后,去掉一个最高分、一个最低分,最后计算并输出选手最后得分。在接收输入第i个评分时,若输入数据的类型、范围不正确,程序将给出相应提示,并等待下一次输入,直至正确接收第i个评分为止。程序的运行界面如下: 在开发过程中,文本框名为Text1,界面上有上至下三个按钮分别取名为CmdMark、CmdReresh和CmdExit。 [Visual Basic代码] Private Sub CmdMark_Click() ’按钮“输入评分”的单击事件响应代码 Dim i As Integer,temp As Variant ’声明变量 Dim marks(1 To 10),maxMark,minMark,sumMark,mark As Single sumMark=0 Text1.Text=“编号”&Chr(9)&“评分”& vbCrLf For i=1 To 10 ’接收十个评分输入 Do While 1=1 ’验证并接收第i个评委的评分 temp=InputBox(“请输入”&i&“号评委的评分:”) If IsNumeric(temp)Then Msg Box“数据类型错误,请重试!” ElseIf CSng(temp)<0 Or CSng(temp)>100 Then MsgBox“数值范围错误,请重试!” Else:Exit Do End If Loop marks(i)=CSng(temp) If i=1 Then maxMark=:minMark= If marks(i)>maxMark Then maxMark=marks(i) If minMark>marks(i)Then sumMark=sumMark+marks(i) Text1.Text=Text1.Text & i & Chr(9) & marks(i) & vbCrLf输出第i个评委的评分 Next mark=()/8 ’计算选手最后得分 Text1.Text=Text1.Text &"去掉一个最高分:"&maxMark&vbCrLf&_ "去掉一个最低分:"&minMark&vbCrLf&_ "选手最后得分:"&mark End Sub Private Sub Command2_Click() ’按钮“刷新屏幕”的单击事件响应代码 .Text=“单击”输入评分“按钮,开始统分……” End Sub Private Sub Command3_Click() 按钮“退出程序”的单击事件响应代码 End End Sub
(1) Not (2) marks(1)或marks(i) (3) minMark=marks(i) (4) sumMark-maxMark-minMark (5) Text1
1. [说明] 某公司的服务器上为每位员工提供了一定大小的存储空间,用于数据的备份。下面的程序面向公司员工,提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下: 连接服务器:员工需要输入用户名和口令才能连接到服务器端,checkUser函数用于检查用户名和口令是否合法,返回真假值。 上传文件:从本地计算机上传文件到服务器。员工可以在本地文件列表中选择一个或多个文件,这些文件通过上传操作被复制到服务器端指定的某个文件夹中; 下载文件:从服务器端下载文件到本地。 在开发过程中,本地驱动器列表框名为Drive1,本地和服务器端目录列表框分别名为Dir1和 Dir2,本地和服务器端文件列表框分别名为File1和File2,界面上有上至下四个按钮分别名为Command1至Command4。 [Visual Basic代码] Private Sub Drive1_Change() ’更新目录列表框的路径 End Sub Private Sub Dir1_Change() File1.Path=Dir1.Path ’更新文件列表框file1的路径 End Sub Private Sub Dir2_Change() File2.Path=Dir2.Path ’更新文件列表框file2的路径 End Sub ’连接服务器 Private Sub Command1_Click() Dim user,password As String user=(“请输入用户名:”) password=(“请输入口令:”) If check User(user,password)Then ’若用户名和口令正确 Dir2.Path=…… ’打开服务器上某一指定目录 Else: MsgBox“口令错误,请重试!” End If End Sub ’上传文件 Private Sub Command2_Click() Dim fso As new FileSystemObject,f As File,i As Integer If File1.FileName=""Then ’判断是否已经选中文件 MsgBox“请选择本地的文件!” Exit Sub End If ’创建文件系统对象 Set fso=CreateObject(“Scripting.FileSystemObject”) ’上传文件 For i=0 To ’遍历文件列表框File1中的全体文件 If Then’若该文件被选中 Set f=fso.(Dir1.Path & “\” & File1.List(i)) f.Copy Dir2.Path & “\” & File1.List(i),True ’复制文件至服务器端 End If Next File2.Refresh End Sub ’下载文件 Private Sub Command3_Click() …… End Sub ’退出程序 Private Sub Command4_Click() End End Sub