知味者
幼苗
共回答了12个问题采纳率:91.7% 举报
1.假如文本框为text1,默认的value为0,增加的click代码为:
thisform.text1.value=thisform.text1.value+1
2.
clear
s=0
for i=1 to 100
if right(alltrim(str(i)),1)=="0"
alltrim(str(i))+"的个位数为0."
s=s+1
endif
endfor
"1至100的自然整数中个位数为0的数有"+alltrim(str(s))+"个."
1年前
追问
6
举报
知味者
看你的默认的值是什么数据类型呢? 如果是数值型的,就是我上面写的,你再看下你有没有设置文本框的默认值,没有的话,就在form1的init事件输入: thisform.text1.value=0 如果是字符型的呢,就要改成: thisform.text1.value=alltrim(str(val(thisform.text1.value)+1))