网上有关“用vb编一个很简单的小程序”话题很是火热，小编也是针对用vb编一个很简单的小程序寻找了一些与之相关的一些信息进行分析，如果能碰巧解决你现在面临的问题，希望能够帮助到您。
#include "conio.h"
int main()
{
int max = 20;
char s[20] = { "\0" };
int a;
int i = 0;
bool flag = true;
while (flag)
{
a = _getche();
if (a == 13 || i >= max)
{
flag = false;
}
else
{
s[i] = (char)a;
i++;
}
}
printf("\n正序：");
for (int x = 65; x <= 97; x++)
{
for (int j = 0; j < i; j++)
{
if (s[j] == x)
{
printf("%c ", s[j]);
}
}
for (int j = 0; j < i;j++)
{
if (s[j] == x+32)
{
printf("%c ", s[j]);
}
}
}
printf("\n倒序：");
for (int x = 97; x >= 65; x--)
{
for (int j = 0; j < i; j++)
{
if (s[j] == x)
{
printf("%c ", s[j]);
}
}
for (int j = 0; j < i;j++)
{
if (s[j] == x+32)
{
printf("%c ", s[j]);
}
}
}
system("pause");
return 1;
}
代码改为：Private Sub Form_Click()Dim a, b, c, d As StringDim sum, aver As Longa = Val(InputBox("请输入第一个数"))
b = InputBox("请输入第二个数")
c = InputBox("请输入第三个数")
d = InputBox("请输入第四个数")
sum = a + b + c + d
aver = sum / 4
Print "所输入的4个数字分别是"; a, b, c, d
Print "4个数字的和为"; sum
Print "4个数字的平均值为"; averEnd Sub VB6.0下调试通过。
关于“用vb编一个很简单的小程序”这个话题的介绍，今天小编就给大家分享完了，如果对你有所帮助请保持对本站的关注！