标题 | 名称 | 内缩 | 索引 | 可见 |
文件 | File | 无 | 无 | True |
打开 | mnuOpen |
更多"窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜"的相关试题: [单项选择]在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个名为Command1的命令按钮,并编写如下事件过程: Private Sub Command1_ Click( ) CommonDialog1. Flags= cd10FNHideReadOnly CommonDialog1. Filter= "All Files (*.*) |*.*|Text File" & _ "(*.txt) |*.txt | Batch Files (*.bat)| *.bat" CommonDialog1. FilterIndex = 2 CommonDialog1. ShowOpen MsgBox CommonDialog1. FileName End Sub程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是______ 。
A. All Files (*.*) B. Text Files(*.tx C. Batch Files (*.ba D. 不确定 [单项选择]设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为a1,且取消其“可见”属性。运行时,哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是
A) Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then PopupMenu a1,2
End Sub
B) Private Sub Form_MouseDown(ButtonAsInteger,ShiftAsInteger,X As Single,Y As Single)
PopupMenu a1,0
End Sub
C) Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,X As Single,Y As Single)
PopupMenu a1
End Sub
D) Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If(Button=vbLetfButton) Or (Button=vbRightButton) Then PopupMenu a1
End Sub
[单项选择]窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程:
Private Sub Option1_Click(Index As Integer) … End Sub 下面关于此过程的参数Index的叙述中正确的是( )。 A. Index为1表示单选按钮被选中,为0表示未选中 B. Index的值可正可负 C. Index的值用来区分哪个单选按钮被选中 D. Index表示数组中单选按钮的数量 [填空题]设窗体上有一个名称为CD1的通用对话框,一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时,单击Command1按钮,则显示打开文件对话框,操作者从中选择一个文本文件,并单击对话框上的“打开”按钮后,则可打开该文本文件,并读入一行文本,显示在Text1中。下面是实现此功能的事件过程,请填空。
Private Sub Command1_Click( ) CD1.Filter="文本文件1*.txt(Word文档)*.doc" CD1.Filterinder=1 CD1.ShowOpen If CD1.FileName<>" "Then Open______For Input As # 1 Line Input #1,ch$ Close #1 Text1.Text=______ End If End Sub [单项选择]在窗体上有一个计时器控件Timer1和一个标签控件Label1,在程序运行时可通过每隔30毫秒让Lable1左移100缇,从而产生文字移动动画效果。文字从右向左移动,当移动到接近窗体左边界时停止移动。空格处应填 ______。
Private Sub Form1_Load( ) Label1. Left=Form1. Width Timer1. Interval=30 ______ End Sub Private Sub Timer1_Timer( ) Lable1.Left=Lable1. Left -100 If Lablel. Left<100 Then Timer1. Enable=False End If End Sub A. Timer1. Enable=True B. Label1.Enable=True C. Timer1. Enable=False D. Label1. Enable=False [单项选择]窗体上有一个名称为VScrol11的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScrol11.Value的值等于
A. VScrol11.LargeChange B. VScrol11.SmallChange C. VScrol11.Max D. VScrol11.Min [单项选择]设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是______。
A. List1.Selected(List1.Listlndex)的值为True B. List1.Selected(3)的值为True C. List1.List(3)的值为True D. List1.ListIndex的值为3 [填空题]窗体中的窗体称为______。
[单项选择]下面程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub A. 3 B. 9 C. 5 D. 6 [填空题]窗体中的窗体称为【 】,其中可以创建【 】。
[单项选择]以下程序运行时,单击窗体后,在窗体上输出的结果是 ______。
Private SubForm_Click( ) Dim a As Integer,b As Integer a=10 :b=20 Call ff(a,B) Print a,b End Sub Private Sub ff(x As Integer,y As Integer) x=x+y y=x+y End Sub A. 30 50 B. 30 30 C. 20 20 D. 10 20 [填空题]窗体中的窗体称为 [8] ,其中可以创建 [9] 。
[填空题]窗体中的窗体称为 【11】,其中可以创建 【12】。
我来回答: 提交
|