2. 计算机
  3. 窗体上有Check1、Check2两个复选框，标题分别为"下划线"、"加粗"，还有一个Text1文本框和一个Command1命令按钮。程序的功能是：单击Command1按钮，则根据复选框选中的情况对文本框中的文字做相应的修饰，如图所示。下面为Command

窗体上有Check1、Check2两个复选框，标题分别为"下划线"、"加粗"，还有一个Text1文本框和一个Command1命令按钮。程序的功能是：单击Command1按钮，则根据复选框选中的情况对文本框中的文字做相应的修饰，如图所示。下面为Command

admin2020-02-27  54
问题 窗体上有Check1、Check2两个复选框，标题分别为"下划线"、"加粗"，还有一个Text1文本框和一个Command1命令按钮。程序的功能是：单击Command1按钮，则根据复选框选中的情况对文本框中的文字做相应的修饰，如图所示。下面为Command1编写的事件过程中能正确实现这一功能 的是
选项 A、Private Sub Command1_Click()
If Check1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
If Check2 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
B、Private Sub Command1_Click()
If Check1 Then
Text1.FontUnderline = True
Else
Text1.FontBold = True
End If
End Sub
C、Private Sub Command1_Click()
If Check1 Then
Text1.FontUnderline = Not Text1.FontUnderline
End If
If Check2 Then
Text1.FontBold = Not Text1.FontBold
End If
End Sub
D、Private Sub Command1_Click()
If Check1 Then
Text1.FontUnderline = Not Text1.FontUnderline
Else
Text1.FontBold = Not Text1.FontBold
End If
End Sub
答案A
解析 A项程序满足题目要求，当勾选加粗单击执行后，字体加粗，当勾选下划线，单击执行后，文本加入下划线。B项程序错误，当没有勾选下划线，单击执行按钮后，文字加粗；C项程序错误，C项程序会发生如下错误，如果连续两次勾选下划线（或者加粗）后单击执行两次，那么第二次单击执行结果是文本无下划线（或者加粗）。D项程序错误，D如果连续两次勾选下划线后单击执行两次，那么第二次单击执行结果是文本不仅有下划线，且文本被加粗。
转载请注明原文地址:https://www.kaotiyun.com/show/xkTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)