首页 > 成人高考

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

[单选题]

开始窗体中有一个名为Txet0的文本框,将此文本框作为密码框，条件宏中设置其密码为111，则应该在条件宏的条件中设置表达式()。

A.[Forms]![开始窗体]![Text0]=111

B.[Forms]![开始窗体]![Text0]="111"

C.[Text0]=[111]

D.Text0="111"

查看答案

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

您可能会需要：

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

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

更多“开始窗体中有一个名为Txet0的文本框,将此文本框作为密码框…”相关的问题

第1题

一个工程一般包括窗体模块（扩展名为.frm)和标准模块（扩展名为.bas)等类型的文件。（)

点击查看答案

第2题

已知在窗体上有一个文本框控件，它的名称为Text1，且输入的字符全部为数字，现在要把该字符转换为整

数送给整型变量C，所用到的语句是【】。

点击查看答案

第3题

若已在窗体中加入了一个OpenDialog对象，要求在运行时，打开对话框时只显示扩展名为TXT的文件，

点击查看答案

第4题

在窗体上有一个名为Image1的图像框，现在要把“D：”盘根目录下的图片文件“Fox．bmp”在其中显示出来，

使用的语句是【】。

点击查看答案

第5题

把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，

请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_Click() Open"d：\test\smtext1．txt"For lnput As1 Text1.Fontsize=14 Text1.FontName=“幼圆” Do While Not EOF(1) 【】 whole＄=whole $ aspect $+Chr$(13)+Chr $(10) Loop Text1.Text=【】。 Close Open"d：\test\smtexttxt"For Output As1 Print 1【】 Close End Sub

点击查看答案

第6题

在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对

话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。 Private Sub Command1_Click() CommonDialog1．Filter=【】 CommonDialog1．FilterIndex=【】 CommonDialog1．ShowSave Info．Text=【】 End Sub

点击查看答案

第7题

编写一个过程把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

点击查看答案

第8题

在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显

示输入整数的各位数字和。 Private Function fun(m As Integer) As Integer Dim k As Integer, n As Integer do n =【】 k=k+ n m= m\10 Loop until m = 0 fun = k End Function Private Sub form_ Click() Dim n As Integer n = Val(Text1. Text) Print【】 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题

以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本

框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 Public yx As Integer Public yy As Integer Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_ X As Single，Y As Single) If Button=1 Then Text1．Left=【】 Text1．Top=【】 End If End Sub Private Sub Form_ MouseDown (Button As Integer，Shift As Integer，_ X As Single，Y As Single) If【】Then yx=Text1．Left-X yy=Text1．Top-Y End If If Button=2 Then Text1．Text=“X坐标：”+Str(Text1．Left)+“Y坐标：”+Str(Text1．Top) End If End Sub

点击查看答案

第11题

在窗体上画一个名为Label1的标签和一个名为List1的列表框。程序运行后，在列表框中添加若干列表项。

当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图16-1所示。请在【】和【】处填入适当的内容，将程序补充完整。(2002年9月) Private Sub Form_load() List1. AddItem"北京" List1. AddItem"上海" List1. AddItem"河北" End Sub Private Sub【】 () Label1. Caption=【】 End Sub

点击查看答案

湘ICP备2024047451号营业执照

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

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