几个简单的VB改错题,谢谢谢谢!!!
private sub form_click()
Const PI=3.14159
dim s , r as Integer
r=val( ption)
s=PI*r*r
print r, s
end sub
2． (10分，每错2分)下面的程序用于求1/1+1/2+1/3+... ...+1/n的和。
private sub command1_click()
dim p , n as integer
dim sum as integer
n=val(text1.text)
do while p>=n
sum=sum+p
loop
int “和为：” & sum
end sub
1. r=val( ption) 改成 r=val(text1.text) 2. dim p , n as integer dim sum as integer '改为dim sum as single p=1 '这里应该给P赋初值1,不然1/p出错 n=val(text1.text) do while p>=n '改为 do while p<=n sum=sum+p '改为 sum=sum+1/p p=p+1 '这里加上p=p+1 loop int “和为：” & sum '引号不知道是打错了还是什么,应该用英文输入法的" "
答：请在窗体的Form_Load()事件中加上Me.AutoRedraw=True一句,或在窗体的属性页将其属性AutoRedraw选 ()Me.AutoRedra...详情>>
