（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
相关考题：
（ 12 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 cmdDisplay ）和 “ 测试 ” （控件名为 cmdTest ） 。 当单击 “ 测试 ” 按钮时 ， 执行的事件功能是 ： 首先弹出消息框 ， 若单击其中的 “ 确定 ” 按钮 ， 则隐藏窗体上的 “ 显示 ” 按钮：否则直接返回到窗体中。请在空白处填入适当的语句，使程序可以完成指定的功能。Private Sub cmdTest Click （ ）Answer= 【 12 】（ “ 隐藏按钮？ ” ， vbOKCancel+vbQuestion, “ Msg ” ）If Answer=vbOK ThenMe{cmdDisplay.Visible= 【 13 】End IfEnd Sub
(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
下列子过程的功能是：当前数据库文件中的 “ 学生表 ” 的学生 “ 年龄 ” 都加 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
设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是______。A．Text1. MaxLength=0B．Text1. Enabled=FalseC．Text1. Visible=FalseD．Text1. Width=0
在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的数据处理。Form_Load事件过程给数组赋初值35，48，15，22，67。Form_Click事件过程对数组元素进行处理。DimA rr(1 To 5)Private Sub Form_Load()[11]End SubPrivate Form_Click()[12]If Int(x/3)=x/3 ThenPrintXEnd IfNext
设窗体上有一个文本框，名称为Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是( )。A．Textl.MaxLength=0B．Textl.Enabled=FalseC．Textl.Visible=FalseD．Textl.Width=0
下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。Private Sub Form_Click()sum＝0For i＝1 To 1000If______Thensum＝sum+iEnd IfNext iMsgBox sumEnd Sub
下列程序的功能是求方程：x2+y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。Private Sub Command 1_Click()Dim x as intege,y as integerFor x=-34 To 34For y=-34 To 34If______ThenDebug．print x，YEnd IfNext yNext xEnd Sub
12、下面是一个将小写字母变成大写字母的程序 main（) { char ch; scanf（"%c",ch); if （ch＞='a'ch＜='z' ) ch = ; printf（"%c",ch); } 要实现程序的功能，则在空白处应该填写的程序语句是（）。A．'A' + ch - 'a'B．'A' + chC．'A'+ ch - '0'D．'A' + 'ch' - 'a'