第一单元算法.pptVIP

第一单元 算法 10.3 1．下列问题不能用算法描述的是( ) A．求所有自然数之和 B．将四位十进制数转换为对应的二进制数 C．将100个实数按升序排列 D．求100个整数中的最大值和最小值 11．右图是VB控件工具箱的部分截图，其中“标签”控 件工具是( ) A．1 B．2 C．3 D．4 17．小强想设计一个判断某年是否是闰年的VB程序。通过查询资料得知：如果年份能被100整除同时也能被400整除，则该年是闰年；如果年份不能被100整除但能被4整除，则该年也是闰年。“判断某年是否为闰年”的算法流程图如下图所示(k=True表示该年是闰年，k=False表示该年不是闰年)。请回答下列问题： (1)流程图粗线框部分的内容是 (2)实现流程图虚线框部分的VB语句是 10.9 9、VB中，用于设置命令按钮标题的属性是（ ） A．TextB．CaptionC．NameD．BackColor 14、下列VB程序运行时，在文本框Text1中输入1234，单击命令按钮Command1后，文本框Text1中显示的内容是 。该程序使用了 结构（填：顺序 / 选择 / 循环）。 Private Sub Command1_click ( ) Dim n As Integer , x As Integer n = Val ( Text1．Text ) x = n Mod 10 n = x * 1000 + n \ 10 Text1．Text = Str ( n ) End Sub 17、小施想编写一个VB程序帮助弟弟练习最大公约数的计算，程序运行界面如下图所示。单击“生成题目”按钮Command1生成两个两位随机正整数，分别显示在左边的文本框Text1和中间的文本框Text2中。在右边的文本框Text3中输入结果并按回车键后，如果结果正确，将在该文本框右边的标签Label3中显示“√”，否则显示“×”。请在画线处填入合适的代码。 Dim r As Integer ‘用于存放最大公约数 Private Sub Command1_Click ( ) Dim i As Integer Dim m As Integer Dim n As Integer Randomize m = Int ( Rnd * 90) + 10 n = Int ( Rnd * 90) + 10 Text1．Text = Str ( m ) ： Text2．Text = Str ( n ) Text3．Text = ： Label3．Caption = If m n Then r = n Else r = m For i = r To 1 Step -1 If m Mod i = 0 n Mod i = 0 Then r = i Exit For End If Next i End Sub Private Sub Text3_KeyPress ( KeyAscii As Integer) If KeyAscii = 13 Then If r = Then Label3．Caption = √ Else Label3．Caption = × End If End Sub 11.3 1.下列是用VB编程解决问题时的三个步骤： ①在VB编程环境中设计界面，编写程序代码 ②分析问题，确定解决问题的算法 ③调试、运行程序 正确的顺序是 A．①②③ B．③②① C．①③② D．②①③ 10.一个VB工程的工程资源管理器视图如右图所示。小张准备将该工程编译为在Windows系统中可以直接运行的文件，在“文件”菜单中应选择的命令是 A. 保存工程（V） B. 工程另存为（E）… C. Form1.frm另存为（A）… D. 生成工程1.exe(K) … 13．下列VB程序中，f是一个递归函数， Private Sub Command1_Click() Dim y As Long Text1.Text=“” y=f(3) Label1.Caption=Str(y) End Sub Function f(n As In