- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
2014小学数学题目
1、从键盘输入三个数,判断该三个数能否构成三角形。
Set talk off
Clear
Input”请输入变量x:” to x
Input”请输入变量y:” to y
Input”请输入变量z:” to z
If(x0 and y0 and z0)
If (x+yz ) and (x+zy) and (y+zx)
?”x,y,z能构成三角形”
Else
?”x,y,z不能构成三角形”
Endif
Else
?”输入数据有误!”
Endif
Set talk on
36块砖,36人搬,男人搬4块,女人搬3块,二个小孩抬一块,一次搬完,问男人、女人、小孩各多少?
Set talk off
Clear
For x=1 to 9
For y=1 to 12
For z=2 to 36 step 2
If x+y+z=36 and x*4+y*3+z/2=36
?x,y,z
Exit
Endif
Endfor
Endfor
Endfor
Set talk on
Return
求2~~100之间的所有质数。(质数指在一个大于1的自然数中,除了1和此整数自身外,被其他数整除的数。set talk off set talk off
Clear Clear
for i=2 to 100 ?? “2~100之间的质数”
t=1 for i=2 to 100
for j=2 to i-1 t=0
if i/j=int(i/j) for j=2 to i-1
t=0 if i/j=int(i/j)
j=i-1 t=1
Endif exit
Endfor endif
if t=1 endfor
??i if t=o
endif ?? i
endfor endif
set talk on endfor
return set talk on
return
设计下图所示的表单,要求:当用户在文本框“操作数1”、“操作数2”中输入两个数值,并在“运算符”选项按钮组中选定一个运算符,单击“确定”按钮时,在“结果”文本框中显示其计算结果。
确定中代码 command1 click:
x=val(thisform.text1.value)
y=val(thisform.text2.value)
do case
case thisform.optiongroup1.value=1
thisform.text3.value=x+y
case thisform.optiongroup1.value=2
thisform.text3.value=x-y
case thisform.optiongroup1.value=3
thisform.text3.value=x*y
case thisform.optiongroup1.value=4
thisform.text3.value=x/y
endcase
this.parent.refresh
设计下图所示的表单,要求:表单中能显示当前的系统时间,并且背景颜色与字体颜色能够每隔5秒交换一次。
Timer1中代码 timer:
thisform.label1.caption=time()
i
您可能关注的文档
最近下载
- 江苏省南通市如皋市2024-2025学年高三上学期9月第一次教学质量检测生物试题(解析版).doc VIP
- 《神经鞘瘤的诊断与治疗》课件.ppt VIP
- DB63_T 371-2001 蚕豆陵西一寸品种标准(青海省).pdf VIP
- 2024—2025学年江西省南昌市外国语学校教育集团九年级上学期10月学习质量检测化学试卷.doc VIP
- 第06课藤野先生(20张PPT).pptx VIP
- 青岛版2024-2025学年一年级数学上册第四单元《漂亮的粘贴画-11-20各数的认识》大单元教学设计.docx VIP
- 关于市民对“广州交警”微信使用情况调查(可编辑).doc VIP
- 画法几何之父蒙日.pdf VIP
- 高中课前三分钟的励志演讲稿.pptx
- 股市趋势技术分析—图解 (前人笔记非常详细).doc VIP
文档评论(0)