本人初二 计算机要考几段简易编程 请给我一些

来源：百度知道 编辑：UC知道 时间：2024/05/29 03:39:53
例如求1+2+3+...+100
1+1/2+1/3+...+1/100
求平均数 最大数 最小数
输入一个数 分出 个十百位
浏览图片
密码验证等等
越多越好 齐全+50分以上
用的是VB

'加入一个label1控件用于显示两个表达式的和，加入一个text1用于输入数字，加入一个label2用于显示个位十位百位，加入一个按钮控件用于单击显示出来
Private Sub Form_Load()
For i = 1 To 100
a = a + i '求1加到100
b = b + 1 / i '求1加到1/100
Next i
Label1.Caption = "1+2+...+100=" + Str(a) + Chr(13) + "1+1/2+1/3+...+1/100=" + Str(b)
Label2.Caption = ""
Text1.Text = ""
End Sub

Private Sub Command1_Click()

If Asc(Text1.Text) < 48 Or Asc(Text1.Text) > 58 Then
Text1.Text = ""
MsgBox "请输入数字！", 0 + 48, "【提示】"
Exit Sub
End If
If CLng(Text1.Text) < 1000 And CLng(Text1.Text) > 0 Then
Baiweishu = CLng(Text1.Text) \ 100
Shiweishu = CLng(Text1.Text - Baiweishu * 100) \ 10
Geweishu = CLng(Text1.Text - Baiweishu * 100 - Shiweishu * 10)
Label2.Caption = "您输入的数字百位数是：" + Str(Baiweishu) +