2022年vb程序填空课堂练习题 .pdf
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_05.gif)
《2022年vb程序填空课堂练习题 .pdf》由会员分享,可在线阅读,更多相关《2022年vb程序填空课堂练习题 .pdf(8页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、名师整理优秀资源程序填空课堂练习题在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
2、 *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
3、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 =
4、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(
5、 请输入一个字符) *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
6、, 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 N
7、ext 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 - 【程序填空】- 题目:窗体中有若干控
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2022年vb程序填空课堂练习题 2022 vb 程序 填空 课堂 练习题
![提示](https://www.deliwenku.com/images/bang_tan.gif)
限制150内