VBNET上机内容.docVIP

VB.NET编程基础 姓名：蒋一一 班级：计算机（中澳）122 学号：1120240036 1. Simple If：简单的If语句测试程序 (1) 点击If按钮将实现：定义一个整型变量(采用匈牙利表示法命名)，赋值为27，随后判断该变量是否等于27，若是，则弹出消息框(要求将其标题设为”Simple If”，表示该消息框来自哪个程序)报告这一点。 (2) 点击Another If按钮将实现：定义一个整型变量，赋值为27，随后判断该变量是否等于1000，若是，则弹出消息框报告。 (3) 对(2)进行修改，如果变量不等于1000，也弹出消息框报告。 (4) 对(2)进行修改，先检查变量是否等于1000，是的话弹出消息框报告，否则检查是否等于27，是的话弹出消息框，再否则，弹出消息框报告相应的情况。 (5) 对(1)进行修改，将整条If语句写在一行内。注意其语法有何不同。 (6) 对(5)进行修改，将整条If语句写在一行内。在Then子句中，先给变量+1，然后弹出消息框报告该变量+1等于多少。 2. If Demo: If语句中比较运算符的使用 点击Check按钮后，判断其下方文本框中输入的字符串是否不等于”Wendy”，如果是，弹出消息框报告这一点。 改写(1)，使用逻辑运算符not来进行同样的判断。 点击Check Numbers按钮，判断其下方文本框输入的数字是否大于27，如果是，弹出消息框，否则，也弹出消息框报告。 对(3)进行改写，判断输入数字是否大于等于27，是和否都弹出消息框报告相应事实。 3. And Or Demo: If语句中复合条件的使用 点击Or Check按钮，判断前两个文本框输入的字符串是否有一个等于”Wendy”, 是和否都弹出消息框报告。 点击And Check按钮，判断前两个文本框输入的字符串是否都等于”Wendy”, 是和否都弹出消息框报告。 点击String按钮，判断第三个文本框输入的字符串是否在忽略大小写的情况下等于”Bryan”。(提示：使用String类的Compare方法，请查阅帮助并通过试验弄清每个参数及返回值的含义)。 4. Select Demo: 多重分支 定义一个字符串变量来保存某人喜好的颜色，在列表框中选择某一列表项之后：如果其等于“Bryan”, 将颜色变量置为”Yellow”; 如果其等于”Ashley”, 将颜色变量置为“Blue”；如果其等于“Jennifer”，将颜色变量置为“Morning Mist”；如果其等于“Eddie”，将颜色变量置为“Purple”；如果其等于”Katelyn”，其颜色变量置为“Red”。最后弹出一个消息框报告所选列表项对应的人喜好什么颜色。 修改(1),实现不区分大小写的匹配。 修改(1), 实现在列表框中选择某一列表项之后：如果其等于”bryan”,”eddie”或”ashley”，弹出消息框报告此人为男性；如果其等于”jennifer”或”katelyn”,弹出消息框报告此人为女性。 修改(3), 在列表框中增加一项”tony”, 然后修改Select Case语句，增加一个Case Else子句, 实现当用户选中”Tony”之后，弹出消息框报告不知道此人的性别。 5. Loops: 熟悉各种循环结构的使用 以下每个功能执行前都需要清空列表框，以免不同功能互相影响。每个功能都必须用按钮标题指出的循环结构来实现。 点击For Next Loop按钮，实现在左侧列表框中增加1，2，…, 5共五个表项。 点击For Next Loop with Step按钮(如图第二个按钮)，实现在左侧列表框中从4开始到62结束，以7为步长，跳跃地增加若干项。 点击Backwards For按钮，实现在左侧列表框中从10到1，倒序增加10个表项。 点击For Each按钮，实现将C盘根目录下所有文件夹的名称(提示：用My.Computer.FileSystem.GetDirectories(“C:\”)来获取)添加到左侧列表框中。 点击Do Until Loop按钮，实现：定义一个变量，初始化为0. 当该变量不等于10的时候，生成一个0到24之间的随机数(提示： 用objRandom.Next()实现，请自己弄清该函数的参数含义)赋给它，然后将它添加到左侧列表框中。 点击Do While Loop按钮，实现：定义一个变量，初始化为0. 当该变量小于10的时候，生成一个0到24之间的随机数)赋给它，然后将它添加到左侧列表框中。 点击Nested Loop按钮，实现一个外层从1到2，内层从1到3的嵌套循环，将1.1，1.2，1.3，2.1，2.2.,2.3依次加入左侧列表框。