VB程序题(程序填空、编程)VIP专享VIP免费

第4 章 程序设计结构 程序填空题（1 个空） 在以下各题的下划线处填写正确的内容，以实现要求的功能。 1．下面的语句用于实现：当C 字符串变量中第三个字符是“C”时，利用MsgBox 显示“Yes”，否则显示“No”。 If_________Then MsgBox(“yas”) Else MsgBox(“No”) 答案：Mid(c，3，1) = “C” 2．输入一个数，判断其为偶数还是奇数，并用消息框显示出结果，如“您输入的数2是偶数”。 Priv ate Su b Form1_Click(By Val sender As Object, By Val e As Sy stem.Ev entArgs) Handles My Base.Click Dim X As Integer Dim Y As String X = Inpu tBox ("请输入X的值:") _____________________________ MsgBox ("您输入的数" & X & Y) End Su b 答案：3.IF X MOD 2=0 THEN Y="是偶数" ELSE Y="是奇数" 3．要求下面代码段中的循环体执行 3 次。 Priv ate Su b Bu tton1_Click(By Val sender As Sy stem.Object,By Val e As Sy stem.Ev entArgs) Handles Bu tton1.Click Dim x as integer x = 1 Do While _______ x = x + 2 Loop End Sub 答案： x <7 程序填空题（2 个空） 1、输入一个年份，判断它是否为闰年，并显示是否是闰年的有关信息。判断闰年的条件是：年份能被 4 整除但不能被 100 整除，或能被 400 整除。同时应用日期型变量的IsLeepYear函数来验证。 Sub Button4_Click(....) Handles Button4.Click Dim d As Date d=Now If___(_1_)____ Or d.year Mod 400=0 Then MsgBox(d.Year & “是闰年”) Else MsgBox(d.Year & “是平年”) End If If IsLeepYear（____2____） Then MsgBox(d.Year & “是闰年”) Else MsgBox(d.Year & “是平年”) End If End Sub 答案：(1) d.y ear mod 4=0 and d.y ear mod 100<>0 (2) d.y ear 2．下列程序用于求S=1+3+32+33+… +310 的值。 Priv ate Su b Bu tton1_Click(By Val sender As Sy stem.Object, By Val e As Sy stem.Ev entArgs) Handles Bu tton1.Click Dim s As integer,t As integer,i As integer s=__(1)____ For i=1 to 10 t=__(2)_____ s=s+t Next i Lable1.text= ＂s=＂ & s End Su b 答案：(1) 1 、 (2) 3^i 3．以下程序用来输出 25 个开区间（10，8...