更多"当程序运行时，在窗体上单击鼠标，在以下事件中，窗体不能响应的是( )"的相关试题:
[单项选择]当程序运行时，在窗体上单击鼠标，以下那个事件是窗体不能响应的事件
A. MouseDown
B. MouseUP
C. Load
D. Click
[填空题]设窗体上有一个名称为Lable1的标签。程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在Lable1标签中：单击鼠标右键则停止实时显示，并将标签中内容清除。下面的程序可实现这一功能，请填空。
Dim Down As Boolean
Private Sub Form _MouseDown(Button As Integer，Shift As Integer，x As Single，Y As Single)
Select Case （ 8 ）
Case 1
Down=True
Case 2
Down=False
End Select
End Sub
Private Sub Form _MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)
If （ 9 ）
（ 10 ） =”X=”& X &” Y=”& Y
Else
Label1.Caption=””
End if
Sub
[单项选择]窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程
Private Sub option1_Click(Index As Integer)
…
End Sub
下面关于此过程的参数Index的叙述中正确的是（）
A. Index为1表示单选按钮被选中，为0表示未选中
B. Index的值可正可负
C. Index的值用来区分哪个单选按钮被选中
D. Index表示数组中单选按钮的数量
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form_Click（ ）
Dim I As Integer
Dim sum As Long
sum=0
For I=10 To 16
If I Mod 3=0 OrI Mod 5=0 Then
sum=sum+I
End If
Next I
Print sum
End Sub
A. 10
B. 12
C. 37
D. 22
[单项选择]下面的程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form_Click（ ）
Dim a(1 To 6)As Integer
Dim min1%,i%,j%,n%,t%,k%
a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7
n=6
For i=1 To n-1
min 1=i
For j=i+1 To n
If a(j)＜a(min1)Then min1=j
Next j
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1 To n
Print a(i)
Next i
End Sub
A. 9 8 7 6 3 2
B. 2 3 6 7 8 9
C. 9 8 7 6 3
D. 2 3 6 7 8
[简答题]
在名称为Form1的窗体上添加一个名称为P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框”；每单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。要求在程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sit2.frm。
[填空题]在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容，将程序补充完整。
Private Sub Command1_Click（ ）
Open"c：/test.dat"For Output As #1
For I=1 to Len(Text1.text)
______
Next I
Close #1
End Sub
[单项选择]窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
[单项选择]在窗体上画一个名为Text1的文本框和一个名为Command1的命令按钮。要求：程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件Test.dat中，如图所示。请在空格处填上适当的内容，则在以下横线处合适的语句是( )。
Private Sub Command1_Click（ ）
Open "c:/test.dat"For______As#1
For i=1 To Len(Text1.Text)
Next i
Close #1
End Sub
A. Input Print#1,Mid(Text1.Text,i,1)
B. Output Print#1,Mid(Text1.Text,i,1)
C. Output Print#1,Left(Text1.Text,i,1)
D. Output Input#1,Mid(Text1.Text,i,1)
[单项选择]为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是______。
A. 使2组单选按钮的名称分别相同
B. 使2组单选按钮的Index属性分别相同
C. 把2组单选按钮分别画到2个不同的框架中
D. 把这2组单选按钮设置为名称不同的2个控件数组
[单项选择]程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是
A. MouseDown
B. MouseUp
C. Load
D. Click
[单项选择]下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是( )
Private Sub Command1_Click（ ）
Dim count(25)As Integer,ch As String
ch=Ucase(InputBox("请输入字母字符串"))
For k=1 To Len(ch)
n=Asc(Mid(ch,k,1))-Asc("A")
If n＞＝0 Then
count(n)一count(n)+1
End If
Next k
m=count(0)
For k=1 To 25
If m＜count(k) Then
m=count(k)
End If
Next k
Print m
End Sub
A. 0
B. 1
C. 2
D. 3
[填空题]下列JApplet对鼠标单击事件进行处理，当鼠标在JPanel中单击时，在JLabel中显示单击次数。请在横线处填写正确的代码 【15】 。
import java.awt.event.*;
import javax.swing.*;
import java.awt.*;
public class Test extends JApplet
{
static int cnt;
public void init（ ）
{
Container cp = getContentPane（ ）;
MyPane jp = new MyPane1（ ）;
_______;
jp.addMouseListener(new MouseAdapter（ ）
{
public void mouseClicked(MouseEvent me)
{
cnt ++;
jb.setText(Integer.toString(cnt});
}
});
cp.add("South",jB) ;
cp. add ("Center", jp);
}
}
class MuPanel extends JPanel
{
public MyPanel（ ）
{}
public void paintComponent(Graphics g)
{
super.panitComponent(g);
g.drawRect(0,0,getSize（ ） .width-1,getSize（ ） .hight-1);
}
}
[单项选择]窗体上有一个名称为VScroll1的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1. Value的值等于( )。
A. VScroll1. LargeChange
B. VSeroll1. SmallChange
C. VScroll1. Max
D. VScroll1. Min
[单项选择]当单击鼠标或者拖动鼠标时，触发的事件是______。
A. ActionEvent
B. KeyEvent
C. ItemEvent
D. MouseEvent
[填空题]窗体上有List1、List2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限，如图b所示。下面的程序可实现这一功能，请填空。
Private Sub Command1_Click（ ）
If List1.Text=”” or List2.Text=”” Then
MsgBox”请选择交换的物品！”
Else
List1.AddItem List2.Text
List2.RemoveItem （ 11 ）
（ 12 ）
List1.RemoveItem List1.ListIndex
End If
End Sub
