【推荐1】小徐编写程序计算1+2+3+4+...+100的和。但是发现他的程序不能给出正确答案。请你帮他查找程序中错误的地方，并予以改正。

第___句存在错误，
该句应该改为________________（完整书写）

【推荐2】个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：

Sub Command1_Click(     )

Dim i As Integer, n As Integer

m = 106

n = ____________

Do While m <= 996

If _____________ Then n = n + 1

m = _____________        

Loop

Text1.Text = Str(n)

End Sub

【推荐3】用VB编写十六进制转换程序，运行界面如图所示，程序功能如下：在窗体Form1内文本框Text1中输入待转换的十六进制数，点击按钮Command1，转换为十进制数并显示在文本框Text2中。

(1) 根据图所示，当前文本框 Text1 的 Text 属性值为 ______ ，窗体标题文字“进制转换”是 ______ 对象的 caption 属性值。
(2) 请根据题意将下列程序补充完整。

为实现上述功能，程序①处应填入代码为 ______ ；程序②处应填入代码为 ______ 。

【推荐1】有如下VB程序段：
     Dim a(1 To 5) As Integer, i As Integer, c As Integer

a(1) = 2: a(2) = 1: a(3) = 3: a(4) = 4: a(5) = 5

c = 0

For i = 1 To 4

        If a(i) <= a(i+1) Then c = c + 1

Next i

Print c

     该程序的运行结果是___________。

【推荐2】清空文本框TEXT1,TEXT2,LABEL1中的内容
     PRIVATE   SUB   FORM CLICK（ ）
     
     ________[3]
     ________[4]
     ________[5]
     END     SUB

【推荐3】运行下列VB程序，在文本框Text1中输入15，界面如图所示。

Private Sub Command1_Click()
　Const x=“转换成八进制数为”
Dim y As Integer　　‘用于存储输入的十进制自然数
Dim s As String       ‘用于存储转换后的结果
Dim r As Integer
y=Val(Text1.Text)
s=“”
Do While y<>0       ‘采用除八取余法
　r=y Mod 8
　s=Str(r)+s
　y=y\8
Loop
Label1.Caption=Text1.Text+x
Text2.Text=s
End Sub
单击“开始”按钮Command1后，标签Label1中显示的内容是_________，文本框Text2中显示的内容是_______。