VB试题题库答案.docVIP

26、一、【操作步骤】 步骤1：建立界面并设置控件属性。程序中用到的控件及其属性见表3.81和表3.82。 表3.81 控件 标签1 标签2 属性 Name Caption Name Caption 设置值 Label1 身高 Label2 体重 表3.82 控件 文本框1 文本框2 命令按钮 属性 Name Name Name Caption 设置值 Text1 Text2 Command1 输入 步骤2：分析并编写程序代码。 参考答案 Private Sub Command1_Click() Text1.Text = InputBox(请输入身高,输入对话框,,100,100) Text2.Text = InputBox(请输入体重,输入对话框,,100,100) End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.83。 表3.83 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() VScroll1.Max = 2400 VScroll1.Min = 100 VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 End Sub Private Sub VScroll1_Change() Picture1.Height = VScroll1.Value End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 二、 (1)【操作步骤】 步骤1：建立界面并设置控件属性。程序中用到的控件及其属性见表3.84。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Text1.Text = InputBox(请输入要添加的项目) List1.AddItem ? End Sub Private Sub Command2_Click() Text1.Text = InputBox(请输入要删除的项目) For i = 0 To ? 　　　　If List1.List(i) = ? Then 　　　　　　List1.RemoveItem ? 　　　　End If Next i End Sub 程序结束 参考答案 第1个？处填入：Text1.Text 第2个？处填入：List1.ListCount - 1 第3个？处填入：Text1.Text 第4个？处填入：i 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Private Function FindMax(a() As Integer) Dim Start As Integer Dim Finish As Integer, i As Integer Start = ？(a) Finish = ？(a) Max = ？(Start) For i = Start To Finish If a(i) ? Max Then Max = ? Next i FindMax = Max End Function Private Sub Command1_Click() Dim arr1 Dim arr2(4) As Integer arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text)) For i = 1 To 4 　arr2(i) = CInt(？） Next i M = FindMax(？) Print 最大值是： ； M End Sub 程序结束 第1个？处填入：LBound 第2个？处填入：UBound 第3个？处填入：a 第4个？处填入： 第5个？处填入：a(i) 第6个？处填入：arr1(i) 第7个？处填入：arr2 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 三、程序提供代码 Option Base 1 Dim Arr(100) As Integer Dim sum As Integer Sub ReadData() Open App.Path \ datain1.txt For Input As #1 For i = 1 To 100 　Input #1, Arr(i) Next i Close #1 End Sub Sub WriteData(Filename As String, N