1,如图用vb语言设计10行10列，其中有1的输入1，未输入的就输入0最好用数组形式未输入的就输入0最好用数组形式
2,
∏∕2=2/1*2/3*4/3*4/5*6/5*6/7*8/7*8/9*10/9~~~~*n/(n+1) 问当n=100的时候求输出∏的值
3,
12个评委给几个歌手打分，求去掉最高分最低分，求出其平均分。
4，有段程序看不懂，麻烦解释
x=“A”
for i=10 to 6 step -1
t=t+chr（ASC（x）+i）
next i
debug.write("T="&t)
请解释下x是A ASc（x）就等于65，再加i就是10就是75，问题的是chr（75）等于多少了？？？在+t怎么算？？？
追问：貌似第一题要换行啊~~~在那换行啊？还有麻烦详细解释val函数的使用，入val（abc123），val（123abc）,val（abc123)+val（123abc)。这几个等于多少呢？答案：1题： 使用数组，代码如下：Option Base 1
Dim a(10, 10) As Integer
Private Sub Form_click()
Me.AutoRedraw = True
Me.Cls
For i = 1 To 10
For j = 1 To 10
If i + j = 11 Or i = j Then
a(i, j) = 1
Print a(i, j);
Else
a(i, j) = 0
Print a(i, j);
End If
Next j
Next i
End Sub
4题：
chr(75)=K
+t其实就是每次把结果存储到t ，第一次是K 第二次是J 第三次是I 第四次是H 第五次是G 因为循环 10 to 6 step -1 就执行5次 最后的结果就是 T=KJIHG
这是我自己写了txt复制过来的，发过来可能不会换行，如果换不了行的话我发给你txt文本，或者邮箱发给你1.Private Sub Command1_Click() Dim a(10, 10), i, j As Integer For i = 0 To 9 For j = 0 To 9 If i = j Or i + j = 9 Then a(i, j) = 1 Else: a(i, j) = 0 End If Next Next For i = 0 To 9 For j = 0 To 9 Print a(i, j) & " "; Next Print Next
End Sub2.Private Sub Command1_Click() Dim a, i As Integer For i = 2 To 100 Step 2 a = i * i / (i + 1) / (i - 1) + a Next
Print 2 * aEnd Sub3.Option Base 1Private Sub Command1_Click() Dim a(12), i, min, max, sum As Integer For i = 1 To 12 a(i) = Val(InputBox("输入第" & CStr(i) & "个")) Next a(1) = min a(1) = max For i = 1 To 12 If a(i) < min Then min = a(i) If a(i) > max Then max = a(i) sum = sum + a(i) Next Print (sum - min - max) / 10End Sub4.x=“A” 将字符A赋值给x（貌似那个双引号错了，应该是""）for i=10 to 6 step -1 将i从10到6循环，步长为-1，就是10,9,8,7,6t=t+chr（ASC（x）+i） 将t自加上x的后i个（只可意会。。。）next i i自加1debug.write("T="&t) 这是调试的，其实程序有这个和没有都没关系5。A字符的asc11码就是65，chr是将asc11码转化为字符，其实这两个是相反的。chr（75）就是A的后面第10个，就是K，asc11码表可以查的。K+t是什么我愣是不知道，不好意思啊
上一个：VB程序设计
下一个：vb发送html邮件
