（12）在程序的每个空白处填写一条适当的语句，使程序相应的操作。程序实现的功能是：窗体上有文本框Textl和若干复选框，其中复选框Checkl用于设置文本框Textl显示的文本是否加下划线。Checkl的单击事件过程如下：Private Sub Check() If Then Then.FontUnderline=True ElseIf _____Then Then.FontUnderline=False End If End Sub

题目

（12）在程序的每个空白处填写一条适当的语句，使程序相应的操作。程序实现的功能是：窗体上有文本框Textl和若干复选框，其中复选框Checkl用于设置文本框Textl显示的文本是否加下划线。Checkl的单击事件过程如下：Private Sub Check() If Then Then.FontUnderline=True ElseIf _____Then Then.FontUnderline=False End If End Sub

相似考题

1.（ 12 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 cmdDisplay ）和 “ 测试 ” （控件名为 cmdTest ） 。 当单击 “ 测试 ” 按钮时 ， 执行的事件功能是 ： 首先弹出消息框 ， 若单击其中的 “ 确定 ” 按钮 ， 则隐藏窗体上的 “ 显示 ” 按钮：否则直接返回到窗体中。请在空白处填入适当的语句，使程序可以完成指定的功能。Private Sub cmdTest Click （ ）Answer= 【 12 】（ “ 隐藏按钮？ ” ， vbOKCancel+vbQuestion, “ Msg ” ）If Answer=vbOK ThenMe{cmdDisplay.Visible= 【 13 】End IfEnd Sub

2.下列子过程的功能是：当前数据库文件中的 “ 学生表 ” 的学生 “ 年龄 ” 都加 1 ，请在程序空白处填写适当的语句，使程序实现所需的功能Private Sub SetAgePlus1_Click()Dim a As DAO.DatabaseDim rs As DAO.RecordsetDim fd As DAO.FieldSet db = CurrentDb()Set rs = db.OpenRecordset(" 学生表 ")Set fd = rs.Fields(" 年龄 ")Do While Not rs.EOFrs.Editfd =____[14]____rs.Update___[15]___Looprs.Closedb.CloseSet rs = NothingSet db = NothingEnd Sub

3.设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是______。A．Text1. MaxLength=0B．Text1. Enabled=FalseC．Text1. Visible=FalseD．Text1. Width=0

4.(12 ）以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Command2_Click()Dim i%, j%, k%, t % ‘ t 为统计素数的个数D im b As BooleanFor i = 100 To 200b = Truek = 2j = Int(Sqr(i))Do While k <= j And bIf I Mod k = 0 Thenb = 【 12 】End Ifk = 【 13 】LoopIf b = True Thent = t + 1Debug.Print iEnd IfNext iDebug.Print " t= " ; tEnd Sub

更多“(12)在程序的每个空白处填写一条适当的语句,使程序相应的操作。程序实现的功能是:窗体上有文本框T ”相关问题

  • 第1题：

    在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的数据处理。Form_Load事件过程给数组赋初值35，48，15，22，67。Form_Click事件过程对数组元素进行处理。

    DimA rr(1 To 5)

    Private Sub Form_Load()

    [11]

    End Sub

    Private Form_Click()

    [12]

    If Int(x/3)=x/3 Then

    PrintX

    End If

    Next


    正确答案：Arr=Anay(3548152267)For Each x In Arr
    Arr=Anay(35,48,15,22,67),For Each x In Arr

  • 第2题：

    下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。

    Private Sub Form_Click()

    sum＝0

    For i＝1 To 1000

    If______Then

    sum＝sum+i

    End If

    Next i

    MsgBox sum

    End Sub


    正确答案：I Mod 3＝0 And i Mod 5＝0And i Mod 7＝0
    I Mod 3＝0 And i Mod 5＝0And i Mod 7＝0 解析：本题考查VBA中书写条件表达式的知识。本题需要补充完整的空白处恰好就是这个程序的关键所在，也就是如何判断i能同时被3、5和7整除。判断整除我们一般使用两个数相除求余数，然后通过判断余数是否为0来实现。由于需要同时被3、5和7整除，所以三个判断的表达式之间应该是“与”的关系，最终结果为i Mod 3＝ 0 And i Mod 5＝0 And i Mod 7＝0。

  • 第3题：

    12、下面是一个将小写字母变成大写字母的程序 main（) { char ch; scanf（"%c",&ch); if （ch＞='a'&&ch＜='z' ) ch = ; printf（"%c",ch); } 要实现程序的功能，则在空白处应该填写的程序语句是（）。

    A．'A' + ch - 'a'

    B．'A' + ch

    C．'A'+ ch - '0'

    D．'A' + 'ch' - 'a'


    C

  • 第4题：

    设窗体上有一个文本框，名称为Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是( )。

    A．Textl.MaxLength=0

    B．Textl.Enabled=False

    C．Textl.Visible=False

    D．Textl.Width=0


    正确答案：B

  • 第5题：

    下列程序的功能是求方程：x2+y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。

    Private Sub Command 1_Click()

    Dim x as intege,y as integer

    For x=-34 To 34

    For y=-34 To 34

    If______Then

    Debug．print x，Y

    End If

    Next y

    Next x

    End Sub


    正确答案：(x*x+y*y)=1000
    (x*x+y*y)=1000 解析：此处即为判断条件，此题中要求找到满足方程x2+y2=1000的x、y值，此处即应为x2+y2=1000的程序写法。

相关内容