首页 > 自考

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

[主观题]

设窗体上有一个名为Text1的文本框，并编写如下程序：PrivateSubForm_Load（） Show Text1.Tex

设窗体上有一个名为Text1的文本框，并编写如下程序：

Private Sub Form_Load（）

Show

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Form_MouseUp（Button As Integer, _

Shift As Integer, X As Single, Y As Single）

Print "程序设计"

End Sub

Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）

Print "Visual Basic";

End Sub

程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。

A．Visual Basic

B．程序设计

C．Visual Basic程序设计

D．a程序设计

查看答案

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

您可能会需要：

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

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

更多“设窗体上有一个名为Text1的文本框，并编写如下程序：Pri…”相关的问题

第1题

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

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

点击查看答案

第2题

在程序的每个空白处填写一条适当的语句，使程序完成相应的操作。程序实现的功能是：窗体上有文本框T

ext1和若干复选框，其中复选框Check1设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下： Private Sub Check1_Click() If______ Then Text1.FontUnderline=Tree ElseIf______Then Text1.FontUndefiine=False End If End Sub

点击查看答案

第3题

在考生文件夹下有一个数据库文件“samp2.accdb”，其中存在已经设计好的3个关联表对象“tStud”、“tCou

rse”、“tScore”和一个空表“tTemp”。此外，还提供窗体“tTest”和宏“reTest”，请按以下要求完成设计。

（1）创建一个查询，查找女学生的“姓名”、“课程名”和“成绩”3个字段的内容，将查询命名为“qT1”。

（2）创建追加查询，将表对象“tStud”中有书法爱好的学生的“学号”、“姓名”和“入校年”3列内容追加到目标表“tTemp”的对应字段内，将查询命名为“qT2”。（规定：“入校年”列由“人校时间”字段计算得到，显示为4位数字形式。）

（3）补充窗体“tTest”上“testl”按钮（名为“bt1”）的单击事件代码，实现以下功能：

打开窗体，在文本框“tText”中输入一段文字，然后单击窗体“tTest”上的“testl”按钮（名为“bt1”），程序将文本框内容作为窗体中标签“bTitle”的标题显示。

注意：不能修改窗体对象“fTest”中未涉及的控件和属性：只允许在“*****Add*****”与“*****Add*****”之间的空行内补充语句，完成设计。

（4）设置窗体“iTest”上“test2”按钮（名为“bt2”）的单击事件为宏对象“reTest”。

点击查看答案

第4题

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

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

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

C.[Text0]=[111]

D.Text0="111"

点击查看答案

第5题

在窗体上建立—个名称为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

点击查看答案

第6题

在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序

： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1．Text ： y = TextText c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是

A．abcEFG

B．abcefg

C．ABCefg

D．ABCEFG

点击查看答案

第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题

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

点击查看答案

第9题

在窗体上画两个文本框，名字分别为Text1和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2

中输入lmn，那么在文本框Text1中显示的内容将是【】。 Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress(KeyAseii As Integer) Text1.Text=Text1.Text+Chr(KeyAscii-5) End Sub

点击查看答案

第10题

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：DimSa

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：

Dim SaveAll As String

Private Sub Command1_Click（）

Text1.Text=Left（UCase（SaveAll），4）

End Sub

Private Sub Text1_KeyPress（KeyAscii As Integer）

SaveAll=SaveAll+Chr（KeyAscii）

End Sub

程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。

点击查看答案

第11题

在考生文件夹下有一个工程文件sjt3．vbp，请在名称为Forml的窗体上画一个名称为Text1 的文本框

和一个名称为C1、标题为“转换”的命令按钮，如图8所示。在程序运行时，单击“转换”按钮，可以把Text中的大写字母转换为小写，把小写字母转换为大写。窗体文件中已经给出了“转换”按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。注意：不能修改程序中的其他部分，最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4．vbp，其功能是： ①单击“读数据”命令按钮，把考生文件夹下in4．dat文件中已按升序方式排列的60个数读入数组A，并显示在Text1中； ②单击“输入”按钮，弹出一个输入对话框，接收用户输入的任意一个整数；单击“插入”按钮，将输入的数插入A数组中合适的位置，使其仍保持A数组的升序排列，最后将A数组的内容重新显示在Textl中。右窗体文件中已经给出了全部控件(如图9所示)和程序，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。本程序只考虑插入一个整数的情况。注意：不得修改已绍存在的内容和控件属性，最后将修改后的文件按原文件名存盘。

点击查看答案

长沙壹依黑科技有限公司版权所有 ©2024

湘ICP备2024047451号营业执照

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

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