编程基础练习与答案解析

64、编写一条语句，在输入框中显示默认值 12.50，并将 InputBox 函数的返回值赋给名为 strPayRate 的变量。

`strPayRate = InputBox(, , 12.50)`  
（注：这里第一个参数为空，第二个参数也为空，实际使用时可根据需求补充提示信息和标题等内容）

65、为以下等式写出复合运算符表达式：a. intTouchdown = intTouchdown + 6；b. dblSquare = dblSquare ^ 2；c. strFast = strFast & “Comet”

a. `intTouchdown += 6`；  
b. `dblSquare ^= 2`；  
c. `strFast &= "Comet"`。

66、编写 For…Next 循环来计算以下范围的总和，并将总和赋给名为 intSum 的变量：a. 从数字 1 开始的前 100 个数。b. 从 10 开始到 50 结束的偶数。c. 数字 20、30、40、50 和 60。

a. 计算从 1 开始的前 100 个数的和：

Dim intSum As Integer
intSum = 0
For i = 1 To 100
    intSum = intSum + i
Next i

b. 计算从 10 开始到 50 结束的偶数的和：

Dim intSum As Integer
intSum = 0
For i = 10 To 50 Step 2
    intSum = intSum + i
Next i

c. 计算数字 20、30、40、50 和 60 的和：

Dim intSum As Integer
intSum = 0
For i = 20 To 60 Step 10
    intSum = intSum + i
Next i

67、找出以下For…Next循环头部语句中的错误：a. For intCounter = 1 To 19（原表述有误，这里修正为正确语法形式） b. For intNumber = 98 To 71 Step 2 c. For intValue = 12 To 52 Step 24 d. For strCount = 215 To 5 Step 5

a. 原表述可能是想写赋值语句但格式错误，且循环范围不能用字符串值（原表述中存在字符串的假象，这里按正确语法修正），控制变量和循环范围应使用数值。

b. 开始值98大于结束值71，且步长为2，循环无法正常结束。

c. 此语句无明显语法错误。

d. 步长为正，但开始值215大于结束值5，循环无法正常结束。

68、编写一个命令来清空名为lstBaseballPlayers的ListBox对象。

lstBaseballPlayers.Items.Clear()

69、编写一条命令，将你最喜欢的运动队添加到名为 lstFavoriteTeam 的 ListBox 对象中。

下面是给定的【文本内容】：
假设你最喜欢的运动队存储在一个变量中，例如 favoriteTeam ，则命令为：

lstFavoriteTeam.Items.Add(favoriteTeam);

70、使用复合运算符，编写一个赋值语句，将 intAmount 变量的值增加 7。

intAmount += 7

71、使用复合运算符，编写一个赋值语句，将 intCounter 中的值减少 4.5。

此答案存在问题，因为 intCounter 一般为整型变量，不能直接减去浮点数 4.5 ，若 intCounter 为整型，正确语句可以是：

intCounter -= 4;

若为浮点型则答案 intCounter -= 4.5 正确，这里统一输出：

DELETE

72、使用复合运算符，编写一个赋值语句，将 intQuantity 的值增加 10。

intQuantity += 10

73、编写一个顶部控制的 Do Until 循环，其循环体为空，该循环会一直执行，直到 intValue 大于 19。

Do Until intValue > 19
’ 空循环体
Loop

74、编写一个底部控制的 Do While 循环，其循环体为空，只要用户在 strContinue 变量中输入“Yes”，循环就会继续。

以下是满足要求的代码：

Do 
    ' 空循环体
Lo