几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val(

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/29 20:51:55

几道VB程序题,
Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1.Text)
If x Mod 2 = 1 Then
Label2.Caption = "偶数"
Else
Label2.Caption = "奇数"
End If
End Sub
如果Text1中输入的是28,则Label2的位置显示的是：_______________________.
2、 Private Sub Form_Click()
Dim i As Integer,S As Long
S = 0
For i = 15 To 0 Step -2
S = S + i
Next i
Print S
End Sub
程序的功能是：________________________________________________________________
运行结果是：__________________________________________________________________
3、 Private Sub Command1_Click()
Dim a,b As Integer
a=2.2
b=2.2
Text1.Text = a
Text2.Text =b
End Sub
程序运行后,Text1中显示：_____________；Text2中显示：______________
4、
Private Sub Form_Click()
s = 0
For i = 0 To 20 Step 2
s = s + i
Next i
Print s
End Sub
程序的功能是：____________________________________________________________；
运行结果是：______________________________________________________________
5、
Private Sub Form_Click()
K = 1:Sum = 0
For N = 1 To 5
K = K * N
Sum = Sum + K
Next N
Print Sum
End Sub
程序运行后,问SUM的值为（）
6、 a = 5:s = 0
Do While a > 0
s = s + a
a = a - 1
Loop
Print s; a
程序的功能是____________________________________________________________；
运行结果是_______________________________________________________________

奇数
求奇数和. 642 2
求偶数和. 110153循环求和 15 0

几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val( VB Private Sub Command1_Click()Dim x As Integerx = 15768Prin 33.设有如下程序Private Sub Command1_Click( )Dim sum As Double,x As vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp 帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBo 帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b 9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer vb Private Sub Command1_Click() VB奇数求和Private Sub Command1_Click()vl = Val(Text1.Text)vj = V Private Sub Command1_Click() Dim x As Single,y As Single Pic VB编程option base 1private sub command1_click() dim d d=array( 问一道VB填空题：Private Sub Form_Click（） Dim x As Integ