VisualBasic语言程序设计及实验教程周建丽第5章节循环结构程序设计.ppt

3．设m和n都是正整数，输入m,求当2n大于等于m时，n的最小值是多少？将下列程序补充完整。 Private Sub Command1_Click() Dim m As Long, t As Long, n As Integer m = Val(InputBox(输入大于1的正整数m:, 输入数据)) n = ⑴ t = 0 Do While True n = ⑵ t = ⑶ If t = m Then Print 2的; n; 次方≥; m Exit Do End If Loop End Sub 4．如果只允许在列表框中每次只能选择一个列表项，则必须将其MultiSelect属性设置为 。 5．用户可以通过 属性来输入或取得组合框中的数据。 6．在3种组合框中，仅供选择其中表项数据，但不允许添加数据的组合框是 。 7．在下拉组合框中添加表项，可以使用 方法；为组合框删除表项，可以使用 方法。 8．在窗体上已经建立了一个列表框List1和一个标签Label1，然后编写如下3个事件过程： Private Sub Form_Load() List1.AddItem ItemA List1.AddItem ItemB List1.RemoveItem 1 List1.AddItem ItemC List1.AddItem ItemD, 1 List1.RemoveItem 2 End Sub Private Sub Form_Click() Label1.Caption = List1.List(List1.ListCount - 1) End Sub Private Sub List1_DblClick() Label1.Caption = List1.Text End Sub 运行程序后，开始时在列表框中显示的表项内容是 及 。单击窗体，则在标签中显示 。当双击列框中的列表项“ItemA”时，则在标签中显示 。 9．从字符串中查找子字符串“123”，将该子字符串删除，但“1234”子字符串保留，如将“AB123C1234DE123F”处理成“ABC1234EF”。完成下列程序代码。 Private Sub Form_Load() x = InputBox(输入字符串) p = InStr(x, 123) Do While p 0 If Mid(x, p + 3, 1) 4 Then x = Left(x, p - 1) + Else p = p + End If p = InStr( , x, 123) Loop MsgBox (处理结果： + x) Unload Me End Sub 上机编程练习5 1．求级数S=1/(1+4)+1/(1+2×4)+1/(1+3×4)+…+1/(1+n×4)+…的前100项之和。 2．如果一个三位整数等于它的各位数的立方和，则此数称为“水仙花数”，如153=13+53+33。编写程序求所有的水仙花数。 分析：所谓的“素数”是指一个自然数除了1和该数本身，不能被任何其它整数整除。判断一个自然数n(n=3)是否为素数，只要依次用2～Sqr(n)整数作为除数去除n，若n不能被其中任何一个数整除，则n为素数，否则便不是素数。 n不是素数 输入n 开始 i=sqr(n) n是素数 结 束 真 假 i=i+1 n mod i0 i=2 假 isqr(n) 真 真 假 例：编写程序，实现单击窗体后，在窗体上输出的图形如图所示。 5.3 多重循环 多重循环的执行过程是：外层循环每执行一次，内层循环就要从头开始执行一轮。 例：编写程序，计算级数1+1/3!+1/5!+1/(2N+1)!的值,直到最后一个级数项的值小于10-6为止。 例：编写程序，实现单击窗体后，在窗体上输出的图形如图所示。 例: 计算1!+2!+3!+…+n!（上机操作） 例：编写程序，实现单击窗体后，在窗体上输出的图形如图所示。（上机操作） 例: 计算1!+2!+3!+…+n!（上机操作） 例： 求下述数列前n项之和。 算法：数列的第1项为2，根据所给出