在Text1中输入一个评委的打分后,单击"累加"按钮最高分
来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 17:35:13
输入10的倍数后按回车!PrivateSubForm_Load()Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKey
publicsubcommand1_click()text3=(val(trim(text1))+val(trim(text2)))/2endsu
在按钮的click事件里写IFTEXT1>TEXT2thenTEXT3=TEXT1/TEXT2elseTEXT3=TEXT2/TEXT1endif
现在的值是:fix(text1.text*2)你想要的是:d=val(text1.text)
先在添加的文本框上点右键-生成器,将类型改为"数值型",然后给按钮加上代码:t1=thisform.text1.valuethisform.edit1.value=alltrim(str(round(
n=val(thisform.text1.value)s=0fori=1tons=s+1/inextthisform.text2.value=str(s,10,3)再问:再问:这个嘞?
不等价第一个是进行了去空格处理第二个没有
PrivateSubCommand1_Click()Dima()AsStringa=Split(Text1.Text,"")‘分割两个数据Text2.Text=(Val(a(0))+Val(a(1))
PrivateSubCommand1_Click()Dimsum,aAsIntegerFori=1To7a=InputBox("")sum=sum+aNextPrintsum/7EndSu
在计算按钮用如下代码:sum=0FORi=1TOthisform.text1.Valuesum=IIF(MOD(i,3)=0,sum+i,sum)ENDFORthisform.text2.Value=
SUM数量TOTHISFORM.TEXT1.VALUETHISFORM.TEXT1.REFRESH
x=nextDouble();这句应该是kb.nextDouble()才对吧再问:第13行找不到符号。。。再答:你for循环里貌似写的是num=字母o而不是数字0吧。再问:fuck。。。thankyo
你的题目不详细但我差不多知道了书上应该有类似习题我可以帮你想下时间不多了没时间详说了你可以发邮件457460131@qq.com我帮你解决共同学习
'假设单词之间就一空格PrivateSubCommand1_Click()Dimnumnum=Trim(Text1)IfInStr(num,Space(1))Thennum=Split(num)Tex
建议采用3个框分别输入度分秒,然后可以很方便地处理:弧度=(度+分/60+秒/3600)*pi/180按你的一个text框输入,用户觉得麻烦,你也必须用子字符串来分解处理,个人感觉不妥.
PrivateSubCommand1_Click()IfText2.Text=0ThenExitSubIfText1.Text/Text2.TextEndSu
PrivateSubCommand1_Click()Text2="该数是由"&Mid(Text1,1,1)&"个百"&Mid(Text1,2,1)&"个十"&Mid(Text1,3,1)&"个个"&"
要写程序么?思路就是用循环来算text1的数是不是素数,是就让lable2显示yes不是就显示no,就这样,要代码就再说了再问:要写程序老师给答案了可是不知道什么意思啊再答:那个你用的是什么写的?我只
用excel做的,打开excel文件,在sheet1上点右键,查看代码就可以了1的程序代码PrivateSubCommandButton1_Click()IfVal(TextBox1.Text)Mod