更多"程序模块文件是一个______文件,它不属于任何窗体。"的相关试题:
[填空题]程序模块文件是一个______文件,它不属于任何窗体。
[单项选择]下列不属于Access窗体的视图是( )。
A. 设计视图
B. 窗体视图
C. 版面视图
D. 数据表视图
[单项选择]如果要从子窗体的最后一个字段移到主窗体的下一个字段或到主窗体下一个记录的第一个字段,可以按
A. Tab键
B. Shift键
C. Ctrl键
D. Ctrl+Tab键
[填空题]程序是一个窗体双击事件代码,窗体的名称是Mywindow。窗体上有一个名为Text1的文本框,用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除;重复上述过程5次。
Option Explicit
Private 【12】
Dim k As Integer
For k=1 to 100
If k Mod 20 Then
【13】
Else
Text1.Text=""
End lf
Print“程序运行完毕,可再双击窗体”
End Sub
[填空题]程序是一个窗体双击事件代码,窗体的名称是Mywindow。窗体上有一个名为text1的文本框,用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除;重复上述过程5次。
Option Explicit
Private ______
Dim k As Integer
For k=1 To 100
If k Mod 20 Then
_______
Else
Text1.Text=" "
End If
Print“程序运行完毕,可再双击窗体”
End Sub
[填空题]在一个工程中有两个窗体,窗体Form1上有一个命令按钮Disp,单击该按钮,Form1窗体隐藏,显示Form2窗体,程序如下,请补充完整。
Private Sub Disp_Click( )
Me.Hide
Form2. 【10】
End Sub
[填空题]在一个工程中有两个窗体,窗体Form1上有一个命令按钮Disp,单击该按钮,Form1窗体 隐藏,显示Form2窗体,程序如下,请补充完整。
Private Sub Disp_Click( )
Me.Hide
Form2.【 】
End Sub
[填空题]设计一个窗体,窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框,利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色,为此编写以下程序代码,井按要求将程序补充完整。
Private Sub Command1_Click( )
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
【9】
Text1.ForeColor=CommonDialog1.Color
End Sub
[单项选择]下列不属于窗体类型的是______。
A. 纵栏式窗体
B. 表格式窗体
C. 开放式窗体
D. 数据表窗体
[填空题]创建一个窗体,在该窗体中建立两个按钮,分别命名为Command1和Command2。下列程序代码用于实现以下功能:单击命令按钮Command1后,按钮Command1变为不可用,而Cmmnand2设置为可用。请填空。
Private Sub Command1_ Click( )
Command1.______ = False
Command1.______ = True
End Sub
[单项选择]在Access2003中,以下不属于窗体的功能的是()。
A. 显示和编辑数据内容
B. 显示注释、说明或警告信息
C. 控制应用程序的运行步骤
D. 保存数据
[单项选择]在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview属性设置为True,然后编写如下代码: Dim Save All As String Private Sub Command1_Click( ) Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后,在键盘上输入“abcdefg”,单击命令按钮,则文本框中显示的内容为 ______。
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框,并将窗体的KeyPreview属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Form_Load( ) Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Command1_Click( ) Text1.Text = Ucase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后,在键盘上输入abcdefg,单击命令按钮,则文本框中显示的内容为
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错