让TEXT1中的内容加粗,斜体,加下划线,加删除线,字体用”黑体”,字号20在窗体单击事件过程中完成.
PRIVATE  SUB  ________CLICK(   )
TEXT1.FONTBOLD= _________________ 
________
________
________
________
________ 
END   SUB

清空文本框TEXT1,TEXT2,LABEL1中的内容
PRIVATE  SUB  FORMCLICK（ ）
________[3]
________[4]
________[5]
END   SUB

下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是______，文本框Text2中显示的内容是_______。
Private Sub Command1_click( )
Dim a(1 to 3) as integer,k as integer,t as integer,s as integer
a(1)="15:" a(2)="36:" a(3)=7
s=0
For k="2" to 3
if a(k)>a(1) then
t=a(1):a(1)=a(k):a(k)=t
s=s+1
End if
Next k
text1.text=str(a(1))
text2.text=str(s)
End sub

已知t=55.8，s=64，m=-81，则下列Visual Basic表达式的值为False的是（ ）

A．t < abs（m）and int（t）+8 >= s	B．int（m）> s or t < abs（m）
C．sqr（s）+ t < abs（m）	D．t > s + m

小刚的支付宝账户密码忘记了，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：
①密码是六位数字，前面两位为59；
②最后两位数字相同；
③能被12和38整除。
程序界面如1图所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

（1）应用程序界面设计时，为添加“可能的密码有：”对象，应使用2图所示的“控件工具箱”中的______________（填写相应编号），并在3图所示的“属性窗口”中，将____________属性值设置为“可能的密码有：”。

（2）解决此问题的相应程序如下，请根据题意将程序补充完整。
Private Sub  Command1_click ( )
Dim x As Integer, s As Long, y As Integer, i As Integer
For i =" 0" To 9999
S =" 590000" + i
If ____________  Then
x=" s" mod 10
y =" (s" Mod 100) \ 10
If x =" y" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub

小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码，点击登录按钮后，会跳出信息框提示是否验证成功。部分程序与流程图如下所示：

uname = Text1.Text '输入用户名
psd = Text2.Text    '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “”   'Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “   ”
Else
MsgBox “    ”
方框中正确的语句是（ ）

A．①中“验证成功”	B．②中“输出用户名或密码有误”
C．②中“验证成功”	D．③中“输出验证码错误”

有算法流程图如下图所示：

执行该算法，当x的值为5时（   ）

A．y的值为11

B．y的值为13

C．y的值为12

D．程序出错

下列程序的功能是从键盘上任意输入一个数，判断这个数是正数，负数，还是零，并输出判断结果。程序中加框处有错误，请改正。
Private sub Command1_Click()
Dim a As Single
Dim py As String
a=（1）
If a>0 Then py =”正数”
If a="0" Then py=”零”
If a<0 Then py=”负数”
（2）
End Sub
（1）_____________________
（2）_____________________

小明编写了如下VB程序段：
Private Sub Command1_Click()
Dim x As Double
Dim y As Double
x = Val(Text1.Text)
y = Abs(x)
x = int(y)
Text2.Text = Str(x)
End Sub
此应用程序执行后，出现了如第15题图所示的错误信息，请问产生此错误的原因是( )

A．语句y = Abs(x)有误

B．缺少对象‘424’

C．语句x = int(y)有误

D．缺少文本框Text1或文本框Text2

有如下VB程序段
a=12
b=54
a=b
b=a
该程序段运行后，a，b的值分别为 ___、_ __，该程序结构属于___    ___结构（选填：顺序、选择、循环）。（每空1分）