【2017年整理】VB 复习范围.docx

程序设计 1. 【程序设计】 题目：编写函数fun，函数的功能是：计算两个正整数的 最大公约数，并显示。如： 两个数为15、20，结果显示5 要求使用Do ... Loop语句来实现。 Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 注意： 请在指定的事件内编写代码 代码只能写在两行标识之间 不得修改已有代码 保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 2. 【程序设计】 题目：编写函数fun，函数的功能是：当x的初值为10， 每年增长率为百分之一，计算多少年以后x的值能达到y， 并显示所需年数的值（变量名必须为n）。 要求使用Do ... Loop Until语句来实现。 x = 10 n = 0 Do x = x * 1.01 n = n + 1 Loop Until x = y fun = n 注意： 请在指定的事件内编写代码 代码只能写在两行标识之间 不得修改已有代码 保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 3. 【程序设计】 题目：编写函数fun，函数的功能是：求从m到n的奇数的乘积并显示， 如：m为2，n为5时，显示15 存储连乘的乘积的变量必须为Product 要求使用For语句来实现。 Product = 1 For i = m To n If i Mod 2 0 Then Product = Product * i Next i fun = Product 注意： 请在指定的事件内编写代码 代码只能写在两行标识之间 不得修改已有代码 保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 4. 【程序设计】 题目：：编写函数fun，函数的功能是：计算并输出给定 整数n的所有因子之和（不包括1与自身）。规定 n的值不大于1000. 例如：n的值为855时，应输出704。 Dim s, i As Integer For i = 2 To n - 1 If n Mod i = 0 Then s = s + i End If Next Fun = s 程序填空 1. 编程求1-10之间任一数字的阶乘。 Option Explicit Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If x = 1 And x = 10 Then Label2.Caption = Text1 **********FILL********** text2.Text = CStr(fac(x)) End Sub Private Function fac(n As Integer) As Long Dim i As Integer Dim s As Long s = 1 For i = 1 To n **********FILL********** s = s * i Next i **********FILL********** fac = s 返回函数值 End Function Private Sub Command2_Click() End End Sub 2. 编写一个求三个数最大值的函数max(x,y,z)，然后调用此函数求下列表达式的值，首先在文本框中输入a,b,c 三个数，然后单击计算按钮，在文本框中输出表达式的值m。表达式为：m=max(a,b,c)*max(a+b,b,c)-max(a,b, b+c) Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer Dim c As Integer, m As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) **********FILL********** m = max(a, b, c) * max(a + b, b, c) - max(a, b, b + c) **********FILL********** Text4.Text = CStr(m) End Sub Private Function max(ByVal x As Integer, ByVal y As Integer, ByVal