0VB设计题.docVIP

VB设计题 题号 题目 参考答案 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事件添加列表项，运行时，先选择列表框中的选项，才可以使用“上移”或“下移”按钮。当选项是第一项时不能再上移，当选项是最后一项时不能再下移。brimg src=cx/cxsj01.jpgbr 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 最后一项不能下移 End If End Sub 3 编写程序，将磁盘文件d:\student.dat中若干个学生的姓名、出生年月、外语成绩和计算机成绩显示在列表框中，并且能实现以下功能：若文本框内容不为空，单击命令按钮“追加记录”则将文本框中的文本追加至列表框中；单击命令按钮“删除记录”则可删除列表框的选中项；首次运行时文件可以为空，单击“保存文件”命令按钮则保存文件。界面设计如图所示。 Private Sub Form_Load() Dim ss As String 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.RemoveItem List1.ListIndex 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() End End Sub 4 编程，用随机函数产生2个10～100的整数，输出最大值。 Private Sub Command1_Click() Dim x as integer,y as integer,max as integer Randomize x = Int(R