VisualBasic6(计算机实验).doc

上传人:wux****ua 文档编号:8741183 上传时间:2020-03-31 格式:DOC 页数:21 大小:89.50KB
返回 下载 相关 举报
VisualBasic6(计算机实验).doc_第1页
第1页 / 共21页
VisualBasic6(计算机实验).doc_第2页
第2页 / 共21页
VisualBasic6(计算机实验).doc_第3页
第3页 / 共21页
点击查看更多>>
资源描述
袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃薀袂羃蒁蕿蚂芈莇薈螄肁芃薇袆芇腿薆羈聿蒈薆蚈袂莄蚅螀肈芀蚄袃袀膆蚃薂肆肂蚂螅衿蒁蚁袇膄莇蚀罿羇芃蚀虿膃腿虿螁羅蒇螈袄膁莃螇羆羄艿螆蚆腿芅莃袈羂膁莂羀芇蒀莁蚀肀莆莀螂芆节荿袄肈膈蒈羇袁蒆蒇蚆肇莂蒇蝿袀莈蒆羁肅芄蒅蚁羈膀蒄螃膃葿蒃袅羆莅蒂羈膂芁薁蚇羄膇薁螀膀肃膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄螂羄芈薇薄袀芇芆螀螆芆荿薃肅莅蒁螈羀莄薃薁袆莃芃螆螂羀蒅蕿螈罿薈袅肇羈芇蚈羃羇荿袃衿羇蒂蚆螅羆薄葿肄肅芄蚄羀肄莆蒇袆肃薈蚂袂肂芈薅螈肁莀螁肆肁蒃薄羂肀薅蝿袈聿芅薂螄膈莇螇蚀膇葿薀罿膆腿螆羅膅莁蚈袁膅蒃袄螇膄薆蚇肅膃芅蒀羁膂莈蚅袇芁蒀蒈螃芀膀蚃虿艿莂蒆肈艿蒄 Visual Basic 6(计算机实验) 第一章 Visual Basic 6.0基础实验一、VB的启动目的1、 掌握启动VB的方法2、 了解VB的集成开发界面一、启动VB,但不创建任何工程提示:1、启动VB的办法:“开始”>“程序”>“Microsoft Visual Basic 6.0 中文版”>“Microsoft Visual Basic 6.0 中文版”2、在启动时显示的“新建工程”对话框中单击“取消”就可以实现“不创建任何工程”二、启动VB,创建一个“标准 EXE”的工程提示1、启动VB的办法同上题2、创建“标准 EXE”工程的方法:在启动时显示的“新建工程”对话框中选择“新建”,然后选择“标准 EXE”,最后单击“打开”实验二、VB的集成开发环境目的1、 了解VB集成开发环境的各部分组成2、 掌握集成开发环境中各部分的作用3、 掌握显示集成开发环境中各部分的方法一、如果没有启动VB则启动它,然后创建一个“标准 EXE”工程1、在集成开发环境中分别寻找“窗体窗口”、“属性窗口”、”工程资源管理器”、“窗体布局窗口”、“工具箱窗口”,熟悉它们的默认位置2、在“视图”中分别选择“代码窗口”和“立即窗口”,观察刚刚显示出来的“代码窗口”和“立即窗口”3、尝试分别将各部分关闭,然后分别用“视图”菜单中对应的菜单命令将其显示提示:VB启动后默认的并不显示“代码窗口”和“立即窗口”,需要利用“视图”菜单中对应的命令来显示它们二、利用“工具箱”向当前“窗体”中添加一个“命令按钮”(CommandButton),然后试做下面的练习1、分别选择“Form1”和“Command1”,观察“属性窗口”的变化2、选择“Form1”,在“属性窗口”中找到“Caption”属性,将该属性的值改为“我的第一个VB窗体”,观察窗体标题栏的变化3、选择“Command1”,在“属性窗口”中找到“Caption”属性,将该属性的值改为“命令按钮”,观察窗体上“Command1”的变化提示1、“窗体窗口”是用于设计应用程序的界面(窗体)的,“工具箱”中有设计界面所需的各种控件,需要使用时只需双击相应的控件就可以在窗体上添加该控件2、“属性窗口”用于显示和设置当前对象的属性的,当选择不同的对象时,“属性窗口”中列出属性也有所不同3、设置对象的属性的方法是:选择对象>在属性窗口中找到需要设置的属性名称>在属性名称右边输入属性值三、双击窗体上的“命令按钮”,然后试做下面的练习1、在出现的“代码窗口”的当前位置输入如下代码(注意空格和英文双引号“""”): Debug.Print "学习Visual Basic是一件简单而有趣的事!"2、单击“工具栏”中的“启动”按钮,观察窗体启动时在屏幕中的位置,然后在刚刚启动的窗体中单击“命令按钮”,观察“立即窗口”的变化,最后关闭该窗体返回集成开发环境3、在“窗体布局”窗口中选择“Form1”并拖动鼠标,移动该窗体到合适的位置,然后启动这个窗体,观察窗体位置的变化提示1、“代码窗口”的作用是编写程序的代码,VB的代码窗口有非常强大的自动完成功能,在提示列表中用光标键选择需要的语句后,按“Tab”键就可以在当前位置显示该语句2、“立即窗口”的作用是显示程序运行时的信息,通常使用“Debug.Print "输出信息"”来显示信息3、“窗体布局窗口”的作用是显示和调整应用程序在运行时窗体在屏幕中的位置四、在“工程资源管理器”中单击鼠标右键,选择“添加”>“添加窗体”>“窗体”>“打开”,然后试做下面的练习1、在“工程资源管理器”中选择“Form1”,然后单击“查看对象”,观察屏幕的变化,同理,单击“查看代码”、选择“Form2”、单击“查看对象”、单击“查看代码”,观察屏幕的变化2、在“观察资源管理器”中双击“Form1”,观察屏幕的变化,双击“Form2”,观察屏幕的变化提示1、“工程资源管理器”的作用是集中管理工程中使用的各种资源(文件)2、在“工程资源管理器”中选择一个模块后,单击“查看代码”可以显示该模块的所有代码,单击“查看对象”可以显示该模块的窗体3、在“工程资源管理器”中双击一个模块可以显示该模块实验三、对象的建立和编辑目的:1、了解对象的概念,了解VB是由对象组成的2、掌握建立对象的方法、掌握选定对象的方法、掌握删除对象的方法一、新建一个“标准 EXE ”工程,在窗体上添加一个命令按钮,使该命令按钮的形状接近正方形,位置在窗体的右下角提示:1、建立对象的方法有两个,一是直接在工具箱中某个控件上双击,二是在工具箱中选择某控件,然后用鼠标在窗体中拖动建立对象2、选定单个对象的方法是直接在要选择的对象上单击,选定连续的多个对象的方法是利用鼠标拖动的矩形框包围要选定的对象,选定不连续的多个控件的方法是先选择其中的一个,然后按住<Ctrl>键,逐个在其它需选定的对象上单击3、选定一个对象后,可以提供拖动鼠标的方法改变其位置;拖动其周围的八个控制点可以改变其大小4、删除对象的方法是首先选择要删除的对象,然后按<Delete>键实验四、对象的属性和事件目的:1、了解对象属性和事件的概念和作用,了解事件过程、事件驱动的意义2、掌握设置对象属性的两种方法,掌握响应事件的方法一、修改上面的工程,将命令按钮的标题为“执行”提示:1、在设计期间修改属性可以通过“属性窗口”来实现2、“标题”属性就是Caption二、修改上面的工程,响应“执行”按钮的单击事件,将窗体的标题改为“我的VB程序” 提示:1、由于单击事件发生在“执行”身上,因此事件发生对象为“执行”,发生的事件为单击,即Click事件2、响应该事件的方法是在该事件过程中添加适当的代码,具体做法是在“执行”按钮上双击,在出现的“代码”窗口的过程列表中选择“Click”3、在运行期间修改属性的语法为:对象名.属性名=属性值,参考代码:Form1.Caption="我的VB程序"实验五、对象的方法一、修改上面的工程,为命令按钮的单击增加一个功能:在窗体上打印(Print方法)“学习VB是一件简单而有趣的事情!”提示:1、为命令按钮增加一个功能就是在它的事件过程中增加一条语句2、Print方法的语法是:Print "输出字符串",参考代码:Print "学习VB是一件简单而有趣的事情!"实验六、简单的应用程序一、模仿下图设计一个简单的程序 程序要求如下:1、在上面的文本框中输入字符,转换成大写后显示在下面的文本框中2、单击“清屏”可以清除两个文本框的文字3、单击“结束”可以结束应用程序提示:1、建立一个应用程序的步骤(1)建立用户界面的对象(2)对象属性的设置(3)对象事件过程及编程(4)保存和运行程序2、窗体中有两个标签(Label)、两个文本框(TextBox)、两个命令按钮(CommandButton)3、窗体、标签和命令按钮的标题属性是Caption属性,文本框的文本属性是Text属性,需按照要求设置4、功能一要求在上面的文本框中输入字符后立即转换,因此需响应它的“KeyPress”事件,参考代码:Dim a As String * 1a = Chr( KeyAscii )a = UCase( a )Text2.Text = Text2.Text + a5、按照功能二的要求,需响应命令按钮“清屏”的单击(Click)事件,参考代码: Text1.Text = ""Text2.Text = ""6、按功能三的要求,需响应“结束”按钮的单击(Click)事件,参考代码:End实验七、标签一、新建一个工程,在窗体上添加一个标签和五个命令按钮(大小和排列可参考下图),要求如下:1、命令按钮的标题如图所示2、窗体的背景色为“工具提示”,Label1是一个有边框的标签,背景是不透明的3、单击“标签的标题”按钮可以将标签的标题改为“标签通常用于显示文本”4、单击“透明”按钮可以将标签的背景样式改为透明5、单击“右对齐”按钮可以将标签上的文字的对齐方式改为右对齐6、单击“居中对齐”按钮可以将标签上的文字的对齐方式改为居中对齐提示:1、控件的位置和大小可以参考下图: 2、窗体的背景色属性为“BackColor”3、标签的背景样式属性为“BackStyle”,其值为0时表示“不透明”,其值为1时表示“透明”4、标签的边框样式属性为“BorderStyle”,其值为0时表示“无边框”,其值为1是表示“有边框”5、标签的对齐属性为“Alignment”,其值为0时表示“左对齐”,其值为1时表示“右对齐”,其值为2时表示“居中对齐”实验八、文本框一、新建一个工程,在窗体上添加两个文本框,其位置和大小可参考下图,要求如下:1、两个文本框都可以显示多行文本,都能同时显示水平滚动条和垂直滚动条2、Text1中的文本不能被用户修改,而Text2的可以3、当用户在Text2中输入文本时,该文本同时可以显示在Text1中提示:1、控件的位置和大小可参考下图: 2、决定文本框是否可以显示多行文本的属性为“MultiLine”,其值为True时表示多行,其值为False时表示单行3、滚动条属性为“ScrollBars”,其值为0时表示没有滚动条,其值为1时表示具有“水平滚动条”,其值为2时表示具有“垂直滚动条”,其值为3时表示同时具有两种滚动条4、决定文本框中的文本是否能被用户修改的属性为“Locked”,其值为True时表示不能修改,其值为False时表示可以修改5、当用户在文本框中输入或修改文本时,将触发“Change”事件,文本框的“Text”属性返回文本框中文本的内容。要实现”当用户在Text2中输入文本时,该文本同时可以显示在Text1中”这样的要求,可以响应Text2的“Change”事件,设置Text1的Text属性等于Text2的Text属性,即:Text1.Text=Text2.Text实验九、命令按钮一、新建一个工程,如下图所示,在窗体上添加三个命令按钮,要求如下1、Command1的标题为“更改Command2标题”,提示文本为“单击更改Command2标题”2、Command2的提示文本为“单击显示或隐藏Command1”3、Command3的标题为“使Command1禁用”,提示文本为“单击使Command1有效或禁用”4、Command4的标题为“退出”,提示文本为“单击退出应用程序”5、单击Command1可以将Command2的标题改为“隐藏Command1”6、Command2有如下功能:如果Command1可见,则隐藏Command1,并将Command2的标题改为“显示Command1”,如果Command1不可见,则显示Command1,并将Command2的标题改为“隐藏Command1”7、Command3有如下功能:如果Command1有效,则禁用Command1,并将Command3的标题改为“使Command1有用”,如果Command1被禁用,则使Command1有效,并将Command3的标题改为“使Command1禁用”提示:1、控件的排列可参考下图: 2、命令按钮的标题属性为“Caption”,提示文本属性为“ToolTipText”3、要实现Command2的功能,其实要响应Command2的单击事件,首先判断Command1的Visable属性,如果为真则使Command1的Visable为假,并将Command2的标题改为“显示Command1”,否则使Command1的Visible为真,并将Command2的标题改为“隐藏Command1”。可参考如下代码:If Command1.Visible ThenCommand1.Visible = FalseCommand2.Caption = "显示Command1"ElseCommand1.Visible = TrueCommand2.Caption = "隐藏Command1"End If4、Command3的功能与Command2的功能相似,只是需判断和修改的属性为“Enabled”,也可以参考上面的代码实验十、乘法计算程序1、按照下图的样子创建一个应用程序,要求在前两个文本框中输入数字后单击“=”可以计算出这两个数的乘积,并显示在第三个文本框中 第二章 Visual Basic 6.0程序设计基础实验一、数据类型目的:1、 进一步熟悉VB的开发环境2、 掌握VB的基本数据类型的声明方法和使用方法题目要求:1、用VB创建一个“标准EXE”;2、窗体中有一个标题为“显示”的按钮;3、以“第三章实验一”命名工程和窗体,保存在本地自己的目录中;4、“显示”按钮的“Click”过程中有如下代码:Dim a%, b&, c!, d#, e, f$a = 1325.45214472 整型b = 1325.45214472 长整型c = 1325.45214472 单精度d = 1325.45214472 双精度e = 1325.45214472 货币型f = "Hello ! 学习VB并不难,不是吗?" 字符串型Print aPrint bPrint cPrint dPrint ePrint f5、运行该程序,单击“显示”,正确的运行结果为:132513251325.4521325.452144721325.4521Hello ! 学习VB并不难,不是吗?6、将该工程编译成可执行文件,用“第四章实验一”命名,保存在自己的目录中实验二、算数表达式编写程序,求当x=5,y=8时,小于等于(x/66)((y+1) x-2+78)的最大的整数,在窗体上打印其结果提示:(1)使用取整函数Int();(2)注意表达式的书写规范;(3)程序正确运行结果为9实验三、字符串表达式有四个字符串:“用”、“Visual Basic”、“编程”、“简单”,编写程序在窗体上打印这样两句话:“用Visual Basic编程很简单”、“编程用Visual Basic很简单”提示:可以使用“+”或“&”连接字符串,使用“&”连接字符串时注意要在“&”前加空格实验四、关系表达式1、假设a=16.78,b=23.57,编写程序,判断a是否大于等于b,在窗体上打印结果 提示:程序的正确运行结果为“假”(False)2、假设有两个字符串变量a,b,a的值为“AbC”,b的值为“aBc”,编写程序,判断a是否小于等于b,将结果打印在窗体上3、有两个时间,分别是“1994年9月5日上午9时5分47秒”和“1998年6月29日下午4时31分20秒”,编写程序判断第一个时间是否大于第二个时间,将结果打印在窗体上 提示:1、输入日期时间型变量的值时要用“#”加以限定;2、程序的正确运行结果为:False实验五、逻辑表达式有三个变量a,b,c,分别是为10,8,6,编写程序计算下列表达式的值,将结果打印在窗体上 not a>ba>b and b>cb>a and b>ca>b or b>cb>a or b>c提示:程序的正确运行结果为:FasleTrueFalseTrueTrue 实验六、复合表达式假设有变量a=2,b=5,c=4,d=3,e=6,编写程序计算表达式a+b>c and d*a=e的值,将结果打印在窗体上提示:1、注意复合表达式的运算顺序2、程序的正确运行结果为:True 第三章 Visual Basic 的常用控件实验一、控件的焦点和Tab键顺序一、创建一个“标准EXE”工程,要求如下:1、在窗体上添加四个命令按钮和两个文本框,按照下图的样子,调整它们的大小和位置2、查看四个命令按钮和两个文本框的对象名,说出在窗体上添加控件时默认对象名的规律3、按照“Text1、Command1、Text2、Command4、Command2、Command3”的顺序设置六个控件的Tab键顺序,但Command3不能接受Tab键的跳转4、单击Command1可以使Text1获取输入焦点,单击Command4可以使Text2获取输入焦点5、单击Command3可以结束应用程序提示1、六个控件的位置和大小如下图 2、通常控件的对象名是这样组成的:控件的类名+实例化序号,如第一个命令按钮的对象名为“Command1”,第四个命令按钮的对象名为“Command4”3、设置Tab键的顺序就是按顺序设置控件的TabIndex顺序,注意TabIndex序列是由0开始的,即第一个控件的TabIndex为0,第二个为1;如果使某个控件不能接受Tab键的跳转,需设置TabStop属性为“False”(默认为True)4、要使某个命令按钮具有一定的功能,需响应它的Click事件5、使某个控件获取输入焦点要调用该控件的SetFocus方法,即:控件对象名.SetFocus,参考代码Text1.SetFocus和Text2.SetFocus实验二、单选按钮一、参考下图设计一个应用程序,三个单选按钮的标题分别为“9”、“11”和“14”,通过单击这些按钮可以控制文本框中文字字体的大小 提示1、用属性窗口先设置文本框的Text属性,内容可参考上图2、文本框的字体大小属性为“FontSize”,单选按钮的“Value”属性决定了它的选中状态,True表示选中,False表示未选中3、要实现要求的功能,需响应单选按钮的“Click”事件,判断该单选按钮的Value属性,如果选中则设置文本框的字体大小为相应的值,参考代码If Option1.Value Then Text1.FontSize = 9(另外两个单选按钮与其相似)实验三、复选框一、参考下图修改“实验二”的程序,添加两个复选框,标题分别为“粗体”和“斜体”,它们可以控制文本框中文字字体的粗体和斜体 提示1、文本框的“粗体”属性为“FontBold”、“斜体”属性为“FontItalic”,复选框的“Value”属性决定了复选框的选中状态,“1”表示选中,“0”表示未选中2、要实现要求的功能,需响应复选框的“Click”事件,判断该复选框的Value属性,如果选中则设置文本框的字体的粗体和斜体属性为真,参考代码Text1.FontBold = IIf(Check1.Value = 1, True, False)和Text1.FontItalic = IIf(Check2.Value = 1, True, False)实验四、框架一、参考下图修改“实验三”的程序,添加一个框架,标题为“字体”,添加两个单选按钮,标题分别为“宋体”和“黑体”,用于控制文本框中文字的字体 提示1、文本框的字体属性为“FontName”,框架的标题属性为“Caption”2、要将控件添加到框架中,不能直接使用双击添加控件的方法,而要先选择框架,然后选择控件,最后通过鼠标拖放添加控件3、参考代码If Option4.Value Then Text1.FontName = "宋体"和If Option5.Value Then Text1.FontName = "黑体"实验五、计时器一、新建一个工程,在窗体上添加一个”标签”和一个“计时器”,编写程序,在标签上可以显示系统时间(每秒刷新一次)提示1、要求每秒刷新一次,需设置计时器控件的“Interval”属性为“1000”2、计时器每到达指定的时间间隔就会触发“Timer”时间,因此需响应Timer时间,利用“Time”函数获取当前系统时间,然后赋值给标签的“Caption”属性,参考代码Label1.Caption = Time 二、修改上面的程序,要求添加一个计时器,用该计时器控制标签的前景颜色,使其每隔1.5秒交替变换“红色”和“蓝色”提示1、需设置第二个计时器的“Interval”属性为“1500”,需响应它的“Timer”属性2、标签的前景颜色是“ForeColor”属性,运行期间用“RGB(红色分量,绿色分量,蓝色分量)”函数赋值(三个颜色的分量最大值为255,最小值为0,比如红色为:RGB(255,0,0),蓝色为:RGB(0,0,255)),红色参考代码:Label1.ForeColor = RGB(255,0,0)3、要求交替变换颜色,因此需用If语句判断原来的颜色,然后相应的改变,参考代码 If Label1.ForeColor = RGB(255,0,0) ThenLabel1.Fo
展开阅读全文
相关资源
相关搜索

当前位置:首页 > 图纸专区 > 大学资料


copyright@ 2023-2025  zhuangpeitu.com 装配图网版权所有   联系电话:18123376007

备案号:ICP2024067431-1 川公网安备51140202000466号


本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!