400分悬赏- VF编程

过程调用可以通过如下方式来实现，主程序实现判断素数，子过程实现相反判断相反数是不是素数．
clear
sum=0
for i=10 to 99
for j=2 to i-1
if i%j=0
exit
endif
endfor
if j>=i
do abc with i
endif
endfor
?"求和结果",sum

*子过程abc
proc abc
para i
a=int(i/10)
b=i%10
x=b*10+a
for y=2 to x-1
if x%y=0
exit
endif
endfor
if y>=x
?alltrim(str(i)),"是素数",alltrim(str(x)),"也是素数"
sum=sum+i
endif

素数是除了1和本身不能倍整除的吧！
哎 我也不太懂 拿分 我好提问 呵呵

1 前言

在输入数据量比较大时，用户一般要频繁地刷新界面和反复地按一些按钮，使输入效率大大降低。如果能在一个界面上实现大量不同类型数据的输入，则可以减少输入时的工作量，从而提高了输入效率，同时还可以浏览若干次输入的项目，使数据的编辑保存更加方便。

Visual Basic为编制Windows应用程序提供了一种全新的、相当简单的方式[1]。在数据输入时，一般用文本框或者组合框，录入完一条记录后保存，然后才能录入下一条记录。下面以病房中医嘱的录入为例，介绍几种在VB中可以使输入大量数据简便化的方法。医院病房医嘱的录入项目和数据较多，如果在一个界面上完成输入，可以尽量提高录入效率，尽最大可能地避免录入错误。医嘱分长期医嘱和临时医嘱两大类别，每一类又可分为用药医嘱、检查医嘱、治疗医嘱、手术医嘱等几种类型，并且每种类型中所要求的输入项目都不尽相同，一位病人某一类型的医嘱中又会有若干