重庆文理学院图片:关于VB的题目，求人帮忙。

1。任意一个偶数都可以拆成两个奇数的和，请设计程序。输入偶数出现合要求的奇数。
private command1_click()
dim j as string
dim i as integer
j=inputbox("请输入偶数") '接受键盘输入
if val(j)=0 then msgbox "不能为非数字或0"：exit sub '输入的不是数字或者为0
if j mod 2<>0 then msgbox "不是偶数！":exit sub '不是偶数
for i=1 to j-1
if i mod 2<>0 and (j-i) mod 2 <>0 then '保证相加的两个数都不能被2整除
print i & "+" & j-i & =j
end if
next i '循环
end sub

2。假如你是评委，给10个人打分，去掉一个最高分，一个最低分，再计平均分。
private sub command1_click()
dim i%,max%,min%,aver% '定义变量，最大最小平均值
dim j(9) as long
for i=0 to 9
j(i)=inputbox("请输入第" & i & "个评分") '通过输入获取10个评分
if i=0 then '给最大最小值赋初值
max=i:min=i
else
if i>max then max=i '如果比最大值大就交换，另max始终为最大
if i<min then min=i '比最小值(min)小就交换i跟最小值(min)的值
end if
ever=ever+i '先计算总分，除以10就是平均分
next i
msgbox "去掉最高分" & max & ",去掉最低分" & min & "平均分为：" & ever/10
end sub

''''''''''''''''''''声明：给的方法没有在VB中调试(在网吧)，有问题欢迎再发问'''''''''''''''''''''
第三题，我还不怎么清楚，只会一个个转化，不好意思，希望可以帮你

一个题即使难点也还可以考虑，三个题太麻烦了！可以看出你还是VB初学者，当然我也是！

我做出来的题怎么给你啊？
你需要做成什么样子的啊，我做好了，但是需要界面做配合。你是要函数还是要过程，还是就要代码？

private sub command1_click()
dim N As integer,I As integer,result As boolean
result = true;N = Val(text1.text)
for I = 2 to int(sqr(N))
if N Mod I = 0 Then result = false; exit for
naxt I
if result then label3.caption = N & "是奇数" _
else label3.caption = N & "不是奇数"
end sub

自己调试一下，也许不对，记得分数给偶！！！！！！