vb程序阅读题.docVIP

四、阅读题? 【程序说明】1、写出下列程序运行时，分别输入数据14、3、115、21时，标签框中显示的内容。DPrivate?Sub?Form_Click()????Dim?b?As?Integer????a?=?Val(InputBox(请输入数据,?,?100))????Select?Case?a?Mod?5????????Case?Is? 4????????????w?=?a?+?10????????Case?Is? 2????????????w?=?a?*?2????????Case?Else????????????w?=?a?-?10????????End?Select????????Label1.Caption?=?w=??Str(w)End?Sub 2、程序运行时单击Command1后，输入123，写出窗体上的输出结果。A Private?Sub?Command1_Click()????Dim?x?As?Long,?y?As?String????x?=?InputBox(请输入数字,?)????Do?While?x??0????????y?=?y??x?Mod?10????????x?=?x?\?100????????Print?y????LoopEnd?Sub 3、请写出输入m为10、n为8时窗体中的输出结果。ADim?m?As?Integer,?nmin?As?Integer,n?As?Integer,?na?As?IntegerPrivate?Sub?Form_click()??m?=?InputBox(please?input?m)???n?=?InputBox(please?input?n)??For?i?=?m?To?1?Step?-1????If?n?Mod?i?=?0?And?m?Mod?i?=?0?Then?s?=?1?:?Exit?For??Next?i??If?s?=?1?Then?print?iEnd?Sub A、2 B、4 C、6 D、8 4、写出程序运行时单击窗体后，在窗体上出现的结果。D Private?Sub?Form_Click()Dim?I?As?Single,?x?As?Single,?y?As?SingleClsFor?I?=?0?To?2?*?3.1415927?Step?0.0001????x?=?2400?+?1000?*?Sin(I)????y?=?1600?+?1000?*?Cos(I)????Line?(2400,?1600)-(x,?y),?RGB(255,?0,?0)Next?IEnd?Sub A、转动一条长度为2400单位的红色直线，其轨迹形成一个圆 B、转动一条长度为1600单位的红色直线，其轨迹形成一个圆 C、转动一条长度为1500单位的红色直线，其轨迹形成一个圆 D、转动一条长度为1000单位的红色直线，其轨迹形成一个圆 5、【程序说明】写出下列程序运行时，单击窗体后输入x=3，n=2窗体上的显示结果。A Private?Function?s(n%,?x!)?As?Single????Dim?i%,?k%,?t#,?f#????f?=?0:?k?=?x:?t?=?1????For?i?=?2?To?2?*?n?Step?2????????t?=?t?*?i?*?(i?-?1)????????f?=?f?+?k?/?t????????k?=?k?*?x?*?x????Next?i????s?=?fEnd?Function????Private?Sub?Form_Click()????????Dim?n%,?x!????????x?=?InputBox(x=)????????n?=?InputBox(n=)????????Print?s=;?Fix(s(n,?x))????End?Sub A、s=2? B、s=3? C、s=3.625? D、s=3.6 6、写出程序运行时连续3次单击Command1后，a1.dat文件的最终结果。A Dim?a?As?Integer,?y?As?Integer,?x?As??IntegerPrivate?Sub?Command1_Click()??Open??a1.dat?For?Append?As?#1??x?=?1??i=5??Do?Until?xi????a?=?a?+?x:?x?=?x?+?5??Loop??y?=?y?+?a:?Print?#1,?y=;?y,?a=;?a??Close?#1End?SubPrivate?Sub?Form_