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

《2022年vb程序填空课堂练习题.docx》由会员分享，可在线阅读，更多相关《2022年vb程序填空课堂练习题.docx（16页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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= ValInput

2、Box “n=” ,” 请重新输入 ” Loop Sum=0 K=0 Do *SPACE* K= 【.】Sum= sum+1/k*k+1 *SPACE* Loop Until 【？】Labell.Caption= “ sum= + Strsum End Sub 2.由 12 个文本框代表12 个位置；程序为A-J 10 个字母安排十个位置,并显示座位安排；在【】处填入正确内容Private Sub Form_Load Dim k, h, p As Integer Dim t12 As Sring Randomize *SPACE* For k = 1 To 【？】tk = ” Emty”Nex

3、t k *SPACE* For【？】 = 65 To 74 Do While True P = Int1+12*Rnd *SPCA* If tp=【？】Then Tp= Chrh Exit Do 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 1 页,共 8 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师整理 优秀资源3.以下程序用于判定一个正整数（3）是否为素数； Private Sub Form_Click n = InputBox 请输入一个正整数（3） k =

4、 IntSqrn 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

5、= 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* 【.】

6、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 = chga, b Form1.Print n=; n, z=;

7、 z Next n End Sub 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 3 页,共 8 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师整理 优秀资源Function chga 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 - 【程序填空】- 题目：窗体中有

8、如干控件,单击其中的一个按扭 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 #

9、1 Len = Lenstu Title = 写记录到随机文件 Str1$ = 请输入同学号 str2$ = 请输入同学名 For i = 1 To 5 *SPACE* 【.】.Number = InputBoxStr1$, Title$ stu.Name = InputBox$str2$, Title$ Put #1, i, stu 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 4 页,共 8 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师整理 优秀资源Next

10、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 = Inti / 【 .】 b = Inti - 100 * a / 10 *SPACE

11、* 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

12、Sub Form_Click Dim A, N%, Imin%, I%, X%, K% A = Array4, 7, 9, 12, 15, 17, 21, 25, 27, 32, 42 N = UBoundA Print 排序前： For I = 0 To N Print AI; Next I Print X = ValText1 *SPACE* ReDim Preserve A 【.】 + 1 For I = 0 To N If X 1 Then *SPACE* Power = Powerx, 【.】 * x Else *SPACE* Power = 【 .】End If End Funct

13、ion 10 - 【程序填空】- 题目：本程序执行功能为,命令按钮单击一次后,窗体上输出结果为：36 25 16 9 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 7 页,共 8 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师整理 优秀资源请在【】处填入正确的内容- Private Sub Command1_Click Dim xx6 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 EOF2 *SPACE* k = 【.】Input #2, xxk Loop Close #2 *SPACE* For I = k To k / 2 Step 【.】Form1.Print xxI Next I End Sub 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 8 页,共 8 页 - - - - - - - - -