一、按钮“求2到100之间的偶数和”代码如下： Private Sub Command1_Click() Dim i As Integer Dim s As Integer s = 0 For i = 2 To 100 Step 2 s = s + i Next i Print "2到100的所有偶数和是："; s End Sub 二、按钮“方法2”代码如下： Private Sub Command2_Click() Dim i As Integer Dim s As Integer s = 0 For i = 2 To 100 If i Mod 2 = 0 Then s = s + i End If Next i Print "2到100的所有偶数和是："; s End Sub 三、按钮“方法3”代码如下： Private Sub Command3_Click() Dim i As Integer Dim s As Integer s = 0 i = 2 Do If i Mod 2 = 0 Then s = s + i End If i = i + 1 Loop Until i > 100 Print "2到100的所有偶数和是："; s End Sub 四、按钮“方法4”代码如下： Private Sub Command4_Click() Dim i As Integer Dim s As Integer s = 0 i = 2 Do s = s + i i = i + 2 Loop Until i > 100 Print "2到100的所有偶数和是："; s End Sub Private Sub Command2_Click() Dim i, sum1, sum2 As Integer sum1 = 0 sum2 = 0 For i = 1 To 100 If i Mod 2 = 1 Then sum1 = sum1 + i Else sum2 = sum2 + i End If Next i Print "奇数和为" & sum1 Print "偶数和为" & sum2 End Sub 。
Dim sumJ As Integer, sumO As Integer, sumZ As Integer, i As Integer
Private Sub Form_Load()
For i = 1 To 100
sumZ = sumZ + i
If i Mod 2 = 0 Then
sumO = sumO + i
Else
sumJ = sumJ + i
End If
Next
Text1.Text = sumZ & vbCrLf & sumJ & vbCrLf & sumO
End Sub
privatesubcommand1_click()d :dimiasjasintegetrfori=1to100step2a+=inextforj=2to100step2b+=jnextlabel1.text="一百以内的奇数相加是:"&convert.tostring(a)label2.text="一百以内的偶数相加是:"&convert.tostring(b)endsub
答：线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问：电脑安装了VB6.0，为什么打开方式里面没有VB程序选项，进安装好的VB里去关联...
答：打开方式最下面还有一个《选择程序》，点开后查VB的安装目录的EXE，找到后直接打开，下次就会在打开方式里查到了详情>>
