首页 > 大学本科

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

[主观题]

编程:将窗体上的文本框中的字体改变为所需的大小颜色和字体。

查看答案

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

您可能会需要：

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

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

更多“编程:将窗体上的文本框中的字体改变为所需的大小颜色和字体。”相关的问题

第1题

设计一个窗体，窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个

名为Text1的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序代码，井按要求将程序补充完整。 Private Sub Command1_Click() CommonDialogl.Flags=cdlCCRGBInit CommonDialogl.Color=Text1.ForeColor 【】 Text1.ForeColor=CommonDialog1.Color End Sub

点击查看答案

第2题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在【】处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【】() Command1.Enabled=True End Sub

点击查看答案

第3题

以下属于VB的对象的是（)。①命令按钮②窗体的背景颜色③标签④文本框⑤字体

A.①③④

B.①②③

C.③④⑤

D.②③④

点击查看答案

第4题

下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上

输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) If______Then Print x Else ______ Text1.Text="" End If End Sub

点击查看答案

第5题

在窗体上有5个控件：一个名称为Text1的文本框控件，用来显示文本；两个名称分别为Check1（设置显示文

在窗体上有5个控件：一个名称为Text1的文本框控件，用来显示文本；两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框；两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)的单选按钮。当Check1被选中时，文本框中显示的字体加下划线，当Option2被选中时，文字框中显示的字体大小为16磅，程序运行时的界面如图20-5所示。请填空。

Private Sub Check1_Click() If Check1．Value=【】Then Text1．FontUnderline=True Else Text1．FontUnderline=False End If End Sub Private Sub Option2_Click() Text1．【】 End Sub

点击查看答案

第6题

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

点击查看答案

第7题

以下是宏对象m1的条件及操作序列设计：条件操作序列操作对象名称①OpenForm "fTest2" ②Beep [tNum]＞123 ③OpenTable "tStud" … ④Msgbox ⑤OpenReport "rStud" … ⑥Close (无) 假定宏m1操作中涉及的对象均已存在。将m1宏设置为窗体“fTest1”上某个命令按钮的单击事件属性。当打开窗体“frest1”后，在窗体上名为“tNum”的文本框中输入数字150，然后单击命令按钮，会启动宏m1的运行。宏m1运行后，执行的操作序列是( )

A.①②③④⑤⑥

B.①②⑤

C.①②③④⑥

D.①②⑤⑥

点击查看答案

第8题

程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为Text1的文本框，用来显示文本

。程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程5次。 Option Explicit Private【】 Dim k As Integer For k=1 to 100 If k Mod 20 Then 【】 Else Text1.Text="" End lf Print“程序运行完毕，可再双击窗体” End Sub

点击查看答案

第9题

在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能

将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test .dat中。请在空格处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open "c:\test.dat"For【】As 1 For i=1 to Len(Text1.text) print1，mid(Text1.Text，i，1) Next Close i End Sub

点击查看答案

第10题

在窗体上画两个文本框（名称分别为Text1和Text2)和一个命令按钮（名称为Command1)，然后编写如

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click() Text1．Text=InputBox("请输入数据1") TextText=InputBox("请输入数据2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入123和abc，则两个文本框中显示的内容分别为【】和【】。

点击查看答案

第11题

在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数（

在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数M从右边起的第N位数字，并把该数字显示在Text3文本框中，如图20-15如示。请填空。

Private Function digit(ByVal m As Integer，ByVal n As Integer)As Integer Dim i As Integer For i=1 To n-1 m=m\10 Next i digit=【】 End Function Private Sub Command1_Click() Dim m As Integer，n As Integer，k As Integer m=Val(Text1.Text) n=Val(TextText) k=【】 TextText=Str(k) End Sub

点击查看答案

长沙黎曼智能科技有限公司版权所有 ©2024

湘ICP备19009690号-1 湘公安备案43019002001016号营业执照

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

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