问答题


【参考答案】

[解析] 列表框用于在很多项目中作出选择的操作。列表框的ListCount属性表示表项的数量，列表项的排列从0开始，最后......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
<上一题 目录 下一题>
热门 试题

问答题
[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 按钮控件的属性由Caption来设置，单击触发其Click事件。通过设置Icon属性修改窗体的图标，修改窗体的Caption属性设置其标题。在程序中使用LoadPicture函数给Icon属性赋值，其格式为： LoadPicmre( 文件名 ) LoadPicture函数把图形文件装入窗体、图片框或图像框中。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表11-3。 表 11-3 控 件 属 性 设 置 值 按钮 Name Caption C1 修改窗体图标 按钮 Name Caption C２ 修改窗体标题 第二步：编写程序代码。 程序提供的代码： Private Sub C1_Click() ’Form1.Icon=LoadPicture( ) End Sub Private Sub C2_Click() ’Form1.= 窗体 End Sub 参考代码： Private Sub C1_Click() Form1.Icon=LoadPicture( 1.ico ) End Sub Private Sub C2_Click() Form1.Caption= 窗体 End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2) [解析] 正面体上建立好控件后，先设置控件属性，再编写事件过程。 计时器控件作用是以一定的时间间隔激发计时器事件(Timer)执行相应程序代码。当时计时器控件的Enabled属性为True时，计时器计时开始，当为False时计时器计时暂停，所以要使小球运动暂停可将Enabled属性值设置为False，要使小球运行，则设置该属性值为True。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表11-4。 表 11-4 控 件 属 性 设 置 值 按钮 Name Caption Command1 运行 按钮 Name Caption Commang2 暂停 按钮 Name Caption Commang3 结束 滚动条 Name HScroll1 图片框 Name Picture1 第二步：编写程序代码。 程序提供的代码： Option Explicit Dim c As Single，r As Single ’r小球到大球的球心的距离，C为小球的角度． Dim x As Single，y As Single ’X，Y为小球移动时的圆心 Dim st As Single Private SUb Command1_Click() Timer1.Enabled=True End Sub Private Sub Command2_Click() ’ End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() r=20 c=0 St=0.063 HScroll1.Min=1 ’设置最小值 HScroll1.Max=100 ’设置最大值 End SUb Private Sub HScroll1_Change() ’Timer1.=200-HScroll1.Value ’根据滚动条的数值设置时间间隔，速度越快，间隔越小 End Sub Private Sub Picturel_Paint() PiCture1.FillColor=QBColor(12) PiCture1.ForeColor=QBColor(12) PiCture1.Circle (0，0) ，2 X=Cos(C) * r y=Sin(C) * r Picture1.FillColor=QBColor(14) Picture1.ForeColor=QBColor(14) ’Picture1. (x，y) ，0.5 c=c＋st If C＞=2 * 3.14159 Then c=c Mod (2 * 3.14159) End If End Sub Private Sub Timer1_Timer() ’ ’重画图片框 End Sub 参考代码： Option Explicit Dim c As Single，r As Single ’r小球到大球的球心的距离，C为小球的角度． Dim x As Single，y As Single ’X，Y为小球移动时的圆心 Dim st As Single PriVate Sub Command1_Click() Timer1.Enabled=True End Sub PriVate Sub Command2_Click() Timer1.Enabled=False End Sub PriVate Sub Command3_Click() End End Sub Private Sub Form_Load() r=20 c=0 st=0.063 HScroll1.Min=1 ’设置最小值 HScroll1.Max=100 ’设置最大值 End Sub Private Sub HScroll1_Change() Timer1.Interval=200-HScroll1.Vslue ’根据滚动条的数值设置时间间隔，速度越快，间隔越小 End Sub Private Sub Picture1_Paint() Picture1.FillColor=QBColor(12) Picture1.ForeColor=QBColor(12) Picture1.Circle (0，0) ，2 X=Cos(C) * r y=Sin(C) * r Picture1.Fillcolor=QBColor(14) Picture1.ForeColor=QBColor(14) Picture1.Circle (x，y) ，0.5 c=c＋st If c＞=2* 3.14159 Then c=c Mod (2*3.14159) End If End Sub Private Sub Timer1_Timer() Picture1.RefreSh ’重画图片框 End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
问答题
注意：下面出现的“”均为c： wexam 25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“退出”，其名称分别为Dis和Exit，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“退出”命令，则结束程序运行。程序的运行情况如图11-1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 (2) 在窗体上画一个列表框，名称为L1，通过“属性”窗口向列表框中添加4个项目，分别为“WHBB”、“HIJK”、“QWEI”和“POIU”，单击列表框中的某一项，则该项就从列表框中消失。程序的运行情况如图11-2和图1l-3所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjtt2.frm。
相关试题