2011VB期考试题库.xls

764f4f8dd413f505122ea515f0478763 xls Page 1 序号 1 2 3 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 764f4f8dd413f505122ea515f0478763 xls Page 2 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 764f4f8dd413f505122ea515f0478763 xls Page 3 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 764f4f8dd413f505122ea515f0478763 xls Page 4 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 764f4f8dd413f505122ea515f0478763 xls Page 5 94 95 96 97 98 99 100 101 102 103 104 105 106 764f4f8dd413f505122ea515f0478763 xls Page 6 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 764f4f8dd413f505122ea515f0478763 xls Page 7 136 764f4f8dd413f505122ea515f0478763 xls Page 8 题目 Visual Basic程序中语句行的续行符是 设a 2 b 3 c 4 d 5 下列表达式的值是 A b AND cc b c 设a 2 b 3 c 4 d 5 下列表达式的值是 3 2 b OR a c AND bc OR c d 随机函数Rnd 10 的功能为 提取计算机系统的当前日期的函数是 提取系统的当前时间的函数是 为了保存一个Visual Basic应用程序 应当 下列不能打开代码窗口的操作是 下列不属于常量的是 下列不属于数值数据类型的是 764f4f8dd413f505122ea515f0478763 xls Page 11 下列关于条件语句的说法中正确的为 下列可作为Visual Basic的变量名的是 下列哪个操作可以清除文本框对象Text1的内容 下列哪个符号不能作为Visual Basic的变量名 下列哪组语句可以将变量A B的值互换 下列说法错误的是 下列叙述中正确的是 下列语句错误的是 下列语句有语法错误的是 下列语句中 不能将变量x y均定义为单精度型的是 要设置Hscrollbar控件在单滚动箭头时Value属性值的变化幅度 可通过调用该控件的 属性来实现 要想通过单击Command1弹出Form2窗体 则可在Command1的单击事件中 使用 命令 要想通过单击Form2上的Command1 从内存中清除Form2窗体 则可在Command1的单击事件中 使用 命令 要想通过单击Form2上的Command1 从屏幕 而非内存中 上清除Form2窗体 则可在Command1的单击事件中 使用 命令 一个VB工程中标准模块文件的扩展名是 一个VB工程中窗体文件的扩展名是 一个VB工程中工程文件的扩展名是 一个单精度型变量在内存中占据 字节的空间 一个工程文件可包含7种类型的文件 下列哪个文件不包含其中 一个工程中有Form1和Form2两个窗体 命令可以同时关闭这两个窗体 一个双精度型变量在内存中占据 字节的空间 一个整型变量在内存中占据 字节的空间 已知A 1 1 A 2 2 A 3 6 A 4 8则A A 1 A 2 已知Eng 1 90 Math 1 80 T 1 2 Total 1 Eng 1 Math 1 T 1 则Total 1 已知T 1 9 T 2 8 T 0 5 Total T 1 T 2 T 0 则Total 以下 是定义定长字符串 764f4f8dd413f505122ea515f0478763 xls Page 12 以下 不是Visual Basic的特点 以下不是Visual Basic中的事件是 以下不是结构化程序设计的基本结构的是 以下定义的过程 是按 传值 方式传递参数的 以下定义的函数中 不是按 传址 方式传递参数的 以下过程是 Public Function MaxNum End Function 以下过程是 事件 Prviate Sub Form Click End Sub 以下过程是 事件 Prviate Sub Form Load End Sub 以下过程是标签Label1的 事件 Prviate Sub Label1 DblClick End Sub 以下过程是窗体Form1的 事件 Prviate Sub Form DblClick End Sub 以下过程是命令按钮的 事件 Prviate Sub Command1 Click End Sub 以下可以在For Next循环体中跳出循环 执行Next下一句的语句 以下说法错误的是 764f4f8dd413f505122ea515f0478763 xls Page 13 以下正确的叙述是 隐藏窗体的方法为 用于常量说明的关键字是 由 属性 可将字符串输入到文本框中 语句 Dim S 1 to 5 定义的数组有 个元素 语句 Dim student 10 5 to 10 定义的是一个 维数组 语句 Dim student 10 8 As Long定义的数组元素的类型为 语句 Dim student 9 6 As String定义的数组元素的类型为 语句 Dim student 10 5 4 定义的是一个 维数组 语句 Dim student 20 定义的是一个 维数组 在VB 窗体要设计两组单选按钮 应用 控件对其分组 在VB6 0的集成开发环境中调试程序时 用户可直接在 窗口中用Print方式或直接在程序中用Debug Print方法显 示表达式的值 在VB中 若某变量未经Dim语句声明便直接使用 系统会默认其为 在程序运行过程中可使用RGB函数指定颜色参数值 它的格式是 在窗体运行时 若要以程序代码的方式改变窗体的高度 可用 属性进行设置 在当前VB 窗体上输出一个字符串 计算机 的方法是 在函数过程中的任意位置要退出当前函数过程 应用 命令 在通用段有语句 Option Base 1 情况下语句 Dim student 10 5 定义的数组有 个元素 在以下情况下 窗体的Click事件将会被触发的为 在以下事件过程中 Private表示 Private Sub txtName Change End Sub 在以下事件过程中 Public表示 Public Sub txtName Change End Sub 在运行时 若要使文本框获得输入焦点 可调用文本框对象的 方法来实现 在子过程中的任意位置要退出当前子过程 应用 命令 执行下面的语句后 所产生的对话框的标题是 A InputBox aaaa bbbb 5 执行下面的语句后 所产生的对话框的提示消息是 A InputBox aaaa bbbb 5 执行下面的语句后 所产生的对话框中用户输入区域的默认值是 A InputBox aaaa bbbb 5 执行下面的语句后 所产生的信息框的提示消息是 A MsgBox aaaa 5 bbbb 子过程是以 保留字开始的 字体大小由 属性设置 764f4f8dd413f505122ea515f0478763 xls Page 14 字体名称由 属性设置 764f4f8dd413f505122ea515f0478763 xls Page 15 ABCD TrueFalse 11 连接符两 旁的操作 符只能为 数值型 连接符两 旁的操作 符只能为 字符型 连接符两 旁的操作 符既可为 数值型 也可为字 符型 连接符两 旁的操作 符既不能 为数值型 也不能 为字符型 连接符两 旁的操作 符只能为 数值型 连接符两 旁的操作 符只能为 字符型 连接符两 旁的操作 符既可为 数值型 也可为字 符型 连接符两 旁的操作 符既不能 为数值型 也不能 为字符型 0 X 100 0 X 100 0 X And X 100 0 X or X 100 483216 3 3 3 14 3 14 While是 当条件为 真时执行 循环 而 Until是 在条件变 为真的之 前重复 Until是 当条件为 真时执行 循环 而 While是 在条件变 为真的之 前重复 While和 Until都 是当条件 为真时执 行循环 While和 Until都 是在条件 变为真的 之前重复 循环 步长只能 为正数 不能为负 数 步长为1时 可略去 不写 初值 终 值和步长 都是数值 表达式 Exit For 只能退出 当前For 循环 数值 字符串变体 逻辑 23 242423 561012 efghij k hijk abcd abcdefg efghij k hijk abcd abcdefg efghij k hijk abcd abcdefg AbcabcABC aBC cmmTwipPix 代码 属性窗体 立即 工程资源 管理器 属性窗体 窗体布局 建立用户 界面 编写源程 序代码 画图显示文字 Print x y x y Print x y x y Print x y x y Print x y x y 764f4f8dd413f505122ea515f0478763 xls Page 16 TextNameCaption Alignmen t 1 5231 1 1001 9910 10010 99 函数运算算术运算关系运算逻辑运算 设计模式运行模式调试模式中断模式 BackColo r BorderSt yle TextCaption 学习版免费版专业版企业版 FontName FontSize FontItal ic FontBold BottonCheckBox PictureB ox OptionBo tton LoadUnload QueryUno ad CLs MoveResizePaintClick 秒微秒 毫秒 分 VB源代码 中不区分 字母的大 小写 同一行可 以写多个 语句 可以适当 添加注释 有利于程 序的维护 和调试 一个语句 必须写在 一行中 不可分成 多行来书 写 只能使用 解释运行 模式 只能使用 编译运行 模式 既不能使 用解释运 行模式 也不能使 用编译运 行模式 既能使用 解释运行 模式 又 能使用编 译运行模 式 事件是由 Visual Basic预 先定义好 的 能够 被对象识 别的动作 DblClick 双击 是Visual Basic中 的一种事 件 一个对象 可以识别 一个或多 个事件 对于一个 系统提供 的对象可 以识别哪 些事件 需要程序 员自己定 义 逻辑型数 据只有两 种可能值 True或 者False 当把逻辑 值转换为 数值时 False转 为0 True转为 1 当把其他 类型数据 转换为逻 辑数据时 非0数转 换为True 0转换为 False 逻辑型数 据以2个字 节存储 条件语句 中的 条 件 可以 是逻辑表 达式或关 系表达式 条件语句 中的 条 件 可以 是数值表 达式 非0 值表示 true 0 值表示 false 在块结构 条件语句 中 语 句块 中 的语句不 能与then 在同一行 上 块结构的 条件语句 和单行结 构的条件 语句都必 须以End if结束 Function SubProperty Event 764f4f8dd413f505122ea515f0478763 xls Page 17 Form1 V B Test Form1 Ca ption V B Test Form1 Te xt VB Test Form1 Na me VB Test Chr Str AscVal Chr Str AscVal TextCaptionNameValue 5066 156 10010任意101 子过程窗体模块标准模块事件过程 ClsClearEraseDroup LenlongLengthVal year mod 4 0 and year mod 1000 and year mod 400 0 year mod 4 0 and year mod 1000 or year mod 400 0 year mod 4 0 or year mod 1000 and year mod 400 0 year mod 4 0 or year mod 1000 or year mod 400 0 TextValueMaxMin UnloadClsShowLoad Text属性 值为 Caption 属性值为 Password Char属性 值为空 Password Char属性 值为 2202000200 TextCaptionName 名称 Multilin e LengthMin MaxLengt h Interval ValueTextEnabled VisibleEnabledDefaultValue RefreshSetFocus GetFocus LostFocu s 1 2 32 3 1 3 2 1 2 3 2 TrueFalse01 产生一个 大于或等 于0小于1 的单精度 随机数 产生一个 大于或等 于0小于 10的单精 度随机数 产生一个 大于0小于 10的单精 度随机数 产生一个 大于0小于 1的单精度 随机数 Date Time DateValu e Now Date Time DateValu e Now 只保存窗 体模块文 件 frm 只保存工 程文件 vbp 只保存标 准模块文 件 bas 分别保存 工程文件 窗体文 件和标准 模块文件 双击窗体 上的某个 控件 双击窗体 单击查看 代码按钮 单击窗体 或控件 12 ch abc1 23 整型 实型货币型布尔型 764f4f8dd413f505122ea515f0478763 xls Page 18 if语句中 可以没有 then保留 字 if语句中 可以没有 else保留 字 if语句中 只能有一 个elseif 分句 if语句都 可以由 iif语句 替代 Filename A A B A DPrint Text1 Te xt Text1 cl s Text cls AbCPOOO8TFxyz A B B A C A A B B C A C C B B A A A B 2 B A B 2 常量或变 量的名字 必须以字 母或汉字 开头 常量和变 量的长度 不能超过 255个字 符 VB中区 分常量或 变量名的 大小写 即x和X是 两个不同 的名字 不能使用 VB中的关 键字命名 常量或变 量 只有窗体 才是 Visual Basic 中 的对象 只有控件 才是 Visual Basic中 的对象 窗体和控 件都是 Visual Basic中 的对象 窗体和控 件都不是 Visual Basic中 的对象 FontName 宋体 FontSize 20 FontBold True FontItal ic False a 5b a b a 5 a Dim x y As single Dim x y Dim x y As single Dim x As single y As single Value SmallCha nge Min LargeCha nge Load Form2 Form2 Sh ow Form2 Se tFocus Form2 Po pupMenu Load Form2 Form2 Sh ow Unload Form2 Form2 hi de Load Form2 Form2 Sh ow Unload Form2 Form2 Hi de vbp frm frx bas vbp frm frx bas vbp frm frx bas 1248 工程文件 窗体文件 可执行文 件 资源文件 UnLoad Form2 UnLoad Form1 UnLoad Me End 1248 1248 8621 809085170 92285 Dim str As string Dim str As string 1 0 Dim str 10 Dim str 764f4f8dd413f505122ea515f0478763 xls Page 19 结构化程 序设计 集成可视 化程序开 发环境 事件驱动 编程机制 可将用户 的编程思 想自动转 换成程序 代码 DblClick MouseMov e CaptionChange 逆序结构 顺序结构 选择结构循环结构 Public Sub Sum x y Public Sub Sum ByVa l x ByVal y Public Sub Sum x As Integer y As Integer Public Sub Sum x y Public Function Sum x y Public Function Sum ByVa l x ByVal y Public Function Sum x As Integer y As Integer Public Function Sum x y 按钮单击 事件 用户自定 义函数 窗体单击 事件 窗体属性 命令按钮 的单击 命令按钮 的双击 窗体的单 击 窗体的双 击 命令按钮 的单击 命令按钮 的装载 窗体的装 载 窗体的单 击 单击 双击 拖拽 移动 单击 双击 装载按键 单击 双击 拖拽移动 Exit For Exit Whi le Exit DoExit 注释语句 用来对程 序或程序 中某些语 句做注释 使程序 便于理解 注释语句 是非执行 语句 注释语句 不能放在 执行语句 的后面 任何字符 都可以放 在注释行 中作为注 释内容 764f4f8dd413f505122ea515f0478763 xls Page 20 用属性窗 口只能设 置窗体的 属性 用属性窗 口只能设 置控件的 属性 用属性窗 口可以设 置窗体和 控件的属 性 用属性窗 口可以设 置任何对 象的属性 UnloadCls WindowSt ate Hide ConstDimPublicStatic Text CaptionNameValue 7654 23510 整型 字符型逻辑型 长整型 数值型字符型逻辑型日期型 1234 125100 PictureImageLabelFrame 代码属性窗体 立即 整型 变体型字符型单精度型 RGB 红色 值 黄色值 蓝色值 RGB 红色 值 绿色值 蓝色值 RGB 红色 值 黄色值 黑色值 RGB 红色 值 绿色值 黑色值 Move ResizeWidthHeight Print 计算机 Print 计算机 计算机 Output 计算机 End Function Exit Exit Function Exit Sub 5061566 当窗体变 为活动窗 口时 当程序启 动时 当鼠标在 窗体上移 动时 当鼠标单 击窗体时 此过程可 以被任何 其它过程 调用 此过程只 可以被本 窗体模块 中的其它 过程调用 此过程不 可以被任 何其它过 程调用 此过程是 一个不可 用过程 此过程不 可以被本 模块中的 过程调用 此过程只 可以被本 窗体模块 中的其它 过程调用 此过程不 可以被任 何其它过 程调用 此过程可 以被本工 程中的所 有模块调 用 RefreshGetFocus SetFocus Tab End Function Exit Exit Function Exit Sub bbbbaaaa空5 bbbbaaaa空5 bbbbaaaa空5 bbbbaaaa空5 LoadSubProperty Event FontName FontSize FontItal ic FontBold 764f4f8dd413f505122ea515f0478763 xls Page 21 FontName FontSize FontItal ic FontBold 序号题目AB 1 下列程序的输出结果是 P 0 For I 1 to 4 p p I Next I Print p 244 2 下列程序段的输出为 S 0 For I 1 to 10 I I 1 s s I Next I Print s 5566 3 下列程序段执行的结果为 Dim m 10 to 20 For I 10 to 20 m I 2 I Next I Print m 20 4020 4 下列程序段执行的结果为 Dim m 10 For I 0 to 10 m I 2 I Next I Print m 3 126 5 下列程序段执行的结果为 Dim m 10 For I 0 to 10 m I I I Next I Print m 5 mod 10 2510 6 下列程序段执行的结果为 Dim m 10 For I 1 to 10 m I 2 I Next I Print m 1 26 7 下列程序段执行的结果为 Dim m 10 For I 1 to 10 m I 2 I Next I Print m 3 06 8 下列程序段执行的结果为 Dim m 10 For I 9 to 10 For j 1 to 2 m I j Next j Next I Print m 9 m 10 1 11 2 9 下列程序段执行的结果为 Dim m 10 For I 0 to 10 m I 2 I Next I Print m m 3 126 10 下列程序段执行的结果为 Dim m 10 For I 9 to 10 For j 1 to 2 m I j Next j Next I Print m 9 m 10 1 1 1 2 11 下列程序段执行的结果为 Dim m 10 n 10 For j 0 to 10 m j j n j m j 10 Next j Print n 3 133 12 下列程序运行时 会产生 错误 Dim Stu 2 3 For I 1 To 4 For j 1 To 5 Stu I j I j Next j Next I 下标越界 大小写不匹 配 13 假定有以下程序段 For I 1 to 3 For j 5 to 1 step 1 Print I j Next j I 则语句Print I j的执行次数是 1516 14 下列For Next循环的循环体的执行次数为 For I 1 to 11 I I 1 Next I 111 15 下面程序运行时内层循环的循环总次数是 For m 1 to 3 For n 0 TO m 1 Next n Next m 65 16 已知一窗体中有如下函数过程和一命令按钮Command1 且Command1的Click事 件中只有一行命令 Print Max 1 2 3 则单击Command1时 输出结果为 Private Function Max a b c m a if b m then m b if c m then m c Max m End Function 12 17 已知一窗体中有如下函数过程和一命令按钮Command1 且Command1的Click事 件中只有一行命令 Print Min 10 20 30 则单击Command1时 输出结果为 Private Function Min a b c m a if b m then m b if c y then a y else a a y Print a 22 30 以下程序段的输出结果是 Score int rnd 5 80 Select Case score Case 60 to 69 a D Case 70 to 79 a C Case 80 to 89 a B Case else a A End select Print a AB 31 以下程序段的输出结果是 A 1 b 2 t 0 if a b then t a a b b t Print a b 1 11 2 32 以下程序段的输出结果是 N 13 a 2 m n mod 10 Select Case m Case is0 a 1 End select Print a 10 33 以下程序段的输出结果是 For k 1 to 3 if k 1 then a 3 if k 2 then a 2 if k y then a y else a a y Print a 22 36 以下程序段的输出结果是 While n4 x x y y y 1 loop Print x 14 38 以下程序段的输出结果是 A 0 For j 1 TO 15 a a j MOD 3 Next j Print a 015 39 以下程序段的输出结果是 A 23 while a 2a 46 a a 1 wend a a 23 Print a 2122 40 以下程序段的输出结果是 N 1 s 0 do s s n n n 1 loop until n 100 Print s 49495050 41 以下程序段的输出结果是 N 1 s 0 do s s n n n 1 loop while n 100 s s n n n 1 loop Print s 49495050 43 以下程序段的输出结果是 N 4 k 1 I 0 For I 1 to n k k I Next I Print I 23 44 以下程序段的输出结果是 N 4 k 1 I 0 For I 1 to n k k I Next I Print k 2122 45 以下程序段的输出结果是 Num 0 While num 2 num num 1 Print num Wend 1 2 31 1 1 46 以下程序段的输出结果是 Print 1 2 Print 3 1 2 31 2 3 47 以下程序段的输出结果是 Print 1 2 Print 3 1 2 31 2 3 48 以下程序段的输出结果是 Print 1 2 Print 3 1 2 3 1 2 3 49 以下程序段的输出结果是 Sum 0 For j 1 to 10 if j 10 then sum sum j endif Next j Print sum 055 50 以下程序段的输出结果是 X 0 n 0 Do While x 50 x x 2 x 3 n n 1 Loop Print n 12 51 以下程序段的输出结果是 X 0 n 0 Do While xn then max b if c n then max c Print n 01 53 以下程序段运行的结果为 Dim m 1 s s 0 For I 1 to 5 m I I s s m I Next I Print s 510 54 以下程序段运行的结果为 Dim m 10 For I 1 to 5 m I I I Next I Print m I 1 525 55 以下程序段运行的结果为 Dim m 10 For I 1 to 5 m I I I Next I Print m I 2 525 56 以下程序段运行的结果为 Dim m 10 s s 0 For I 1 to 5 m I I s s m I Next I Print s 510 57 执行如下程序段后 s的值为 Dim I j s As string I 2 j 3 s I sum 1 Do While day 1 下一行程序有错 sum sum 2 2 day day 1 Loop Print sum End Sub Private Sub Command1 Click Dim s As Single Dim n As Integer s 0 For n 1 To 50 下一行程序有错 s s n 2 n 1 Next n Print Round s 2 End Sub Private Sub Command1 Click Print fun 14339 507 End Sub Private Function fun u v m u For I m To 1 Step 1 If v Mod I 0 And u Mod I 0 Then 下一行程序有错 Fun 1 Exit For End If Next I End Function Private Sub Command1 Click Print fun 248 848 End Sub Private Function fun u v t u Do While t Mod u 0 Or t Mod v 0 t t u Loop 下一行程序有错 fun u End Function Private Sub Command1 Click 下一行程序有错 Dim s As Integer Dim x As Integer x 1 s 0 下一行程序有错 Do While x 130 s s x 3 x x 1 Loop Print s End Sub Private Sub Command1 Click Dim c As Integer Dim x As Integer For x 351 To 432 If x Mod 3 0 And x Mod 8 0 Then c c 1 End If 下一行程序有错 Next c Print c End Sub Private Sub Command1 Click Dim x As Integer Dim sum As Long x 1 sum 0 While x 200 下一行程序有错 If x 7 0 Then sum sum x 2 End If x x 1 Wend Print sum End Sub Private Sub Command1 Click Dim x As Integer 下一行程序有错 Dim sum As Integer x 1 sum 0 While x 200 If x Mod 7 0 Then sum sum x 2 End If x x 1 Wend Print sum End Sub Private Sub Command1 Click Dim s As Long Dim x As Integer s 0 For x 1 To 60 s s x 2 下一行程序有错 Next s Print s End Sub Private Sub Command1 Click Dim x As Integer 下一行程序有错 Dim sum As Integer x 1 Do While x 99 sum sum Sqr x x x 1 Loop Print Round sum 2 End Sub Private Sub Form Click Dim count As Integer Dim x As Integer For x 1 To 400 下一行程序有错 If Mod x 3 0 And Mod x 7 0 Then count count 1 End If Next x Print count End Sub Private Sub Command1 Click Dim count As Integer Dim x As Integer count 0 x 200 While x 400 If x Mod 3 0 And x Mod 7 0 Then count count 1 End If x x 1 下一行程序有错 Loop Private Sub Command1 Click sum1 sumd 100 Print sum1 End Sub Private Function sumd n As Integer As Single i 0 Do i i 1 s s 1 I 下一行程序有错 Loop Until I 2000 s s i 下一行程序有错 i i 1 Loop Print s End Sub Private Sub Command1 Click Dim i Dim s sum 1 Do While day 1 下一行程序有错 sum sum 2 2 day day 1 Loop Print sum End Sub Private Sub Command1 Click Dim s As Single Dim n As Integer s 0 For n 1 To 50 下一行程序有错 s s n 2 n 1 Next n Print Round s 2 End Sub Private Sub Command1 Click Print fun 14339 507 End Sub Private Function fun u v m u For I m To 1 Step 1 If v Mod I 0 And u Mod I 0 Then 下一行程序有错 Fun 1 Exit For End If Next I End Function Private Sub Command1 Click Print fun 248 848 End Sub Private Function fun u v t u Do While t Mod u 0 Or t Mod v 0 t t u Loop 下一行程序有错 fun u End Function Private Sub Command1 Click 下一行程序有错 Dim s As Integer Dim x As Integer x 1 s 0 下一行程序有错 Do While x 130 s s x 3 x x 1 Loop Print s End Sub Private Sub Command1 Click Dim c As Integer Dim x As Integer For x 351 To 432 If x Mod 3 0 And x Mod 8 0 Then c c 1 End If 下一行程序有错 Next c Print c End Sub Private Sub Command1 Click Dim x As Integer Dim sum As Long x 1 sum 0 While x 200 下一行程序有错 If x 7 0 Then sum sum x 2 End If x x 1 Wend Print sum End Sub Private Sub Command1 Click Dim x As Integer 下一行程序有错 Dim sum As Integer x 1 sum 0 While x 200 If x Mod 7 0 Then sum sum x 2 End If x x 1 Wend Print sum End Sub Private Sub Command1 Click Dim s As Long Dim x As Integer s 0 For x 1 To 60 s s x 2 下一行程序有错 Next s Print s End Sub Private Sub Command1 Click Dim x As Integer 下一行程序有错 Dim sum As Integer x 1 Do While x 99 sum sum Sqr x x x 1 Loop Print Round sum 2 End Sub Private Sub Form Click Dim count As Integer Dim x As Integer For x 1 To 400 下一行程序有错 If Mod x 3 0 And Mod x 7 0 Then count count 1 End If Next x Print count End Sub Private Sub Command1 Click Dim count As Integer Dim x As Integer count 0 x 200 While x 400 If x Mod 3 0 And x Mod 7 0 Then count count 1 End If x x 1 下一行程序有错 Loop Private Sub Command1 Click sum1 sumd 100 Print sum1 End Sub Private Function sumd n As Integer As Single i 0 Do i i 1 s s 1 I 下一行程序有错 Loop Until I 2000 s s i 下一行程序有错 i i 1 Loop Print s End Sub Private Sub Command1 Click Dim i Dim s sum 1 Do While day 1 下一行程序有错 sum sum 2 2 day day 1 Loop Print sum End Sub Private Sub Command1 Click Dim s As Single Dim n As Integer s 0 For n 1 To 50 下一行程序有错 s s n 2 n 1 Next n Print Round s 2 End Sub Private Sub Command1 Click Print fun 14339 507 End Sub Private Function fun u v m u For I m To 1 Step 1 If v Mod I 0 And u Mod I 0 Then 下一行程序有错 Fun 1 Exit For End If Next I End Function Private Sub Command1 Click Print fun 248 848 End Sub Private Function fun u v t u Do While t Mod u 0 Or t Mod v 0 t t u Loop 下一行程序有错 fun u End Function Private Sub Command1 Click 下一行程序有错 Dim s As Integer Dim x As Integer x 1 s 0 下一行程序有错