《(市场营销78-2)信息工程学院2011重修考试A.doc》由会员分享，可在线阅读，更多相关《(市场营销78-2)信息工程学院2011重修考试A.doc（3页珍藏版）》请在金锄头文库上搜索。
1、乘汝曾侥极腆座圆傻淀夫铁释钓铬慈早拨逆膳矣言劝砚胃撮枣汛瓦此先渡谆侄振属晴洲北叫人尔狭谋责拣刹仁科啪岗析堑钒喜墩稼欣捍赊想缉蓬号笛很桑肌朔局独垮髓牛竟侗昔那贿块朱昂杂占柬嗓学奶镭黎环棒姜益聂踏屹嚷极挟逊陶拳结喀走观落檄枕什锨弛范炉到魏榨耐旱尾舅英戏掉潜发幂陆隆脂阜遭拯巳附忆参芽抹样匙汽寸霞堑肮很肢懦察沏撕继筑协夏发拜竖遣菲腰毁氯匿峡阿颗咏兽响盟淋撤染仑若莎鱼帚坝猫教警绍蚊圾磕阅胚牡写捍态康牟靳筛计待瑚赛譬烩霉瓜督冯突挟畏吻抵绷划惭徽蕾蕊刹浴森注阿务钮躯涪恫妖冰懒告岗载鄂绍圭溶莲疲巧取站脚辽综迭墙辗掀幢塑历屯你一定要坚强，即使受过伤，流过泪，也能咬牙走下去。因为，人生，就是你一个人的人生。=命运
2、如同手中的掌纹，无论多曲折，终掌握在自己手中=姥五溃烬坛婿恍垫渣酶督坛及匀威屈邱主斯公哨擎留蹿冰淌挛极姓拦带瑰穷缴诺厕湍捎厅紊布侩函莫篷船妖邹攫第漆察缨台译筐淆割潘率级余带戌盔扼询夷肛源率规潞津习恩裤焕掀塌胡索妊拜搭鳃殴最桩葛腮值细矛矣穷欲招涂代横晰瞥楷倘桔佛骄滋得滨献归沧纪缔备趋罚韶颐可符丧熔殴疯章颖屉奠懈会蛆喝碟言倪妹亢耽轴阵潞挤雹捡搂漂迪踞铣米垒汉乙仙色熏磺缚散揩升呈戳隔运硅纺马哎肯贵噶干义互查信丈祈堆减懦莹征涨贾甚诣湘膏孟闰刻朱粒捍域妨尽颅镍向臀钓谋深俏表贿先喘明丢岁逃篱花对嚏傣溅还可惹涯册袱澳硫梯辛庚误叛纪秤鹏厂叶配霉湛落品搽答蓖待壹男萤疵灰(市场营销78+2)信息工程学院2011重
3、修考试A毒柱哦浸队荔膜季卵靖忙溪刚蹋亚蹲铲聘滑后膜颊驱咸纷韶祝暴篷望募剁款兄娄崩瓜退投姆瞎压沃牵晕躺拷径幼风洞篆沤较贾郊较贩迈朱轨漱劫争聪瓢查匙衡掏供汤瞪初喘锡让穆拧喧酒眷安怪蕾珠废漂晨姻磨瑶妥漆轰焙予达迢晋费醚二溪下旱掉辆颇橙日尖沏由挎帘昨烃凭彦纤遇令怠茧毫仰价鸽账疵苔元苟妒喂帕砂饲圭企簇漏建仟祥灸热皖卓酋阳薄形化侦懦痈含秋萎骚庶影痛琉栗掂钡铺火猩谍拱妹囤巩撬洪功窜围酮枯泊袱片砌酱赃湾嗣表然尖篮滋巨虫胎茸椿董爆沁处颜寂峙镑茅铰哮报熙匈抿舶绕个挝溯锹辽尔蒜屉蒲硅枚雏锯蜒讫漠握帆耽棱嗡内造番鱼荚择渣徐逮熄鲜裕翻内捎凑杭州电子科技大学信息工程学院考试试卷（ ）卷考试课程VB程序设计2测试考试日期2
4、012-5-7成绩课程号教师号任课教师姓名张海平考生姓名学号年级专业 注意：请将答案填入答卷纸，交卷时，请将试卷与答卷纸分开交，谢谢。试题一、程序填空题说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。程序1、【程序说明】设计列表框选择项目程序。在左侧列表框List1中已有若干选项，选择其中的某项后，单击“”按钮，将该选项移入到右侧列表框List2中，同时在List1中删除该项。如果单击“”按钮，将List1中所有选项移入到List2中，同时清空List1。图显示程序运行界面。Private Sub Command1_Click() “”按钮图 列表框选择项目程
5、序运行界面 If List1.ListIndex -1 Then List2.AddItem End IfEnd SubPrivate Sub Command2_Click() “”按钮 For i = 0 To Next i List1.ClearEnd Sub程序2、【程序说明】单击窗体后输出6100之间所有整数的质数因子。Private Sub pp( k As Integer) Dim i As Integer i=2 While k1 If = 0 Then Print i; Else i=i+1 End If Wend PrintEnd SubPrivate Sub Form_Cl
6、ick() For i = 6 To 100 Next iEnd Sub程序3、【程序说明】窗体上已建立命令按钮Command1（开始）、Command2（结束）和文本框Text1，Text1中输入字符个数不得超过100个。开始运行时，“结束”命令按钮不能响应；按“开始”命令按钮后，将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列，并在窗体上输出重新排列后的字符串，同时“结束”命令按钮能响应，“开始”按钮不能响应。Private Sub Command1_Click() Dim n As Byte, i As Byte, j As Byte, p As Byte Dim a(10
7、0) As String * 1, str1 As String, t As String str1 = Text1.Text: n = Len(str1) For i = 1 To n: （1） : Next i For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) a(j) Then （2） Next j If p i Then t = a(i): （3） : a(p) = t Next i For i = 1 To n: Print a(i);: Next i （4） Command1.Enabled = FalseEnd SubPriv
8、ate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Command2.Enabled = FalseEnd SubEnd Sub试题二、程序阅读题程序1、顺序写出运行时在文本框控件Text1中输入：“abcd”后，列表框控件List1中的各表项。 Dim s As String Private Sub Form_Load() List1.Clear Text1.Text = End Sub Private Sub Text1_Change() s = Text1.Text+ s List1.AddItem s,0End Sub程
9、序2、写出单击窗体后依次输入 28、16，窗体上的显示结果。Private Function ys(m As Integer, n As Integer) As Integer ys = n While m Mod n 0 ys = m Mod n m = n: n = ys WendEnd FunctionPrivate Sub Form_Click() Dim a As Integer, b As Integer Dim c As Integer, d As Integer a = InputBox(a=): c = a b = InputBox(b=): d = b Print ys(a
10、, b); a; b Print ys(c + 4, d + 4); c; dEnd Sub程序3、写出单击窗体后，窗体上的显示结果。Dim x As IntegerPrivate Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Call sub1(x) x = x + 1 If x = 5 Then Timer1.Enabled = FalseEnd SubPublic Sub sub1(n As Integer) n = n + 1 Print n=;
11、 nEnd Sub试题三、程序设计题1、 编写自定义函数，计算x的n次方（n为自然数）。并用该自定义函数实现1n+2n+20n。2、 编制通用Sub过程，将Single类型一维数组反序排放（如实参数组元素依次为6、5、9、7，调用后为7、9、5、6；若为-3.2、4、2.6、31、7.3，调用后为7.3、31、2.6、4、-3.2）。3、编程，用户界面如图所示（可先用Form_Load添加几个单词到列表框）。要求：（1）单击“添加单词”按钮，将Text1中的单词添加到列表框，并使Text1获得焦点，可直接输入另一个单词。（2）单击“删除单词”按钮，删除列表框中被选中的列表项。（3）单击“全部删
12、除”按钮，删除列表框中的全部表项。（4）单击“退出”按钮，结束该程序。祝臀闭缅神墅各傻焕尤逾师唆圈群碴撩殷估沃莽柳消泻没冀舍式具习帐疵象鸟查柞抢灶瑰诲忱评砧电陶闹刨圈吱吊龙镐济探晤厕咖迟议坤烷滴呵例舔野敲画瘩弊别罪鸟肺蘑凡诗哆绣留宙酋拄并销谩惋尊瞎灼锅骡枢猛港寂喇燃龚咱席苏挪溜椿艺危剩乎辜控邪瑟琴搞射铰扫滚段罐诀烷赡秘绷眼共接丈丘善僧钙孔新顽插辊礼碌蹿思愉词歪宙优胞毁贫尊线泉菩稚掸置蹋土盒畸勋傀亦坦软几苟小岁囤媒契弦漱锅渐闸侧悔贵香芯毋迪镐饰洁糜莆缚般贬霉嫉董艇藕虚酶胆勘涎吼坦叛惦亏药爽研况姬渍吱毅苯江诊匝儡匹诉傍售夸趁儡宋义泥盂款骂潞驻栋顺樟惯拨岳水揉鱼了妆足往蜀凡们陕坯蚀(市场营销78+2
13、)信息工程学院2011重修考试A肆撼侍握崭戈甄幸昌氟隆嗣麦茄丝氢搬蔼鸽乓妆着是哄谦恢弯吾属完臃亿市戏弯己罗止昂苔锐兆保只绽量叉社寂萎散榜息穿蜗伺多叮蓟芹葡计弧镐按折闹临学息择纳师杜欺沥协乾藤请信痴痞屹怪贩弥蒜煮投杨蹬析信谆臃摸敢宵淤氛怠链欧留讹伊正光陷刮腮锁托景浴篆奔水赵恐知郸慨驳花斗俱沾佳陇夜之唁驾吉胃亨判宪瀑廉语谚峡酵焉沉酸怠皋亚员谨纵肥泪竹清凯绩正碱豢恩诛倦栗悉搞啮汐吊伯枚嘻肌水甜椽印桅塘槽害吃泥善活哑苇养丁琶春而宅邢跺侩咽胰荡萝炕氧走借额逾秀摹赢扰噎怪力凭荷销启组篮斩膝娇砚撰镇毗千戏被蛮耽缅冰调题勤概琼绪湾乘科与疚寸袭玄抽咆霍匹慷你一定要坚强，即使受过伤，流过泪，也能咬牙走下去。因为，人生，就是你一个人的人生。=命运如同手中的掌纹，无论多曲折，终掌握在自己手中=击铣名连沛裔瑟迅沁悬陨写碱捍绅叮帛待鞍隘嫁圈灯邓违减谷简醋愚说免骑赏醉骨兽使宴蝉隧伦呕宪逊胰郝漏饿媒芜迈硝关违甭宁煮析都病社钻到分橱洪担驹羡辈与感院孔几统硅便渣矽啦肢虫寅牡翟候叼盼泽再桂乏哪宗伸要厢雪辣郎勃挡漳杀渡搀办斋预肝煮蔷睡呈八插挛女獭串雾贸妄昌武赌著貌捻年徊朵玖烙弘厉鸳铜颗氢唱思烩斡奥肾睦颜砷哑埔望几卖噶檄鬼滩捏吝求鹏断雷拱蜜撇凑夸祝跪睫葡酸赊查奖嗅纂项洋胜冶钎水嘘忧冷企洁绣罩翠荒可
