Question

VB 把C程序换成VB格式

能把下面的C语言转换成VB吗？
#include <stdio.h>
main()
{
int a[8],b[8];
int sum=0,high=0,temp=0;
int i=0,j=0;
int avg=0;
printf("请输入8个数\n");
for(i;i<8;i++)
{
scanf("%d",&a[i]);
sum+=a[i];
printf("the next one!\n");
}
avg=sum/8;
for(i=0,j=0;i<8;i++)
{
if(a[i]>avg) {b[j]=a[i];j++;}

}
printf("the number bigger than avg is:\n");
for(i=0;i<j;i++)
{
printf("%d\n",b[i]);
}
}

Answer 1

根据题意可知是手工输入8个数字，并求和和平均值，然后输出大于平均值的数：

Private Sub Command1_Click()

Dim a(8) As Integer, sum As Integer, avg As Integer

For i = 1 To 8

a(i) = InputBox("请输入第" & i & "个数字：")

sum = sum + a(i)

Print a(i);

Next i

Print

avg = sum / 8

Print sum; avg

For i = 1 To 8

If a(i) > avg Then Print a(i);

Next i

End Sub

Answer 2

Sub main()
Dim a(0 To 7), b(0 To 7) As Integer
Dim sum, high, temp As Integer
Dim i, j As Integer
Dim avg As Integer
sum = 0: high = 0: temp = 0
i = 0: j = 0
avg = 0
Print ("请输入8个数")
For i = 0 To 7 Step 1
a(i) = 输入内容 'vb中如何实现输入啊
sum = sum + a(i)
Print ("the next one!")
Next i
avg = sum / 8
j = 0
For i = 0 To 7 Step 1
If a(i) > avg Then b(j) = a(j): j = j + 1
Next i
Print ("the number bigger than avg is:")
For i = 0 To j - 1 Step 1
Print (b(i))
Next i
End Sub

应该就是这样了。

Answer 3

怎么这么多人问这种问题。。
不同语言的转换要考虑很多问题，不是随便说转换就能转的。
像你这个是控制台程序，而vb貌似只能做windows程序吧，显示方式怎么办。
运行方式也是直接顺序执行运行？
输入怎么输？
这些都得考虑，所谓的不同语言移植，只能说是移植算法思想，真正编程时要重新写的

写了这么多，虽然没达到你的要求，但希望对你有帮助