问答题

注意:下面出现的“”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“书名”和“作者”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Command1,标题为“显示”),如图22-1所示。然后编写命令按钮的Click事件过程。程序运行后,在两个文本框中分别输入书名和作者,然后单击命令按钮,则在窗体的标题栏上先后显示两个文本框中的内容,如图22-2所示。要求程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。


(2) 在名称为Form1的窗体上画一个垂直滚动条(名称为VScroll1)和一个水平滚动条(名称为 HScroll1),如图22-3所示。在属性窗口中对两个滚动条设置如下属性:
Min 1500
Max 6000
LargeChange 200
SmallChange 50
编写适当的事件过程。程序运行后,如果移动滚动条上的滚动框,则可扩大或缩小窗体。运行后的窗体如图22-4所示。要求程序中不得使用任何变量。注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt2.vbp,窗体文件名为sjt2.frm。

【参考答案】

解析:在窗体上建立好控件后,先设置控件属性,再编写事件过程。
标签和命令按钮的标题各自的Caption属性来设......

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

问答题
[解析] 在Visual Basic中,菜单项通过菜单编辑器来建立。 程序中用到的Mod是取模的运算符,如:N Mod C=0则说明余数为0,N能被C整除,否则N不能被C整除。对文件的操作都有C个步骤:打开(Open)、读写、关闭(Close)。解题步骤: 第一步:建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表BB-E。 表 BB-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 Close #A End Sub Sub WriteData(Filename As String, Num As Integer) Open App.Path & & Filename For Output As #A Print #A, Num ’#A End Sub Private Sub Calc_Click() ’TextA.= For i=A To A00 If Arr(i) Mod C=0 Then TextA.Text=TextA.Text & Arr(i) & Space(E) ’temp=temp+I End If Next i Print temp 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 If Art(i) Mod C=0 Then TextA.Text=TextA.Text & Arr(i) & Space(E) temp=temp+Arr(i) End If Next i Print temp End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData dataout.txt , temp End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
问答题
[解析] 判断按键可以在窗体的KeyDown事件下用Chr函数将按键代码转换成字符与给定字符进行比较。使用 AddItem方法向列表框中添加列表项目,使用RemoveItem方法从列表框中删除列表项目。程序中用到了InputBox(),其格式为: InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context]) prompt:是一个字符串,其长度不得超过A0BD个字符,它是在对话框内显示的信息,用来提示用户输入。 title:字符串,它是对话框的标题,显示在对话框顶部的标题区。 default:字符串,用来显示输入缓冲区的默认信息。 xpos,ypos:是两个整数值,分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos),它们的单位为twip。 helpfile,context:helpfile是一个字符串变量或字符串表达式,用来表示帮助文件的名字;context是一个数值变量或表达式,用来表示相关帮助主题的帮助目录号。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表BB-C。 表 BB-C 控 件 属 性 设 置 值 FormA KeyPreview Ttue Listbox Name ListA 文本框 Name TextA 第二步:编写程序代码。 程序提供的代码: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Chr(KeyCode)= A Then TextA.Text=InputBox ( 请输入要添加的项目 ) ’ ListA.AddItem End If If Chr(KeyCode)= D Then TextA.Text=InputBox ( 请输入要删除的项目 ) ’For i=0 To ’If ListA.List(i)= Then ’ ListA.RemoveItem End If Next i End If End Sub 参考代码: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Chr(KeyCode)= A Then TextA.Text=InputBox ( 请输入要添加的项目 ) ListA. AddItem TextA End If If Chr(KeyCode)= D Then TextA.Text=InputBox ( 请输入要删除的项目 ) For i=0 To ListA.ListCount-A If ListA.List(i)=FormA.TextA Then ListA.RemoveItem (i) End If Next i End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (B) [解析] 文本框里的内容(包括数字)默认都是当作字符串来处理的,如果要参与数据运算则需先用Val函数将其转化为数字类型。这里需要指出的是利用Array函数对数组各元素赋值,声明的数组只能是Variant类型,数组的上下界可用 UBound和LBound函数获得,这两个函数的格式分别为: LBound(数组[,维]) UBound(数组[,维]) 这两个函数分别返回一个数组中的下界和上界。其中“数组”是一个数组名,“维”是要测试的维。LBound函数返回“数组”的下界,而UBound函数返回“数组”某一“维”的上界值,这两个函数一起使用即可确定一个数组的大小。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表BB-D。 表 BB-D 控 件 属 性 设 置 值 命令按钮 Name Caption CommandA 求平均值 文本框 Name TextA 文本框 Name TextB 文本框 Name TextC 文本框 Name TextD 第二步:编写程序代码。 程序提供的代码: Option Base A Private Function Average(a() As Integer) As Sincle Dim Start As Integer, Finish As Integer Dim i As Integer Dim Sum As Integer ’Start=(a) ’Finish=(a) ’Sum= For i=Start To Finish ’Sum=Sum+ Next i ’Average= 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(arrA(i) ) Next i ’Aver=Average() Print 平均值是: ; Aver End Sub 参考代码: Option Base A Private Function Average(a() As Integer) As Single Dim Start As Integer, Finish As Integer Dim i As Integer Dim Sum As Integer Start=LBound(a) Finish=UBound(a) Sum= 0 For i=Start To Finish Sum=Sum+a(i) Next i Average=Sum Finish 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(arrA(i) ) Next i Aver=Average (arrB) Print 平均值是: ; Aver End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘