第1题
在窗体上画一个文本框(其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
第2题
A.This.ThisForm.Text1.Value
B.This.Parent.Parent.Text1.Value
C.Parent.Parent.Text1.Value
D.This.Parent.Text1.Value
第3题
A.This.ThisForm.Text1.Value
B.This.Parent.Parent.Text1.Value
C.Parent.Parent.Text1.Value
D.This.Parent.Text1.Value
第4题
第5题
第6题
第7题
第8题
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请将下面的程序补充完整。 Private Sub Command1_Click() 【 】Form1 Form2.【 】 End Sub
第9题
在Visual Basic工程prjl中包含有两个窗体,窗体form1(主窗体)上有两个命令按钮command1和 command2,一个文本控件text1;窗体dialog是一个对话窗体,窗体包含两个命令按钮OK和Cancel,一个文本控件text1和一个标签控件labe11。 编写程序要求实现的功能为:窗体form. 1上command1的caption属性值为name,程序运行后,当单击 eommand1时,弹出对话窗体dialog,其labe11控件中的提示信息为“please input your name:”,要求用户输入自己的姓名。如果单击OK按钮,保存当前输入的内容并返回form1界面,command1的caption属性值为email。若再次单击command1命令按钮,仍然出现dialog对话窗体,此时dialog的labe11提示用户输入自己的email,当用户输入email后,单击“确定”按钮,保存当前输入的内容并返回form1界面;如果单击Cancel按钮,则输入内容无效并返回form1。 Private Sub Command1_Click() Dialog. Text1. Text = "" Dialog. Show End Sub Private Sub Command2_Click() Text1. Text = "email: "+ Dialog. email +" name: "+ Dialog. fname End Sub Private Sub Form_ Load() Command1. Caption = "name" 【 】. Caption = "please input your name: Dialog. i = 0 End Sub Option Explicit Public i As Integer Public email As String Public fname As String Private Sub CancelButton_Click() i=0 email = "" fname = "" Forml. Command1. Capt ion = "name" Dialog. Hide Form1. Show End Sub Private Sub OKButton_ Click() 【 】 Select Case i Case 1: email = Text1. Text Labe11. Caption = "please input your email:" 【 】. Caption = "email" Case 2: fname = Text1. Text 【 】. Caption = "name" i=0 End Select Dialog. Hide Form1. Show End Sub
第10题
设计一个名为Frm01的表单,表单的控件名和文件名均为Frm01。表单的形式如下图所示。
要求如下:
(1)表单标题为"零件供应情况",表格控件为Grid1,命令按钮"查询"为Command1、"退出"为Command2,标签控件 Label1 和文本框控件Text1(程序运行时用于输入工程号)。
(2)运行表单时,在文本框中输入工程号,单击"查询"命令按钮后,表格控件中显示相应工程所使用的零件的零件名、颜色和重量(通过设置有关"数据"属性实现),并将结果按"零件名"升序排序存储到pp.dbf文件。
单击"退出"按钮关闭表单。
答题要求:
(1)将表格的recordsourcetype属性设为“0”
(2)查询的单击事件:
使用select语句,将查询结果存到一个表pp.dbf中,然后再将表格grid1的recordsource属性设为"pp"
(3)表单备注文件不能删除
完成表单设计后运行表单,并查询工程号为"J4"的相应信息。
第11题
A.Textbox.text="这是一个等边三角形!"
B.Text1.text="这是一个等边三角形!"
C.Text1.Caption="这是一个等边三角形!"
D.Text1.textbox="这是一个等边三角形!"