UC知道vb编程 请教（加分）
来源：百度知道 编辑：UC知道 时间：2024/05/28 00:04:57
1.图形编程
#
#$#
#$#$#
#$#$#$#
2.从键盘输入一个不多于6位的正整数，挑选出其中的偶数字，按反序组成新数并输出（例如：3245176 输出结果为642）
3.窗体上有一个名Text1的文本框数组（共7个）和一个按钮，运行时在文本框数组中输入7个分数，单击按钮，输出平均分（此平均分为去掉一个最高分和去掉一个最低分）。
第一题中图形是金字塔状的(这里打不出来)
都市精灵 不好意思 第一题不是用这种方法.....这谁都会，我要的是 用循环来做
共（四行）就是我打的这个图形，但是是金字塔状的
#
#$#
#$#$#
#$#$#$#
2.从键盘输入一个不多于6位的正整数，挑选出其中的偶数字，按反序组成新数并输出（例如：3245176 输出结果为642）
3.窗体上有一个名Text1的文本框数组（共7个）和一个按钮，运行时在文本框数组中输入7个分数，单击按钮，输出平均分（此平均分为去掉一个最高分和去掉一个最低分）。
第一题中图形是金字塔状的(这里打不出来)
都市精灵 不好意思 第一题不是用这种方法.....这谁都会，我要的是 用循环来做
共（四行）就是我打的这个图形，但是是金字塔状的
【改完了，一切OK，还望多给点分～呵呵】
我第一个做完了：
1.
'你可以更改numm的数值来控制总共显示几行
Dim summ, numm As Integer
Private Sub Command1_Click()
summ = 1
numm = 4
For i = numm To 1 Step -1
For j = 1 To i - 1
Print " ";
Next j
Do While summ <= (numm - i + 1)
summ = summ + 1
Print "#";
If summ > (numm - i + 1) Then
summ = 1
Exit Do
End If
Print "$";
Loop
Print ""
Next i
End Sub
2.
Dim bb As String, aa As Double 'text1输入，text2输出
Private Sub Command1_Click()
bb = ""
For i = 1 To Len(Text1.Text)
aa = Val(Mid(Text1.Text, i, 1))
If aa / 2 = aa \ 2 Then bb = bb + Mid(Text1.Text, i, 1)
Next i
Text2.Text = ""
For i = 6 To 1 Step -1
Text2.Text = Text2.Text + Mid(bb, i, 1)
Next i
End Sub
3.
Dim aa, bb, su