2. 计算机
  3. 窗体上有一个名称为Text1的文本框，名称为Check1的两个复选框构成的控件数组，下标分别为1、2。窗体外观如图所示。 要求在程序运行时，改变复选框选中状态，则文本框中文本的字体做相应变化。为此，某人编写了如下程序代码： Private Sub Che

窗体上有一个名称为Text1的文本框，名称为Check1的两个复选框构成的控件数组，下标分别为1、2。窗体外观如图所示。 要求在程序运行时，改变复选框选中状态，则文本框中文本的字体做相应变化。为此，某人编写了如下程序代码： Private Sub Che

admin2020-06-30  41
问题 窗体上有一个名称为Text1的文本框，名称为Check1的两个复选框构成的控件数组，下标分别为1、2。窗体外观如图所示。

要求在程序运行时，改变复选框选中状态，则文本框中文本的字体做相应变化。为此，某人编写了如下程序代码：
Private Sub Check1_Click(Index As Integer)
   If  Index=1 And Check1(1).Value then
       Text1.FontItalic=True
   Else
       Text1.FontItalic=False
   End If
   If Check1(2).value=1 then
      Text1.FontBold=True
   End If
   If Check1(2).value=0 Then
      Text1.FontBold=False
   End If
End Sub
但是，以上程序在运行中不能完全达到要求，应进行修改，下面正确的修改是
选项 A、将If Index=1 And Check1(1).Value Then 改为If Check1(1).Value Then
B、将第1个If条件中的Check1(1).Value 改为Check1(1).Value =True
C、将第2个If条件中的Check1(2).Value=1 改为Check1(2).Value =True
D、将第3个If条件中的Check1(2).Value=0改为Check1(2).Value= False
答案A
解析 复选框中的Value属性用来返回或设置复选的状态，值取0时，表示没有选中复选框，1表示选中复选框，2为该复选框为禁止。故进行修改应在第一个If条件中将"If Index=1 And Check1(1).Value" 改为"If Check1(1).Value"。这是因为当勾选斜体项时， Check1(1).Value为True，设置文本为斜体，否则将文本不设置为斜体。故选择A。
转载请注明原文地址:https://kaotiyun.com/show/XnHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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