33.设有如下程序Private Sub Command1_Click( )Dim sum As Double,x As

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/09/22 20:22:21

33.设有如下程序
Private Sub Command1_Click( )
Dim sum As Double,x As Double
sum = 0
n = 0
For i=1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环来计算一个表达式的值,这个表达式是______.
A、1+1/2+2/3+3/4+4/5 B、1+1/2+1/3+1/4+1/5
C、1/2+2/3+3/4+4/5 D、1/2+1/3+1/4+1/5

选C,是个循环过程
从n=0 i=1开始,即第一个x=0/1=0
你n+1=1 然后i=2 x=1/2
...
循环到5 结束.

33.设有如下程序Private Sub Command1_Click( )Dim sum As Double,x As 几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val( Private Sub Command1_Click() Dim i As Double,M As Double,L A Private Sub Command1_Click() Dim x As Single,y As Single Pic 9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer VB Private Sub Command1_Click()Dim x As Integerx = 15768Prin Private Sub Command1_Click() Dim i As Integer,s As Integer,n 0402 Private Sub Command1_Click() Dim a As Single,b As Singl Private Sub Command1_Click() Dim i,j As Integer For i = 3 To 帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp ADO要定义么?Private Sub Command1_Click()Dim Con As New ADODB.Con