产生（4 ，86）的随机整数

产生（-6，6）随机整数

Rnd函数不可能为下列_______值。

A．0.6

B．1

C．0.1234

D．0.0005

“删除字符”程序实现功能：在文本框Text1中输入待处理的字符串，在文本框Text2中输入需删除的单个字符，单击“删除”按钮Command1进行删除，并将删除后的字符串和被删除字符的位置分别显示在相应的文本框中。程序运行界面如下图所示。

（1）要使程序运行时，按钮Command1显示为“删除”，可在Form_Load事件处理过程中添加语句_____（单选，填字母：

A．Command1.Caption=“删除”/

B．Command1. font=“删除”/

C．Command1.Text=“删除”）。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim c As String, s As String, j As String
Dim n As Integer, i As Integer
Dim w As String, result As String
s = Text1. Text: d = Text2. Text
n = Len(s): w= “ ”: result = “ ”
For i = 1 To n
____________ 

w = w + Str(i) + “,”
Else

_____________

  End If
Next i
Text3. Text = result
Text4. Text = w
End Sub
（3）若将加框处语句“if c=d Then”修改为“if c<>d Then”，文本框Text1和Text2中输入如图所示，则执行程序后文本框Text3中输出的内容是___________。

要求编写一个“二进制加法”的VB程序，功能如下：在文本框Textl中输入一个二进制数，文本框Text2中输入另一个二进制数，单击“加法”按钮Command1后，在文本框Text3中显示二进制表示的和，程序运行界面如图a所示。

(1)在设计程序界面时，应使用图b所示“控件工具箱”中的____________(填写相应编号)添加按钮Commandl。
(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Commandl_Click()

Dim s1 AsString，s2 As String，s3 As String，tmp As String

Dim i As Integer，t As Integer，k As Integer

s1=Text1.Text：s2=Text2.Text

If Len(s1)<Len(s2) Then tmp=sl：sl=s2：s2=tmp

For i=1 To Len(s1)-Len(s2)

s2="0"+s2

Next i

i=Len(s1)：k=0

Do While i>=1

t=Val(Mid(sl，i，1))+Val(Mid(s2，i，1))+k
If t>=2 Then
s3=___________：k=1
Else
s3=t&s3：k=0
End If
i=___________
Loop
If k=1 Then s3="1"+s3
Text3.Text=s3
End Sub
(3)运行该程序，输入数据如图a所示，程序执行完毕时，变量k的值为_________。

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

（1）要使窗体标题上显示的文本改为“人民币大小写”，可在其属性窗口中将_______属性的属性值改为“人民币大小写”。
（2）为了实现以上程序功能，使程序正常运行，请完善以下两处代码。
Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String
Dim i As Integer
dx = "零壹贰叁肆伍陆柒捌玖拾"
dw = "亿仟佰拾萬仟佰拾元"
s = Text1.Text   
If ____ then 
Text2.Text = "输入的数据超出所能转换的范围"
Else
For i = 1 To Len(s)  
ch = ___ 
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
Next i
Text2.Text = c + "整"
End If
End Sub
（3）由上述算法可知，若在文本框Text1中输入“20”，则文本框Text3显示的结果为________。

设a=2,b=3,c=4,d=5,表达式a>b And c<=d Or 2*a>c 的值是（    ）

A．True

B．False

C．-1

D．1

下列 VB 表达式中，只随机产生 9 到 99 之间偶数的是（   ）

A．Int(Rnd*90+10)

B．Int(Rnd*90+9)

C．Int(Rnd*45)*2+10

D．Int(Rnd*45)*2+9

有VB程序段如下：
s＝"2019.06 Visual Basic6.0"：n＝0
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If ch>＝"0" And ch<＝"9"Then
m＝Asc(ch)－Asc("0")＋1
a(m)＝a(m)＋1
End If
Next i
For i＝1 To 10
If a(i)>1Then n＝n＋i
Next i
数组a各元素的初始值都为0，执行该程序段后，则变量n的值为(    )

A．2

B．4

C．8

D．10

利用VB程序计算三角形面积。在文本框Text1、Text2、Text3中分别输入三角形三条边长a，b，c，半周长p ＝ (a ＋ b ＋ c) / 2，单击按钮Command1计算三角形的面积s＝，并把结果显示在文本框Text4中。界面如图a所示，请回答下列问题：
  
(1)结合图b，若要把窗体背景色改为白色，可通过其__________属性进行设置。
(2)实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a, b, c, p, s As Integer
a ＝ Val(Text1.Text)
b ＝_____________
c ＝ Val(Text3.Text)
p ＝(a ＋ b ＋ c) / 2
If a＋b>c And a＋c>b And b＋c>a And a>0 And b>0 And c>0 Then
　s ＝_____________
　   Text4.Text ＝_____________
Else
　   Text4.Text ＝”输入边长不能组成三角形！”
End If
End Sub