问答题

注意:下面出现的“”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在Form1的窗体上画一个名称为Text1的文本框,然后建立一个主菜单,标题为“操作”,名称为Op,该菜单有两个子菜单,其标题分别为“显示”和“隐藏”,名称分别为Dis和Hid,编写适当的事件过程。程序运行后,如果单击“操作”菜单中的“显示”命令,则在文本框中显示“计算机考试”;如果单击“隐藏”命令,则隐藏文本框。程序的运行情况如图12-1和图12-2所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。程序中不得使用任何变量。


(2) 在窗体上画一个列表框,名称为L1,通过“属性”窗口向列表框中添加四个项目,分别为“早上好”、“中午好”、“下午好”和“晚上好”,编写适当的事件过程。程序运行后,每次单击列表框中的任何一项,则总在最后面添加一项“真有礼貌”。程序的运行情况如图12-3和图12-4所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。程序中不得使用任何变量。

【参考答案】

[解析] 在窗体上建立好控件后,先设置控件属性,再编写事件过程。
菜单在“菜单编辑器”窗口中创建;在程序运行是......

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

问答题
[解析] 时钟控件作用是以一定的时间间隔激发计时器事件(Timer)而执行相应程序代码,Interval属性决定时间间隔的长短,以毫秒为单位,所以要改变两个图片交替的速度可将滚动框的Value值赋值给Interval属性即可:当时钟控件的 Enabled属性为True时,时钟控件才起作用,当为False时该控件不起作用。所以要使开始的时候图片不改变,将Timer控件的Enabled属性设置为False,单击命令按钮要使图片开始改变时,将时钟控件的Enabled属性设置为True;程序运行时用 LoadPicture()方法在图形框里装入图形,其格式为: 图形框.Picture=LoadPicture(图形文件名)。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表12-3。 表 12-3 控 件 属 性 设 置 值 按纽 Name Caption C1 开始 图象框 Name Image1 计时器 Name Timer1 滚动框 Name HScroll1 第二步:编写程序代码。 程序提供的代码: Private Sub C1_Click() Timer1.Enabled=True End Sub Private Sub HScroll1_Change() ’Timer1.=1000-HScroll1. End Sub Private Sub Timer1_Timer() Static i As Integer If i=0 Then ’Image1.Picture=( 2.ico ) i=1 Else ’Image1.Picture=( 1.ico ) i=0 End If End Sub 参考代码: Private Sub C1_Click() Timer1.Enabled=True End Sub Private Sub HScroll1_Change() Timer1.Interval=1000-HScroll1.Value End Sub Private Sub Timer1_Timer() Static i As Integer If i=0 Then Image1.Picture=LoadPicture( 2.ico ) i=1 Else Image1.Picture=LoadPicture( 1.ico ) i=0 End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2) [解析] 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 按钮标题由Caption来设置;在“属性”窗口中通过Picture属性来设置图像框的图片。控件的大小由Width属性和Height属性来设置,Width决定控件的宽,Height决定控件的高度,可在属性窗口中直接设置,也可在程序运行中用代码来设置。 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性设置见表12-4。 表 12-4 控 件 属 性 设 置 值 按钮 Name Caption C1 放大 按钮 Name Caption C2 缩小 图像框 Name Image1 第二步:编写程序代码。 程序提供的代码: Private Sub C1_Click() If Image1.Height <3000 Or Image1.Width<3000 Then ’Image1.Height=Image1.+500 Image1.Width=Image1.Width+500 End If End Sub Private Sub C2_Click() If Image1.Height>1000 Or Imagel.Width>1000 Then Image.Height=Image1.Height-500 ’Image1.Width=Image1.Width 500 End If End Sub 参考代码: Private Sub C1_Click() If Image1.Height<3000 Or Image1.Width<3000 Then Image1.Height=Image1.Height+500 Image1.Width=Image1.Width+500 End If End Sub Private Sub C2_Click() If Image1.Height>1000 Or Image1.Width>1000 Then Image1.Height=Image1.Height-500 Image1.Width=Image1.Width-500 End If End Sub 第三步:调试并运行程序 第四步:按题目要求存盘
问答题
[解析] 文本框中显示的内容由Text属性设置。单击命令按钮触发Click事件,命令按钮的标题由Caption属性设置。 题目要求加密原理是:在原来字符的ASCII码加上一个整数(题目要求为B)转换为其他的字符,然后再将加密后的字符显示在文本框中。这样就用到了Chr函数和Asc函数。 Chr函数返回String,其中包含有与指定的字符代码相关的字符。其语法格式为: Chr(charcode) charcode必要参数,是一个用来识别某字符的Long。 Asc函数返回一个Integer,代表字符串中首字母的字符代码。其语法格式为: Asc(string) string必要的参数,可以是任何有效的字符串表达式。解题步骤: 第一步:编写程序代码。 程序提供的代码: Private Sub CA_Click() Dim strinfo As String ’ inG.txt For Input As A Input #A, strinfo Close #A TextA.Text=strinfo End Sub Private Sub CommandB_Click() Dim strchange As String Dim i As Integer For i=A To Len(TextA.Text) ’ strchange=strchange+(Asc(Mid(TextA.Text, i, A) ) +B) Next TextA.Text=strchange End Sub Private Sub CommandC_Click() Open outG.txt For Output As A ’Print #A, Close #A End Sub 参考代码: Private Sub CA_Click() Dim strinfo As String Open inG.txt For Input As A Input #A, strinfo Close #A TextA.Text=strinfo End Sub Private Sub CB_Click() Dim strchange As String Dim i As Integer For i=A To Len(TextA.Text) strchange=strchange+Chr(Asc(Mid(TextA.Text, i, A) ) +B) Next TextA.Text=strchange End Sub Private Sub CC_Click() Open outG.txt For Output As A Print #A, TextA.Text Close #A End Sub 第二步:调试并运行程序 第三步:按题目要求存盘