1有如下Visual.docVIP

一套 1.有如下Visual Basic程序段： i=6 i=i+1 j=2*i-1 该程序段运行后，变量j的值为 。 2.有如下Visual Basic程序段： x = 1.6 If x 0 Then x = x+2 Else x = x-2 End If 该程序段运行后, 变量x的值为 。 3.有如下Visual Basic程序段： s = 0 For i = 1 To 10 If i Mod 3 = 0 Then s = s + i Next i 该程序段运行后，变量s的值为 。 4.某学生说他的年龄不低于10岁，且他的年龄减去10，平方以后得到的一个数，恰好是他的年龄加上10，问他的年龄多大？ 设这位学生年龄为y，他年龄减去10的平方为r，则r=（y-10）2，则y满足的表达式为:（y - 10）2=y + 10 解决此问题的算法流程图如图VB-1所示，相应的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim y As Integer, r As Integer y = 10 r = (y - 10) ^ 2 Do While (1) (2) r = (y - 10) ^ 2 Loop Text1.Text = Str(y) End Sub 程序中划线处(1)应填入 程序中划线处(2)应填入 二 1有如下Visual Basic程序段： a = 15 b = 3 c = a/b+2 该程序段运行后，变量c的值为 。 2.有如下Visual Basic程序段： x = -1.1 If x 0 Then Label1.Caption = Positive If x = 0 Then Label1.Caption = Zero If x 0 Then Label1.Caption = Negative 该程序段运行后, Label1标签上显示为 。 3.有如下Visual Basic程序段： k = 0 For i = 1 To 10 If i Mod 3 = 0 Then k = k + 1 Next i 该程序段运行后，变量k的值为___________。 4.模拟两人掷骰子游戏。由电脑随机产生两个1到6之间的整数，表示甲乙两人所掷的骰子数，根据这两个数字之和是偶数还是奇数，判定哪一方赢了？偶数表示甲赢了，奇数表示乙赢了。掷了若干次后，分别统计甲乙各赢了几次？ 程序界面如图VB-1所示，在文本框Text1中输入总次数n，单击开始按钮，在文本框Text2中输出甲赢的次数，在文本框Text3中输出乙赢的次数。在列表框List1中输出游戏次数和判断结果。 算法流程图如图VB-2所示，相应的Visual Basic程序如下，其中变量a、b分别存储甲、乙两人所掷的骰子数，变量n存储游戏总次数，变量k、j分别存储甲、乙各自赢的次数。在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim a As Integer, b As Integer, n As Integer Dim j As Integer, k As Integer, i As Integer k = 0 j = 0 List1.Clear (1) For i = 1 To n a = Int(Rnd() * 6 + 1) b = Int(Rnd() * 6 + 1) If (2) Then List1.AddItem Str(i) + 甲赢了! k = k + 1 Else List1.AddItem Str(i) + 乙赢了! j = j + 1 End If Text2.Text = Str(k) Text3.Text = Str(j) Next i End Sub 程序中划线处(1)应填入 程序中划线处(2)应填入 三 1.有如下Visual Basic程序段： a = 4 b = 3 b = a + b a = a + b 该程序段运行后，