问答题

在考生文件夹下有一个工程文件sjt3.vbp，及其窗体文件sjt3.frm，程序运行时，如果用鼠标左键按住窗体，并在其上移动，则窗体上显示“您按下了鼠标的左键”；如果用鼠标的右键按住窗体，并在其上移动，则显示“您按下了鼠标的右键”。程序运行时的窗体界面如图所示。

要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。
试题源程序：
1 Private Sub Form MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)
2 If Button=Then Print“您按下了鼠标的左键”
3 If Button=Then Print“您按下了鼠标的右键”
4 End Sub

【参考答案】

第一步：启动Visual Basic，打开考生文件夹下的工程文件sjt3.vbp。
第二步：双击窗体中的任何位......

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)

<上一题目录下一题>

热门试题

问答题

在考生文件夹下有一个工程文件sjt4.vbp，及其窗体文件sjt4.frm，窗体上有一个标签和一个文本框，控件及其属性均已设置完毕。现使用KeyPress事件编写一个口令程序，程序运行后，在文本框中输入口令，如果正确，则显示相应的信息，单击“确定”按钮后，将显示一行信息；如果口令不正确，则要求重新输人。3次输入的口今都不正确，则停止输入，并结束程序。程序运行的画面如图所示。要求：题目中所给的程序不完全，请读懂程序后将其补充完整，以原文件名保存。试题源程序如下： 1 Private Sub Form Load() 2 Text1.Text= 3 Text1.FontSize=10 4 Label1.FontSize=12 5 Label1.FontBold=True 6 Label1.Font0= 隶书 7 Label1.Caption=“请输入口令……” 8 End Sub 9 Private Sub Text1_KeyPress(KeyAscii As Integer) 10 Static PWord As String 11 Static Counter As Integer 12 Static Numberftries As Integer 13 Numberftries=Numberftries+1 14 If Then End 15 Counter=Counter+1 16 PWord=PWord+ 17 KeyAscii=0 18 Text1.Text=String$(Counter， * ) 19 If LCase $(PWord)= abcd Then 20 Text1.Text= 21 PWord=0 22 MsgBox“口令正确，继续……” 23 Counter=0 24 Print continue… 25 ’ElseIf Then 26 Counter=0 27 PWord= 28 Text1.Text= 29 MsgBox“口令不对，请重新输入” 30 End If 31 End Sub

问答题

在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Hscrol1，Min属性和Max属性分别为0和100，如图所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目内容，并把滚动条的滚动框移动到相应的位置，如图所示。要求：不得使用任何变量。

相关试题