《上海海事大学VB题库—程序填空.doc》由会员分享，可在线阅读，更多相关《上海海事大学VB题库—程序填空.doc（157页珍藏版）》请在三一文库上搜索。
1、衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅
2、蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃
3、蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃
4、蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄
5、薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节
6、蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃
7、蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃
8、虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁
9、螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂
10、螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂
11、螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀
12、衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁
13、蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁
14、薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿
15、薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀
16、薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁
17、蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀螄芆蒇蚂羀膂蒆螅螂肈蒅蒄羈羄薄薇螁节薃虿羆膈薂螁蝿肄薁薁羄肀薁蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇膄蚀袄羃芄螂聿节芃蒂袂芈节蚄肈膄芁螆羀肀芀衿螃莈艿薈罿芄芈蚁螁膀莈螃羇肆莇蒃螀羂莆薅羅莁莅螇螈芇莄衿肄膃莃蕿袆聿莃蚁肂羅莂螄袅芃蒁蒃 程序填空第1题程序填空(1分)(题号:59)功能：输入一个数,若大于0,则显示+；若小于0，则显示 -；若等于0,则显示零。Private Sub Command1_Click(
18、)x = Val(Text1.Text)Select Case x*SPACE* 【?】 Label1.Caption = + Case Is 0 2). Label1.Caption = - 3). Case 0 或 Case Else 或 Case Is = 0第2题程序填空(1分)(题号:60)功能：输入任何一个英文字母x, 若x的值为a,c,d-f ,则显示x的大写字母； 若x的值为m,o,p-z,则显示x的小写字母； 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。Private Sub Command1_Click()x = Text1.Text*SPACE* 【
19、?】*SPACE* Case 【?】 Label1.Caption = UCase(x) Case m, o, p To z Label1.Caption = LCase(x) Case Else*SPACE* 【?】 End SelectEnd Sub答案： 1). Select Case x 2). a, c, d To f 3). Label1.Caption = Trim(x) + a 或 Label1.Caption = x + a第5题程序填空(1分)(题号:49)功能：以下程序段用于求n!Private Sub Form_Click() Dim sum As Integer, n
20、 As Integer n = InputBox(请输入一个正整数) sum = 0 For i = 1 To n*SPACE* sum =【?】 Next i Print sumEnd SubPrivate Function mul(ByVal x As Integer) Dim s As Integer, i As Integer s = 1*SPACE* For i = 1 To 【?】 s = s * i Next i*SPACE* 【?】End Function答案： 1). Sum + mul(i) 2). x 3). mul = s第6题程序填空(1分)(题号:61)功能：根据输
21、入的学习成绩,分别显示优秀(90分以上), 良好 (75分以上),及格(60分以上),不及格几个等级。Private Sub Command1_Click()x = Val(Text1.Text)If x = 90 Then Label1.Caption = 优秀*SPACE*ElseIf 【?】Then Label1.Caption = 良好ElseIf x = 60 Then*SPACE* 【?】*SPACE*【?】 Label1.Caption = 不及格End IfEnd Sub答案： 1). x = 75 或 75 = 90 n1 = n1 + 1 Case Is = 80 n2 =
22、 n2 + 1 Case Is = 70 n3 = n3 + 1 Case Is = 60 n4 = n4 + 1 Case Else n5 = n5 + 1*SPACE* 【?】score = Val(InputBox(msg, msgtitle)WendPrint n1, n2, n3, n4, n5,totalEnd Sub答案： 1). score =0 And score = 100 或 0=score And score = 100 或 0=score 或 score =0 And 100=score 2). score 3). End Select第9题程序填空(1分)(题号:5
23、6)功能：输入数字1-7,显示其对应是星期几(例:输入 1,显示星期日,如果输入其它内容，一律显示输入错误)Private Sub Command1_Click()dim x as integerdim y as stringx=val(text1.text)*SPACE* 【?】 case 1 y=今天是星期日 case 2 y=星期一 case 3 y=星期二 case 4 y= 星期三 case 5 y=星期四 case 6*SPACE* 【?】 case 7 y= 星期六*SPACE* 【?】 y = 输入错误 end selectText2.Text = yEnd Sub答案： 1)
24、. select case x 2). y=星期五 3). Case Else第10题程序填空(1分)(题号:41)下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。Private Sub Form_Click()Print 5个数34、124、68、73、352的最大值是：max1 = max(34, 124, 68)*SPACE*max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)*SPACE*If 【?】 Then m = aElse m = bEnd If*SPACE*
25、If 【?】 Then max = mElse max = cEnd IfEnd Function答案： 1). max(max1, 73, 352) 2). ab 或 b c 或 c a(j + 1) Then x = a(j) a(j) = a(j + 1) a(j + 1) = x*SPACE* 【?】 End If Next j*SPACE* If work Then 【?】Next iFor i = 1 To n Print a(i);Next iEnd Sub答案： 1). Step -1 2). work = False 或 work=0 或 not work = true 3)
26、. Exit For第12题程序填空(1分)(题号:37)功能：以下程序用于判断一个正整数（3）是否为素数。Private Sub Form_Click()n = InputBox(请输入一个正整数（3）)k = Int(Sqr(n)i = 2swit = 0*SPACE*Do While i = k And 【?】*SPACE*If 【?】 Then swit = 1Else*SPACE* 【?】End IfLoopIf swit = 0 Then Print n; 是一个素数Else Print n; 不是素数End IfEnd Sub答案： 1). swit = 0 2). n Mod
27、i = 0 或 n/i = ni 或 n/i = int(n/i) 3). i = i + 1第13题程序填空(1分)(题号:55)-【程序填空】-功能：过程suixian可以判断某一个数字是否是水仙花数，利用 该过程找出三位数中所有水仙花数。 所谓水仙花数是指一个3位数，其各位数字立方和等于 该数本身。 -Private Sub Form_Click()Dim i As IntegerFor i = 100 To 999*SPACE* 【?】Next iEnd SubPublic Sub suixian(x As Integer)Dim i%, j%, k%*SPACE*i =【?】j =
28、(x - i * 100) 10k = x - i * 100 - j * 10*SPACE*If 【?】 Then Print xEnd Sub答案： 1). suixian (i) 或 call suixian (i) 或 suixian i 2). x 100 或 int(x/100) 3). x = i 3 + j 3 + k 3 或 x = i*i*i + j*j*j + k *k*k第14题程序填空(1分)(题号:50)-【程序填空】-功能：从键盘上输入一串字符，以?结束，统计输入字符中的 大、小写字母和数字的个数。-Private Sub Form_Click()Dim ch$,
29、 n1%, n2%, n3%n1 = 0n2 = 0n3 = 0ch = InputBox(请输入一个字符)*SPACE*Do While 【?】 Select Case ch Case a To z n1 = n1 + 1*SPACE* Case 【?】 n2 = n2 + 1 Case 0 To 9 n3 = n3 + 1 End Selectch = InputBox(请输入一个字符)*SPACE*【?】Print n1, n2, n3End Sub答案： 1). ch ? 或 not ch = ? 或 not ?=ch 2). A To Z 3). Loop第15题程序填空(1分)(题
30、号:54)-【程序填空】-功能：本程序用于实现：从键盘接收一数字，判断其是否在数组 中，如果在数组中则将其删除，否则显示该数字不在数组 中。-Private Sub Form_Click()Dim a(10) As Integer, x As IntegerFor i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i);Next iPrintx = InputBox(请输入要删除的整数)For i = 1 To 10*SPACE* If a(i) = x Then 【?】Next i*SPACE*If 【?】 Then For k = i To 9*S
31、PACE* 【?】 Next k Print 删除后的数组: For i = 1 To 9 Print a(i); Next iElse Print 该数字不在数组中End IfEnd Sub答案： 1). Exit For 2). ii 3). a(k) = a( k + 1)第16题程序填空(1分)(题号:48)-【程序填空】-功能：利用下面的过程求m!和m*n-Private Sub Form_Click()Dim m As Integer, n As Integer m = 2 n = 3*SPACE* 【?】End SubPrivate Sub find(x As Integer,
32、y As Integer) Dim s, i As Integer*SPACE* 【?】 For i = 1 To x s = s * i*SPACE* p=【?】 Next i Print s, pEnd Sub答案： 1). find m, n 或 call find(m,n) 2). s = 1 或 s = 1:p=0 3). p+y 或 x*y第17题程序填空(1分)(题号:58)-【程序填空】-功能：求A,B,C三个数的最大值。-Private Sub Command1_Click()A = Val(Text1.Text)*SPACE*【?】C = Val(Text3.Text)If
33、 A B And A C Then MAXDATE = A*SPACE*ElseIf 【?】 Then MAXDATE = BElse*SPACE* 【?】End IfLabel1.Caption = MAXDATE & 是最大值End Sub答案： 1). B = Val(Text2.Text) 或 b=val(text2) 2). B C 或 C C and ba 或 cb and ab 3). MAXDATE = C第18题程序填空(1分)(题号:42)-【程序填空】-功能：以下程序段利用随机函数生成15个10-100之间的整数， 然后用选择法将其从小到大排序。-Private Sub Form_Click()Const n = 15Dim a(1 To n) As IntegerDim