2022年vb程序填空课堂练习题 .pdf

名师整理优秀资源程序填空课堂练习题在SPACE语句的下一行完成程序填空，首先将【？】删除。然后填入正确答案。答题结束后，必须在程序环境中做好保存、1.由输入对话框输入n（n 必须为大于零且小于30 的自然数），计算下列表达式的值，并在标签框 lable1 上显示。 Sum=1/2+1/6+ +1/(k*(k+1) (k=n) 请在【】处填入正确的内容Private Sub Form_Click() Dim n As Integer, sum As Double, k As Integer N= Val(InputBox( “ n=” ,” 请重新输入 ” ) Loop Sum=0 K=0 Do *SPACE* K= 【?】Sum= sum+1/(k*(k+1) *SPACE* Loop Until 【？】Labell.Caption= “ sum= + Str(sum) End Sub 2.由 12 个文本框代表12 个位置。程序为A-J 10 个字母分配十个位置，并显示座位分配。在【】处填入正确内容Private Sub Form_Load() Dim k, h, p As Integer Dim t(12) As Sring Randomize *SPACE* For k = 1 To 【？】t(k) =” Emty”Next k *SPACE* For【？】 = 65 To 74 Do While True P = Int(1+12*Rnd) *SPCA* If t(p)=【？】Then T(p)= Chr(h) Exit Do 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 1 页，共 8 页 - - - - - - - - - 名师整理优秀资源3.以下程序用于判断一个正整数（3）是否为素数。 Private Sub Form_Click() n = InputBox( 请输入一个正整数（3）) k = Int(Sqr(n) i = 2 swit = 0 *SPACE* Do While i = k And 【?】*SPACE* If 【?】 Then swit = 1 Else *SPACE* 【?】End If Loop If swit = 0 Then Print n; 是一个素数 Else Print n; 不是素数 End If End Sub 【程序填空】- 4.题目：从键盘上输入一串字符，以?结束，统计输入字符中的 大、小写字母和数字的个数。- Private Sub Form_Click() Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0 ch = InputBox( 请输入一个字符) *SPACE* Do While 【?】Select Case ch Case a To z n1 = n1 + 1 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 2 页，共 8 页 - - - - - - - - - 名师整理优秀资源*SPACE* Case 【?】n2 = n2 + 1 Case 0 To 9 n3 = n3 + 1 End Select ch = InputBox( 请输入一个字符) *SPACE* 【?】Print n1, n2, n3 End Sub 5. Option Explicit - 【程序填空】- 题目：写出程序运行时单击窗体后，Form1 上的输出结果 n=1 z=4 n=2 z=7 n=3 z=10 6.请在【 ?】处填入正确的内容- Private Sub Form_Click() Dim a As Integer, b As Integer, z As Integer *SPACE* Dim 【?】 As Integer a = 1 *SPACE* b = 【?】*SPACE* For n = 【?】To 3 z = chg(a, b) Form1.Print n=; n, z=; z Next n End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 3 页，共 8 页 - - - - - - - - - 名师整理优秀资源Function chg(a As Integer, b As Integer) As Integer Dim n As Integer For n = 0 To 2 a = a + b Next n chg = a End Function 6. Option Explicit - 【程序填空】- 题目：窗体中有若干控件，单击其中的一个按扭cmdput 时， 执行如下的事件过程，该过程的功能是把数据输出到指定的文件中. 请在【 ?】处填入正确的内容- *SPACE* Private Type 【?】Number As String Name As String End Type Private Sub cmdput_click() Dim Title As String Dim Str1 As String Dim str2 As String Dim stu As Student Dim i As Integer Open App.Path & student.dat For Random As #1 Len = Len(stu) Title = 写记录到随机文件 Str1$ = 请输入学生号 str2$ = 请输入学生名 For i = 1 To 5 *SPACE* 【?】.Number = InputBox(Str1$, Title$) stu.Name = InputBox$(str2$, Title$) Put #1, i, stu 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 4 页，共 8 页 - - - - - - - - - 名师整理优秀资源Next i *SPACE* Close 【?】End Sub 7. Option Explicit - 【程序填空】- 题目：打印出100-999 之间的所有水仙花数 如果一个数的百位，十位，个位数的立方和等于这个数本身 则这个数为水仙花数请在【 ?】处填入正确的内容- Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer *SPACE* For i = 100 To 【?】*SPACE* a = Int(i / 【 ?】) b = Int(i - 100 * a) / 10) *SPACE* c = i - 100 * a - 【?】If a * a * a + b * b * b + c * c * c = i Then Print i End If Next i End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 5 页，共 8 页 - - - - - - - - - 名师整理优秀资源8- 【程序填空】- 题目： 数组 a 是一递增排列的数组，从文本框输入一个数，将这个数插入数组。- Option Explicit Private Sub Form_Click() Dim A, N%, Imin%, I%, X%, K% A = Array(4, 7, 9, 12, 15, 17, 21, 25, 27, 32, 42) N = UBound(A) Print 排序前： For I = 0 To N Print A(I); Next I Print X = Val(Text1) *SPACE* ReDim Preserve A( 【?】 + 1) For I = 0 To N If X 1 Then *SPACE* Power = Power(x, 【?】) * x Else *SPACE* Power = 【 ?】End If End Function 10 - 【程序填空】- 题目：本程序执行功能为，命令按钮单击一次后，窗体上输出结果为：36 25 16 9 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 7 页，共 8 页 - - - - - - - - - 名师整理优秀资源请在【】处填入正确的内容- Private Sub Command1_Click() Dim xx(6) As Integer Dim k% Open App.Path & al.dat For Output As #1 For I = 1 To 6 *SPACE* j = 【?】Print #1, j Next I Close #1 Open App.Path & a1.dat For Input As #2 k = 0 Do While Not EOF(2) *SPACE* k = 【?】Input #2, xx(k) Loop Close #2 *SPACE* For I = k To k / 2 Step 【?】Form1.Print xx(I) Next I End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 8 页，共 8 页 - - - - - - - - -