vb设计题1讲解.docVIP

杭州师范大学《计算机技术基础》（VB程序设计） 设计题 (请按照题目要求进行答题，完成之后打包上传) 第01套： 第1题：编程，输入x，求下列分段函数的值，计算结果输出到Text控件中。 正确答案： Private Sub Command1_Click() Dim x As Single x = InputBox(输入x, 计算分段函数) If x = 3 Then Text1 = Str(1 + x) Else Text1 = Str(x + 3) ^ 0.25 End If End Sub 第2题： 如下图，编程，点击按钮可以移动列表框中所选中表项的位置。说明：通过load事件添加列表项，运行时，先选择列表框中的选项，才可以使用“上移”或“下移”按钮。当选项是第一项时不能再上移，当选项是最后一项时不能再下移。 正确答案： Private Sub Command1_Click() 上移 Dim i As Integer i = List1.ListIndex List1.AddItem List1.Text, i - 1 先将选中的内容添加到上一项前 List1.RemoveItem i + 1 将原来选中的那项删除 List1.ListIndex = i - 1 将光标重新指向已经上移后的选项 End Sub Private Sub Command2_Click() 下移 Dim i As Integer i = List1.ListIndex List1.AddItem List1.Text, i + 2 先将选中的内容添加到下一项后 List1.RemoveItem i 将原来选中的那项删除 List1.ListIndex = i + 1 将光标重新指向已经下移后的选项 End Sub Private Sub List1_Click() Command1.Enabled = True: Command2.Enabled = True If List1.ListIndex = 0 Then Command1.Enabled = False 第一项不能上移 End If If List1.ListIndex = List1.ListCount - 1 Then Command2.Enabled = False 最后一项不能下移 Else End If End Sub 第3题：编写程序，将磁盘文件d:\student.dat中若干个学生的姓名、出生年月、外语成绩和计算机成绩显示在列表框中，并且能实现以下功能：直接输入在文本框中的文本可以追加；单击列表框某项，则该项可删除；首次运行时文件可以为空，退出系统前应保存文件。界面设计如图所示。 正确答案： Private Sub Form_Load() Dim ss As String Open e:\student.dat For Append As #1 Close #1 Open d:\student.dat For Input As #1 While Not EOF(1) Line Input #1, ss: List1.AddItem ss Wend Close #1 End Sub Private Sub Command1_Click() If Trim(Text1.Text) Then List1.AddItem Text1.Text Text1.Text = End Sub Private Sub Command2_Click() List1.AddItem Text1.Text, List1.ListIndex List1.RemoveItem List1.ListIndex Text1.Text = End Sub Private Sub Command3_Click() Dim i As Integer Open d:\student.dat For Output As #1 For i = 0 To List1.ListCount - 1: Print #1, List1.List(i): Next i Close #1 End Sub Private Sub Command4_Click() Call Command3_Click: End End Sub 第02套： 第1题：编程，用随机函数产生2个10～100的整数，输出最大值。 正确答案： Private Sub Command1_Click() Dim x%, y%,max% Randomize x = Int(Rnd * 91 + 10) y = Int(Rnd * 91 + 10) Max = x If y Max Then y = Max Print Max En