编写一个求给定数值范围内的幸运数及其个数的程序。

Private Function isxys(a) As Boolean
If a < 1000 Or a > 9999 Then
isxys = False
Else
t1 = Int(a / 1000) '取千位数
t2 = Int((a - t1 * 1000) / 100)
t3 = Int((a - t1 * 1000 - t2 * 100) / 10)
t4 = a - t1 * 1000 - t2 * 100 - t3 * 10
If t1 + t2 = t3 + t4 Then
isxys = True
Else
isxys = False
End If
End If
End Function

Private Sub Command1_Click()
s = 0
For i = Val(Text1.Text) To Val(Text2.Text)
If isxys(i) Then
List1.AddItem i
s = s + 1
End If
Next
Text3.Text = s
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
List1.Clear
Text1.SetFocus
End Sub
vb6.0代码

public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
int i;
int a, b, c, d;
int sum = 0;
for (i = Convert.ToInt32(textBox1.Text); i < Convert.ToInt32(textBox2.Text); i++)
{
a = i/1000;
b =i/100%10;
c =i/10%10;
d = i % 10;
if ((a + b) == ( c + d))
{
listView1.Items.Add(i.ToString());
sum++;
}
}
textBox3.Text = sum.ToString();

}

private void button2_Click(object sender, EventArgs e)
{
textBox3.Text = "";
textBox1.Text = "";
textBox2.Text = "";
textBox1.Focus();
listView1.Items.Clear();
}
}
以上为c#程序代码