问答题
【参考答案】
[解析] 单击按钮触发其Click事件,标题由Caption属性设置;标签的标题也是由Caption属性设置;文件的操作......
(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
点击查看答案
<上一题
目录
下一题>
热门
试题
问答题
[解析] 在窗体上建立好控件后,先设置控件属性,再编写事件过程 RichTextBox控件可以用LoadFile和SaveFile方法可以方便的为RichTextBox控件打开或保存文件,LoadFile方法能将 RTF文件或文本文件装入控件,其形式如:对象.LoadFile 文件标志符[,文件类型];统计字符的个数可用Len(要统计的内容)函数。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表AC-C。 表 AC-C 控 件 属 性 设 置 值 CommandA Caption 加入sjt0A.txt CommandB Caption 统计字符个数 第二步:编写程序代码。 程序提供的代码: Option Explicit Private Sub CommandA_Click() ’rtxA. App.Path+ sjt0A.txt End Sub Private Sub CommandB_Click() If rtxA.Text <> Then ’ TextA.Text= End If End Sub 参考代码: Option Explicit Private Sub Commandl_Click() rtxA.LoadFile App. Path+ sjt0A.txt End Sub Private Sub CommandB_Click() If rtxA.Text <> Then TextA.Text=Len(rtxA.Text) End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (B) [解析] 在窗体上建立好控件后,先设置控件属性,再编写事件过程 图像框的图片由Picture属性设置。判断鼠标左键还是右键可以通过图像框的MouseUp事件的Button参数来判断。 MouseUp事件再释放鼠标按钮时发生。其语法格式为: PrivateSubobject_MouseUp([indexAsInteger,]buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle) Object一个对象表达式。 Index一个整数,用来惟一地标识一个在控件数组中的控件。 Button返回一个整数,用来标识该事件的产生是按下(MouseDown)或者释放(MouseUp)按钮引起的。button参数是具有相应于左按钮(位0),右按钮(位A),以及中间按钮(位B)的一个位字段。这些位的值分别等于A,B,和D。其中仅有一位被设置,指示出引起该事件的那个按钮Shift返回一个整数,在button参数指定的按钮被按下或者被释放的情况下,该整数相应于SHIFT,CTRL和ALT键的状态。某键被按下使得一个二进制位被设置。 shift参数是具有相应于SHIFT键(位0),CTRL键(位”,以及ALT键(位B)最少二进制位的一个位字段。这些位的值分别等于A,B,和D。shift参数指示这些键的状态。这些位中可能有一些、全部或者一个也没有被设置,指示这些键中的一些、全部或者一个也没有被按下。解题步骤: 第一步:建立界面并设置控件属性。 第二步:编写程序代码。 程序提供的代码: Private Sub ImageA_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=A Then If ImageA.Height<D000 Or ImageA.Width<D000 Then Imagel.Height=Imagel.Height+E00 ’ Imagel.Width=Imagel.Width E00 End If End If ’If Button= Then If ImageA.Height>A000 Or ImageA.Width>A000 Then ImageA.Height=ImageA.Height-E00 ImageA.Width=ImageA.Width-E00 End If End If End Sub 参考代码: Private Sub ImageA_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=A Then If ImageA.Height<D000 Or ImageA.Width<D000 Then ImageA.Height=ImageA.Height+E00 ImageA.Width=ImageA.Width+E00 End If End If If Button=B Then If ImageA.Height>A000 Or ImageA.Width>A000 Then ImageA.Height=ImageA.Height-E00 ImageA.Width=ImageA.Width-E00 End If End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
点击查看答案
问答题
注意:下面出现的“ks 0905 2vb 1 13.zip”均为c: wexam 25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在Form1的窗体上画一个名称为Text1的文本框,然后建立一个主菜单,标题为“操作”,名称为Op,该菜单有两个子菜单,其标题分别为“显示”和“清除”,名称分别为Dis和Clea,编写适当的事件过程。程序运行后,如果单击“操作”菜单中的“显示”命令,则在文本框显示“计算机考试”;如果单击“清除”命令,则清除文本框中显示的内容。程序的运行情况如图13-1和图13-2所示。 注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。 (2) 在窗体上画一个文本框,名称为Text1,Text属性为空白。再画一个列表框,名称为L1,通过“属性”窗口向列表框中添加4个项目,分别为“早上好”、“上午好”、“中午好”和“下午好”,编写适当的事件过程。程序运行后,在文本框中输入一个字符串,如果双击列表框中的任一项,则把文本框中的字符串添加到列表框中。程序的运行情况如图13-3所示。 注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
点击查看答案
相关试题
[解析] 在窗体上建立好控件后,先设置控...
注意:下面出现的“ks 0905 2vb 1...