vb/vb.net开发精粹(19)如何消除多余十字光标？vb6.0 Mschar 获取X轴（注脚）的值、改变图例位置（默认右边）VB实现IP通讯控制关于Mscomm通讯假死关于WshShell.AppActivate的疑惑求助WINSOCK发送邮件为什么内容稍微长点就收不到呢？请教关于图片保存的问题。谢谢！寻一个Activex,就是IE得到MAC的控件,希望是VB代码.给Combo1控件赋值复制链接}

自己新建工程 添加你的控件 加入以下代码即可:Option ExplicitPrivate Sub Form_Load()Me.Caption = "计算"Text1.Text = ""Text2.Text = ""Text3.Text = ""Label1.Caption = "请输入要就算的数"Label2.Caption = "偶数和为:"Label3.Caption = "奇数和为:"End SubPrivate Sub Command1_Click()Dim iDim a, bFor i = 1 To Val(Text1.Text)If i Mod 2 = 0 Thena = a + iElseb = b + iEnd IfNext iText2.Text = aText3.Text = bEnd Sub
本回答被提问者采纳Private Sub Command1_Click() Dim a, b, i For i = 1 To Val(Text1.Text) If i\2 = 0 Then a = a + i Else b = b + i End If Next i Text2.Text = a Text3.Text = b End Sub}