几道VB的题，希望高手来帮做做！
2 任给定一年，判断该年是否闰年，并根据给出的月份来判断是什么季节和该月有多少天。闰年的条件是：年号能被4整除但不能被100整除，或者是能被400整除。
4 某数组有20个元素，元素的值由键盘输入，要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个元素与第19个元素互换，………，第10个元素与第11个元素互换。输出数组原来各元素的值和对换后各元素的值。
1 求从1000～1100之间的所有素数。（输出的结果显示在文本框中）
分别用以下三种方法实现： For 循环、While 循环与Do 循环
2 编写程序，实现矩阵的转置，即将一个n×m的矩阵行和列互换。
例如：A到B的矩阵转换为：
A=1 2 3 B= 1 4 7
4 5 6 2 5 8
7 8 9 3 6 9
4 如果一个数的因子之和等于这个数本身，则称这样的数为“完全数”。例：整数28的因子为1，2，4，7，14，其和1+2+4+7+14=28，因此28是一个完全数，编写一个程序，输出2000以内的所有完全数
3 主界面设计:
一个“Cls”按钮用于清屏；一个标签用于计算器输出；
数字按钮控件数组Number；操作符控件数组Operator；
一个“=”按钮用于计算结果；
功能要求:能进行整数的加、减、乘、除运算。其主要运行界面如下图所示
补充：我的邮箱，请写来这里apple2122938@yahoo.com.cn
答案：NO.1
Option Explicit
'要判断一个月的天数需要先判断该年是否为闰年
'以下两个函数分别是：判断是否为闰年，根据年份和月份判断该月的天数
'years年份months月份，直接调用即可
Private Function RunNian(ByVal Years%) As Boolean '判断是否为闰年函数
If Years Mod 400 = 0 Or (Years Mod 4 = 0 And Years Mod 100 <> 0) Then RunNian = True
End Function
Private Function Days%(ByVal Years%, ByVal Months%) 'years年份，Months月份
Dim Da$
Da = "13578AC" '大月的月份
If Months = 2 Then
If RunNian(Years) Then
Days = 29
Else
Days = 28
End If
Else
If InStr(Da, Hex(Months)) <> 0 Then
Days = 31
Else
Days = 30
End If
End If
End Function
NO.2
加入控件：text1,text2,command1
Option Explicit
Private Sub Command1_Click()
Dim A$(), Tmp$, I%
A = Split(Text1, " ")
If UBound(A) < 19 Then MsgBox "??ê?è?20??êy?Y￡?????êy?Yó????????a": Exit Sub
For I = 0 To 9
Tmp = A(I)
A(I) = A(19 - I)
A(19 - I) = Tmp
Next I
For I = 0 To UBound(A)
Text2 = Text2 + A(I) + " "
Next I
End Sub
Private Sub Form_Load()
Text1 = "00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13"
Text2 = ""
End Sub
NO.3
Option Explicit
Private Sub Form_Load()
Dim i&
Me.AutoRedraw = True
Me.Print "1000~1100μ???êyóD"
For i = 1000 To 1100
If SuShu(i) Then Print i
Next i
End Sub
Private Function SuShu(ByVal Number&) As Boolean
Dim i&
SuShu = True
If Number <= 3 Then SuShu = True: Exit Function
For i = 2 To Int(Sqr(Number) + 0.5)
If Number Mod i = 0 Then SuShu = False: Exit Function
Next i
End Function
NO.3
Option Explicit
Private Sub Form_Load()
Dim a&(2, 2), B&()
Dim i, j
a(0, 0) = 0
a(0, 1) = 1
a(0, 2) = 2
a(1, 0) = 10
a(1, 1) = 11
a(1, 2) = 12
a(2, 0) = 20
a(2, 1) = 21
a(2, 2) = 22
For i = 0 To 2
For j = 0 To 2
MsgBox a(j, i)
Next j
Next i
B = ZH(a)
For i = 0 To 2
For j = 0 To 2
MsgBox B(j, i)
Next j
Next i
End Sub
Private Function ZH(A1&()) As Long()
Dim i&, j&, C%, R%, B1%, B2%, Tmp&()
B1 = LBound(A1, 1)
B2 = LBound(A1, 2)
C = UBound(A1, 1) - B1 + 1
R = UBound(A1, 2) - B2 + 1
ReDim Tmp(B2 To R - 1 + B2, B1 To C - 1 + B1)
For i = B1 To C - 1 + B1
For j = B2 To R - 1 + B2
Tmp(i, j) = A1(j, i)
Next j
Next i
ZH = Tmp
End Function
NO.4
Option Explicit
Private Sub Form_Load()
Dim I&
Me.AutoRedraw = True
Print "2000ò??ú?ùóDíê??êy"
For I = 1 To 2000
If WZS(I) Then
Print I
End If
Next I
End Sub
Private Function WZS(ByVal Number&) As Boolean
Dim I&, Y%(), J%, Tmp&
If Number = 0 Then Exit Function
For I = 1 To Int(Sqr(Number) + 0.5)
If Number Mod I = 0 Then
ReDim Preserve Y(J + 1)
Y(J) = I
Y(J + 1) = Number / I
J = J + 2
End If
Next I
For I = 0 To UBound(Y)
Tmp = Tmp + Y(I)
Next I
If Tmp = Number * 2 Then WZS = True
End Function
NO.5
已经上传到www.wanlecheng.cn/vbhelp/计算器.rar
花了好些时间给你写的
我可以帮你做个计算器,写上你的邮箱吧
答案补充我今天很忙,明天吧,你的邮箱我已经记起来了.
答案补充星期天也有读书嘛?我看看今晚能不能帮你搞定.
OK！ QQ544243078
我有一些代码
C代码行吗
计算一年当中的多少天
#include <stdio.h>
void main()
{
int y,m,d,d2;
int sum=0;
printf("请输入一个年月日:");
scanf("%d-%d-%d",&y,&m,&d);
if(y%4==0 && y%100!=0 || y%400==0)
d2=29;
else
d2=28;
switch(m)
{
case 1:sum=d;break;
case 2:sum=31+d;break;
case 3:sum=31+d2+d;break;
case 4:sum=31+d2+31+d;break;
case 5:sum=30+31+d2+31+d;break;
case 6:sum=31+30+31+d2+31+d;break;
case 7:sum=30+31+30+31+d2+31+d;break;
case 8:sum=31+30+31+30+31+d2+31+d;break;
case 9:sum=31+31+30+31+30+31+d2+31+d;break;
case 10:sum=30+31+31+30+31+30+31+d2+31+d;break;
case 11:sum=31+30+31+31+30+31+30+31+d2+31+d;break;
case 12:sum=30+31+30+31+31+30+31+30+31+d2+31+d;break;
default:
puts("Error");
break;
}
printf("这是第%d天",sum);
}
太多了 传给ni吧
加我QQ,83069659,做好给你
上一个：谁有详细的VB学习流程？谢了
下一个：asp vb脚本错误，提示缺少对象！！求救！！
