文件名称：vb 1—n之间的平方
文件大小：976B
文件格式：SLN
更新时间：2013-11-14 13:47:46
平方
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s As Long '用于存储结果 Dim x As Integer '定义循环变量 Dim t As Integer 'N的大小 s = 0 '初始化 x = 1 t = CInt(Conversion.Val(TextBox2.Text)) While x <= t s = CLng(s + x ^ 2) x = x + 2 End While TextBox1.Text = CStr(Conversion.Val(Str(s))) '显示结果 MsgBox("1~100所有奇数的评分和=" + Str(s)) End Sub End Class