Function QiuHe() As integer dim a as integer,sum as integer sum=0 for a = 1 to 100 step 2 sum = sum+a next End Function Text1.Text = QiuHe()
dim i as integer dim s as integer for i =1 to 100 step 2 s =s + i next text1.text =s
VB编写程序，计算1到100中奇数的和，并把求得的结果在文本框Text1 中显示出来
Function QiuHe() As integer dim a as integer,sum as integer sum=0 for a = 1 to 100 step 2 sum = sum+a next End Function Text1.Text = QiuHe()
dim i as integer dim s as integer for i =1 to 100 step 2 s =s + i next text1.text =s