Question

~~十万火急~~~现有VB试题一套，悬赏100分，能在今晚24点之前完成者，再加100分！！

三、阅读程序并填空（30分）

（1） “水仙花数”是指一个 三位数，其各位上的数的立方和等于该数，如： 153=13 +53+33 以下程序，输出所有的“水仙花数”(每空3分,共15分)
Private Sub Label1_Click()
Dim i As Integer
For i = 100 To ⑴
If i = ⑵ + Int((i - Int(i / 100) * 100) / 10) ^ 3 + (i - Int(i / 100) * 100 - Int ((i - Int(i / 100) * 100) / 10) * 10) ^ 3 Then ⑶ ,

Next ⑷

End Sub
水仙花数共有:⑸ 个
(2) 以下程序功能是从键盘输入10个数，要求按从小到大的顺序打印出来。(每空3分,共15分)
Private Sub Command1_Click()
Dim strSr As String * 40, strSr1 As String * 40, a(1 To 10) As Integer
Dim I,j, n,p,temp as integer
For ⑴ To 10
strSr = "清输入10个数" + Chr(13) + Chr(10) + "然后单击确定"
strSr1 = ⑵
a(i) = Val( ⑶)
Next i
For i = 1 To n - 1
p = i
For j = i + 1 To n
If a(p) > a(j) Then p = j
Next j
temp = a(i): a(i) = a(p): ⑷
Next i
For i =1 To 10
Print ⑸ ;
Next i
End Sub
得 分 阅卷人

四、编程题（20分/题，共40分）
（1）设某一个班共有60个学生，期末考试5门课程，请编一程序评定学生的奖学金，要求打印输出一、二等奖学金学生的学号和各门课成绩。（奖学金评定标准是：总成绩超过全班总平成绩20%发给一等奖学金，超过全班总平成绩10%发给二等奖学金。）（20分）

（2）统计文本框中英文单词的个数 （！，；空格除外）（20分）
6.窗体上有一个称为cmdCommand1的命令按钮。当点击该按钮的时候，应该显示frmNext。则在cmdCommand1的点击事件程序中应该写入哪条语句（）
(A)Show(frmNext)�� (B) frmNext.Show�
� (C) frmNext.Show=True��(D) frmNext.show=vbVisible

7.加载窗体时，下面事件中会被激发的事件为（）
(A)Click�� (B)DblClick��� (C)Load�� (D)KeyPress
8.如果将布尔变量值True 赋值给一个整型变量,则整型变量的值为( )
(A)0�� (B)-1��� (C)true� (D)False
9.单精度变量的类型符是: ( )
(A) %�� (B) !��� (C) #� (D) 无
10. 对50 个字符声明定长字符串变量s的语句是( )
(A)Dim s as string 50�� (B) Dim s as string*50���
(C) Dim s as 50 �� (D) Dim s as string

Answer 1

看不懂

Answer 2

这么多题阿
谁有空作阿
建议分成小题目
就有人做了