1、用while语句求1~100的奇数和代码有以下方法：解法一：sum =0for i in range(1,100): if i %2==1: sum +=i print(sum)
2、解法二:利用access关系数据库Private Sub sum _sub2() Dim sum As Integer . i As Integer sum =0:i=1 While i <=100 i =十2 sum = sum 十 i i =十1 Wend MsgBox "1~100地和为＂&. sumEnd Sub