假定一个表单里有一个文本框Text1和一个命令按钮组CommandGroup1,命令按钮组中包含Command1和Command2两个命令按钮。如果要从Command1命令按钮的某个方法中访问文本框的Value属性值,下面式子中正确的是( )。
A.This.ThisForm.Text1.Value
B.This.Parent.Parent.Text1.Value
C.Parent.Parent.Text1.Value
D.This.Parent.Text1.Value
A.This.ThisForm.Text1.Value
B.This.Parent.Parent.Text1.Value
C.Parent.Parent.Text1.Value
D.This.Parent.Text1.Value
第1题
A.This.ThisForm.Text1.Value
B.This.Parent.Parent.Text1.Value
C.Parent.Parent.Text1.Value
D.This.Parent.Text1.Value
第2题
设计一个名为Frm01的表单,表单的控件名和文件名均为Frm01。表单的形式如下图所示。
要求如下:
(1)表单标题为"零件供应情况",表格控件为Grid1,命令按钮"查询"为Command1、"退出"为Command2,标签控件 Label1 和文本框控件Text1(程序运行时用于输入工程号)。
(2)运行表单时,在文本框中输入工程号,单击"查询"命令按钮后,表格控件中显示相应工程所使用的零件的零件名、颜色和重量(通过设置有关"数据"属性实现),并将结果按"零件名"升序排序存储到pp.dbf文件。
单击"退出"按钮关闭表单。
答题要求:
(1)将表格的recordsourcetype属性设为“0”
(2)查询的单击事件:
使用select语句,将查询结果存到一个表pp.dbf中,然后再将表格grid1的recordsource属性设为"pp"
(3)表单备注文件不能删除
完成表单设计后运行表单,并查询工程号为"J4"的相应信息。
第3题
A=THISFORM.TEXT1.VALUE
B=THISFORM.TEXT2.VALUE
C='*'
IF THISFORM.OPTIONGROUP1.VALUE=1
D=A&C.B
ELSE
D=A&C.&C.B
ENDIF
THISFORM.TEXT3.VALUE=D
若表单中各控件当前内容如图一,请分别写出选择“选项1” 后,点击“=>”按钮,文本框TEXT3中显示的内容;选择“选项2”后,点击“=>”按钮,文本框TEXT3中显示的内容。
第4题
A.双击数据库窗口中的宏Macro1
B.单击登录窗体中的验证按钮Command1
C.在文本框Text1中输入密码后按<Enter>键
D.在VBA程序Module1中运行宏Macro1
第5题
A.双击数据库窗口中的宏Macro1
B.单击登录窗体中的验证按钮Command1
C.在文本框Text1中输入密码后按<Enter>键
D.在VBA程序Module1中运行宏Macro1
第6题
第7题
窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。
Private Sub Command1_Click()
Dim i As Integer,s As String
s="首都经济贸易大学"
For i=1 To b Step 2
Text1=Text1&Mid(s,i,1)
Next i
End Sub
窗体运行后,单击命令按钮Command1,Text1中显示的是______。
第8题
如果输入的某个学生的学号对应的学生不存在,则在第二个文件框内显示“该生不存在”,第三个文本框不显示内容(如下图所示):如果输入的某个学生的学号对应的学生存在,但在宿舍表中没有该学号对应的记录,则在第二个文本框内显示该生的“姓名”,第三个文本框显示“该生不住校”。
单击“退出”按钮关闭表单。
第9题
在窗体上画一个文本框(其Name属性为Text1),编写如下事件过程,运行结果是______。 Private Sub Form_Load() Show Text1.Text="你好!" Text1.SetFocus For i=1 To 15 Sum=Sum+i Next i Text1.Text=Sum End Sub
第10题
A.15
B.14
C.13
D.12
第11题
A.Text1.MaxLength=0
B.Text1.Enabled=Flase
C.Text1.Visible=Flase
D.Text1.Width=0