学进去

某VB程序在调试中弹出如图所示的错误窗口，此时程序正执行的语句是（）

Private Sub Command1_Click ()
Dim a (1 To 5) As Integer
Dim i As Integer
For i =" 1" To 5
a(i) =" i" * i
Next i
List1.AddItem Str (a (i))
End Sub

A．For i =" 1" To 5	B．a (i) =" i" * i
C．Next I	D．List1.AddItem Str (a (i))

将数学表达式写成VB表达式，正确的是____________。

上面这段程序描述的是已知圆半径r，计算面积s。当运行时，输入半径1，输出的面积与实际结果出现了偏差，程序和运行结果如下所示。
导致出现此问题的语句编号是      ，应该改成                              。

执行以下流程图，当输入n的值为2，m的值为3时，则变量p的值为_______。  

在运行如下所示的VB程序时，用鼠标单击Command按钮后出现了如下图所示的出错提示。出现错误的原因可能是（ ）。

Private Sub Command1_Click()
Dim r As Single
Dim s As Single
r = Val(Text1.Text)
s =" 3.14" * r ^ 2
Label1.Caption = s
End Sub

A．Val（）函数计算式出现错误

B．变量s不能声明为Single类型

C．Form（窗体）上缺少文本框Text1

D．Form（窗体）上所使用的标签对象名称并不是Label1

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如第16题图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'n=8，排序前数据存储在数组a中，并在列表框Listl中显示
'代码略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean          'flag值为True表示一遍加工中发生过交换
i = 1
flag = True
Do While  '（1）
flag = False
For j =n To i + 1 Step -1
If a(j) < a(j - 1) Then
k = a(j): a(j) = a(j - 1): a(j - 1) = k
flag = True
End If
Next j
i = i + 1
Loop
Label3.Caption = "排序过程的加工遍数为" +  '（2）
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub

编写VB程序，实现如下功能：在文本框Text1 输入字母字符串，单击“加密”按钮Command1，字符进行逐个加密，加密过程是，先在“密码本”m中找到相应字符，再从Text3中得到其所对应位置的密钥,并在文本框Text2中显示密文（运行效果如下图所示）。本题暂时不考虑解密问题。实现上述功能的VB代码如下：

请在划线处填入合适代码。
Private SubCommand1_Click()
Dim s As String, m As String
Dim t As String
Dim k As String
Dim c As Integer
s = Text1.Text
n1 = Len(s)
s3 = Text3.Text
n3 = Len(s3)
If n3 < 26 Then
Label1.Caption = "请重新输入密钥！"
Text3.Text = ""
Exit Sub
End If
m = "abcdefghijklmnopqrstuvwxyz"
For i =" 1" To n1
k =" Mid(s," i, 1)
If ①Then '将大写字母转换为小写
k =" Chr(Asc(k)" + 32)
End If
c = 1
Do While c <= Len(m)
If k =" Mid(m," c, 1) Then
Exit Do
End If
②
Loop
t =" t" +③
Next i
Text2.Text = t
End Sub

编写一个VB程序，实现如下功能：在文本框text1中输入英文句子，单击“第1个最长单词”按钮，找到第1个最长单词并显示在文本框text2中。运行效果如图所示

为实现上述功能，请在画线处填入合适代码
Private Sub Command1_Click()
Dim s As String, m As String
Dim n As Integer, c As Integer, max As Integer, t As Integer
s = Text1.Text
n = Len(s)
c = 0
max = 0
For i =" 1" To n
m =        ①     ‘截取字符串中的每个字符
If m >= "a" And m <= "z" Or m >= "A" And m <= "Z" Then
c =" c" + 1
Else
If c > max Then
max = c
t=" i" - 1
End If
c = 0
End If
If i =" n" Then
If c > max Then
max = c
t = i
End If
End If
Next i
Text2.Text = Mid(s,      ②      , max)
End Sub
（1）程序中①处填入的代码是：         
（2）程序中②处填入的代码是下列哪个选项（）

A．t

B．t-max

C．t-max+1

D．t-max-1

求结果

（1）输入356，输出结果： Dim x as Integer x=inputbox(“输入x的值”) a=x mod 10 b=int(x/10) mod 10 c=x\100 s=a+b+c print s	（2）输入a=1，b=2，输出结果：
（3）输出结果：	（4）输入8，输出结果：

两个富翁试图做一笔换钱生意，换钱规则为：富翁A每天给富翁B 10万元，直到满30天；富翁B第一天给富翁A 1分钱，第二天给2分，第三天给4分……富翁B每天给富翁A的钱是前一天的两倍，直到滿30天。要求设计一个程序，在文本框Text1和Text2中分别输入富翁A和富翁B给予对方的钱的数额（万元）。
小青用VB设计了如下图所示的程序界面：

（1）如上图所示，该窗体内有      个对象，这些对象分为 __________类。
（2）为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim ma as single
Dim mb as single
Dim s as single
Ma =10*30
Mb = 0.000001
For i = 1 to _______①_____
Mb = ____②______
S=" s" + mb
Next i
Text1.text = str(ma)
Text2.text = str(s)
End sub
① 应填的内容是__________ ，②中应填的内容是__________ 。