问答题

注意:下面出现的“”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在名称为Form1的窗体上画两个标签,名称分别为Label1和Label2,标题分别为“身高”和“体重”,两个文本框,名称分别为Text1和Text2,Text属性均为空白,一个命令按钮,名称为Command1,标题为“输入”。然后编写命令按钮的Click事件过程,程序运行后,如果单击命令按钮,则先后显示两个输入对话框,在两个输入对话框中分别输入身高和体重,并分别在两个文本框中显示出来。程序运行界面如图21-1所示。要求程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt.frm。
(2) 在名称为Form1的窗体上画一个图片框,名称为Picture1,一个垂直滚动条,名称为VScroll1,一个命令按钮,名称为Command1,标题为“设置属性”。通过“属性”窗口在图片框中装入一个图形(文件名为pic1.jpg,位于考生文件夹下),图片框的宽度与图形的宽度相同,图片框的高度任意,如图21-2所示。编写适当的事件过程。程序运行后,如果单击命令按钮,则设置垂直滚动条的如下属性:
Min 100
Max 2400
LargeChang 200
SmallChange 20
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图21-3所示。要求程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

【参考答案】

[解析] 在窗体上建立好控件后,先设置控件的属性,再编写程序代码。
文本框的内容由Text属性设置,命令按钮标......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
热门 试题

问答题
[解析] 使用AddItem方法向列表框中添加列表项目,其格式为: 列表.AddItem项目字符串[,索引值] AddItem方法把“列表字符串”的文本内容放入“列表框”中。如果省略“索引值”则文本本放在列表框的尾部。“索引值”可以指定插入项在列表框中的位置,表中的项目从0开始计数,“索引值”不能大于表中的项数减A。该方法只能单个的项列表框中添加项目。 使用RemoveItem方法从列表框中删除列表项目其格式为: 列表.RemoveItem索引值 RemoveItem方法从列表框中删除以“索引值”为地址的项目,该方法每次只能删除一个项目。 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表BA-C。 表 BA-C 控 件 属 性 设 置 值 Listbox Name ListA 命令按钮 Name Picture CommandA 添加项目 命令按钮 Name Picture CommandB 删除项目 文本框 Name TextA 第二步:编写程序代码。 程序提供的代码: Private Sub CommandA_Click() TextA.Text=InputBox( 请输入要添加的项目 ) ’ListA.AddItem End Sub Private Sub CommandB_Click() TextA.Text=InputBox( 请输入要删除的项目 ) ’For i=0 To ’If ListA.List(i)= Then ’ListA.RemoveItem End If Next i End Sub 参考代码: Private Sub CommandA_Click() TextA.Text=InputBox( 请输入要添加的项目 ) ListA.AddItem TextA.Text End Sub Private Sub CommandB_Click() TextA.Text=InputBox( 请输入要删除的项目 ) For i=0 To ListA.ListCount-A If ListA.List(i)=TextA.Text Then ListA.RemoveItem i End If Next i End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (B) [解析] 文本框里的内容(包括数字)默认都是当作字符串来处理的,如果要参与数据运算则需先用Val()函数将其转化为数字(如:VaA(TextA.Text))。 这里需要指出的是利用Array对数组各元素赋值,声明数组的类型只能是Variant。数组的上下界可用LBound函数和 UBound函数分别获得:程序中变量Max保存最大数,最初把数组的第一个元素赋给Max,然后将其后的元素依次与之比较,如果大于Max的值则与之交换,后面又将Max作为标杆,依次类推,最终MAX中的元素就是最大值。在窗体上打印信息可以通过Print方法来实现,其形式为: [对象.] Print要显示的内容 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表BA-D。 表 BA-D 控 件 属 性 设 置 值 命令按钮 Name Picture CommandA 求最大值 文本框 Name TextA 文本框 Name TextB 文本框 Name TextC 文本框 Name TextD 第二步:编写程序代码。 程序中提供的代码: Option Base A 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 CommandA_Click() Dim arrA Dim arrB(D) As Integer arrA=Array(Val(TextA.Text) , Val(TextB.Text) , Val(TextC.Text) , Val(TextD.Text) ) For i=A To D ’arrB(i)=CInt() Next i ’M=FindMax() Print 最大值是: ; M End Sub 参考代码: Option Base A Private Function FindMax(a() As Integer) Dim Start As Integer Dim Finish As Integer, i As Integer Start=LBound(a) Finish=UBound(a) Max=a(Start) For i=Start To Finish If a(i)>Max Then Max=a(i) Next i FindMax=Max End Function Private Sub CommandA_Click() Dim arrA Dim artB(D) As Integer arrA=Array(Val(TextA.Text) , Val(TextB.Text) , Val(TextC.Text) , Val(TextD.Text) ) For i=A To D arrB(i)=CInt(arrA(i) ) Next i M=FindMax (arrB) Print 最大值是: ; M End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
问答题
[解析] 使用Open方法和Close方法打开和关闭文件,使用循环语句把整数赋给数组。在计算输出时,先定义一个变量,用来保存奇数的和;计算时找出数组中下标为奇数的数进行累加,将结果在文本框中显示出来。在窗体上打印内容可以用 Print方法来实现。解题步骤: 第一步:建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表BA-E。 表 BA-E 标 题 名 称 内 缩 符 号 读入数据 Read 0 计算并输出 Calc 0 存盘 Save 0 Text Name TextA 第二步:编写程序代码。 程序提供的代码: Option Base A Dim Arr(A00) As Integer Dim temp As Integer Sub ReadData() Open App.Path & & datainA.txt For Input As #A For i=A To A00 Input #A, Arr(i) Next i ’ #A End Sub Sub WriteData(Filename As String, Num As Integer) Open App.Path & & Filename For Output As #A Print #A, Num Close #A End Sub Private Sub Calc_Click() ’TextA.= For i=A To A00 Step B TextA.Text=TextA.Text & Arr(i) & Space(E) temp=temp+Arr(i) Next i ’Print End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData dataout.txt , temp End Sub 参考代码: Option Base A Dim Arr(A00) As Integer Dim temp As Integer Sub ReadData() Open App.Path & & datainA.txt For Input As #A For i=A To A00 Input #A, Arr(i) Next i Close #A End Sub Sub WriteData(Filename As String, Num As Integer) Open App.Path & & Filename For Output As #A Print #A, Num Close #A End Sub Private Sub Calc_Click() TextA.Text= For i=A To A00 Step B TextA.Text=TextA.Text & Arr(i) & Space(E) temp=temp+Arr(i) Next i Print temp End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData dataout.txt , temp End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。