程序设计题
问题:求 s="1" x2-2x3+3x4-4x5+…-98x99+99x100 的值。
算法描述如想图所示,请将下列程序补充完整。

Private  Sub Form _ Click ( )
Dim k As Integer
Dim s As Integer
s=0
For k="l" To__   ①   ___
If k Mod______②  ___0 Then
S=s+k*(k+l)
Else
s=____③___
End If
Next k
Print  “s=”;s
End Sub
当前题号:1 | 题型:填空题 | 难度:0.99
模拟抛硬币并统计概率,程序运行结果和设计界面如右图,该程序界面上至少有    等控件对象(  ) 
A.一个按钮、二个文本框
B.一个按钮、二个文本框、三个标签
C.一个按钮、二个列表框、二个标签
D.一个按钮、一个文本框、一个列表框、二个标签
当前题号:2 | 题型:选择题 | 难度:0.99
以下语句运行后变量c的值是(  )
 a=“2009”
 b=“2008”
 c=Val(a)+Val(b)
A.2009+2008B.4017C.“20092008”D.20092008
当前题号:3 | 题型:选择题 | 难度:0.99
对输入的两个整数a和b,找出其中的较大者赋给c并输出。解决该问题的算法流程图如图所示:

上述流程图中虚线框部分的内容可为(  )
A.B.
C.D.
当前题号:4 | 题型:选择题 | 难度:0.99
数学表达式“2n-1>0且2n-1≠1”对应的Visual Basic表达式是(  )
A.2·n-1>0 And 2·n-1<>1B.2*n>1 And Not(2*n-1=1)
C.2n-1>0 And 2n-1 ≠ 1D.2*n-1>0 And 2n-1<>1
当前题号:5 | 题型:选择题 | 难度:0.99
如下VB程序段
x=Text1.Text
p=0
For i=1 to Len(x)
 If Mid(x,i,1)=“a” Then p=p+1
Next i
Print p
若程序运行时,在文本框Text1中键入“Are you happy”,则运行结果是(  )
A.0B.1C.2D.11
当前题号:6 | 题型:选择题 | 难度:0.99
下列VB程序用来实现[1,10]之间奇数之和,单击Command1后,标签Label1中显示的内容是_____,循环变量j最终的值是___________ ,并完成程序一处空白。
Private Sub Command1_Click()
Dim s As Integer,j As Integer
s=0
For j=1 To 10
 If j Mod 2 <> 0 Then
  _____________
 End If
Next j
Label1.Caption=Str(s)
End Sub
当前题号:7 | 题型:填空题 | 难度:0.99
下列表达式中的值不为6的是( )。
A.19\3B.19/3C.Int(19/3)D.19 mod 13
当前题号:8 | 题型:选择题 | 难度:0.99
有如下 VB 程序,它的输出结果是( )。
S=0
For i=1 To 10
If i mod 2=0 Then S=S+i
Next i
Print “S=”;S
A.S=0B.S=25C.S=30D.S=55
当前题号:9 | 题型:选择题 | 难度:0.99
在 VB 中,下列程序段执行后,变量 s 的值是( )。
s=1
For k=1 To 3
s=s+1
Next k
A.1B.3C.4D.6
当前题号:10 | 题型:选择题 | 难度:0.99