vb设计题1答题.doc
文本预览下载声明
杭州师范大学《计算机技术基础》（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
End Sub
第2题：
显示全部