首页 > 电子信息工程> 通信原理

题目内容（请给出正确答案）

[单选题]

有一个窗体Form1，其中有一个文本编辑框Text1和一个命令按钮Command1。运行窗体后在文本编辑框中输入一串字符，单击命令按钮后该窗体的标题改变为文本编辑框中输入的字符串。则宏命令SetValue的参数设置是( )。

A.“项目”：[Forms]![Form1]，“表达式”：[Forms]![Form1]![Text1]

B.“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Text1]

C.“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Command1]

D.“项目”：[Forms]![Form1]![Text1]，“表达式”：[Fonns]![Form1]![Command1]

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“有一个窗体Form1，其中有一个文本编辑框Text1和一个命…”相关的问题

第1题

有一个窗体Form1，其中有一个文本编辑框Text1和一个命令按钮Command1。运行窗体后在文本编辑框中输入一串字符，单击命令按钮后该窗体的标题改变为文本编辑框中输入的字符串。则宏命令SetValue的参数设置是( )。

A.“项目”：[Forms]![Form1]，“表达式”：[Forms]![Form1]![Text1]

B.“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Text1]

C.“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Command1]

D.“项目”：[Forms]![Form1]![Text1]，“表达式”：[Forms]![Form1]![Command1]

点击查看答案

第2题

有一个窗体Form1，其中有命令按钮Command1，现要求单击该按钮用VBA程序打开已有的数据表“学生”，正确的命令是( )。

A.DoCmd.OpenTable学生

B.DoCmd.OpenTable"学生"

C.DoCmd.OpenForm学生

D.DoCmd.OpenForm"学生"

点击查看答案

第3题

有一个窗体Form1，要求该窗体只能运行30s，时间一到则窗体将自动关闭。程序空白处应填写（)。 Private Sub Fo

有一个窗体Form1，要求该窗体只能运行30s，时间一到则窗体将自动关闭。程序空白处应填写( )。

Private Sub Form_Load()

Me.TimerInterval=1000

i=0

End Sub

Private Sub Form_Timer()

______

If i=30 Then

DoCmd.CloSe

End If

End Sub

A．i=i+1 B．i=i-1

C．i=i+30 D．i=i-30

点击查看答案

第4题

在MDI主窗体中,如何新建一个MDI子窗体？

A.Form1_NewMdiChild=new_Form1();NewMdiChild.MdiParent=this;

B. Form1_NewMdiChild=new_Form1();this.MdiChild=NewMdiChild;

C. Form. 1.MdiParent=this;

D. this.MdiChild=Form1;

点击查看答案

第5题

一个工程含有多个窗体及标准模块，下列叙述错误的是（)。

A、如果工程含Form1窗体，程序首先执行该窗体的事件过程

B、任何时刻最多只有一个窗体是活动窗体

C、标准模块不能设置为启动模块

D、Hide方法只是隐藏而不从内存中清除窗体

点击查看答案

第6题

如果Form2是启动窗体，并且Form2的Load事件过程中有Form1.Show,则程序启动后（)。

A、发生一个运行时错误

参考答案：

C、在所有的初始化代码运行后Form1是活动窗体

D、在所有的初始化代码运行后Form2是活动窗体

点击查看答案

第7题

在Visual Basic工程prjl中包含有两个窗体，窗体form1（主窗体)上有两个命令按钮command1和 command

在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

点击查看答案

第8题

编写一个过程把C盘中的Config. sys文件内容读出，并在文本框中显示出来。在窗体Form1建立一个文本

框Text1，将其MultiLine属性设置为True,将ScrollBars属性设置为3-Both。根据题意。请完善下列程序。 option Explicit Private Sub Form. C1ick() Dim chl As String, fn As Integer Dim Str As String fn=【】 Open "C:\Config. sys" For Input As fn Do While Not EOF(【】) Line Input fn, chl Str=Str+chl+vbCrLf Loop Text1. Text=【】 End Sub

点击查看答案

第9题

编写一过程将C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框

Text1，将其MultiLine属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，请将程序补充完整。 Option Explicit Private Sub Form. _Click() Dim ch1 As String，fn As Integer Dim Str As String fn=【】 Open "C:\Config.sys" For Input As fn Do While Not EOF(【】) Line Input fn, ch1 Str = Str + chl+ vbCrLf Loop Text1.Text =【】 End Sub

点击查看答案

第10题

在窗体form1上有一个驱动器列表控件Drivel，一个目录列表控件Dirl，一个文件列表控件File1，一个富

文本控件Richtexbox1。要求程序运行以后，用户可以利用。Drivel选择不同驱动器，同时Dirl中显示当前选中的驱动器的目录，用户利用Dirl选择文件所在的文件夹，在Filel控件中将显示当前选中的文件夹下的文件，用户选中其中某个文件(假设为文本文件)，则该文件的内容显示在控件Richtexboxl中。补充相应的语句，使之完成所述的功能。 Private Sub Dirl_Change() 【】 End Sub Private Sub Drive1_Change() 【】 End Sub Private Sub Filel _Click() Dim fname AS String If【】Then fname=Filel．Path & Filel．FileName Else fname=Filel．Path& "\" & Filel．FileName End If RichTextBox1．LoadFile(fname) End Sub

点击查看答案

第11题

在窗体Form1中有按钮Button1，以下那个Click事件处理程序可以关闭该窗体?()

在窗体Form1中有按钮Button1，以下那个Click事件处理程序可以关闭该窗体？（)

在窗体Form1中有按钮Button1，以下那个Click事件处理程序可以关闭该窗体？()

A.Form1.Close();

B.this.Close();

C.Button1.Close();

D.me.Close();

点击查看答案

湖南拓肯信息安全技术有限公司版权所有 ©2024

湘ICP备19012461号-1 湘公安备案43019002002173号营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）