发布时间 : 星期日 文章Vb专题习题 - 图文更新完毕开始阅读dba07b45c77da26924c5b064
VB专题习题
If ① And s Mod 46 = 0 Then '（选填字母，从下列A、B 、C、D四个选项中选取一项） a = s Mod 10 b = (s Mod 100) \\ 10
If ② Then '（选填字母，从下列A、B 、C、D四个选项中选取一项）
List1.AddItem (\
c = ③ '（填程序代码） End If End If Next i
Label1.Caption = \共有\个\End Sub
（1）解决此问题的算法是_______________。（选填：枚举算法/解析算法/查找算法） （2）程序中①划线处应填入__________；程序中②划线处应填入_________。 划线①、②处的选项：()
A．s Mod 16 = 0 B．s \\ 16 = 0 C．a < > b D．a = b （3）程序中①划线处应填入的代码_______________________。
5.小兰设计了一个“猜价格”小游戏，用户在Text1中输入所猜的价格，单击“猜一猜”按钮，如果偏高了，Label4标签中将提示“对不起，偏高了！”；若所猜的价格偏低，则Label4标签中将提示“对不起，偏低了！”；若猜中，则Label4标签中将显示“恭喜你，猜对啦！”。界面如图所示。
Form1 Label1
图
（1）应用程序界面设计时，为添加“请输入您猜的价格：”对象，应使用图所示的“控件工具箱”中的 （填写相应字母），并在图所示的“属性窗口”中，将 属性值设置为“请输入您猜的价格：”。
17 / 30
Label2 Text1 Label4 Command1 Label3 VB专题习题
图
图
Ｄ Ｃ Ｂ Ａ （2）解决此问题的相应程序如下，请根据题意将程序补充完整。 Private Sub Command1_Click() Dim g As Integer Dim p As Integer
p = 99 '预设价格的值存储到p变量中 g = If g > p Then
= \对不起，偏高了！\ElseIf g < p Then
Label4.Caption = \对不起，偏低了！\Else
Label4.Caption = \恭喜你，猜对啦！\ End Sub
6. 十进制数转二进制数程序界面如第14题-1图所示，相关VB程序运行时，单击命令按钮Command1后，执行十进制数转二进制数并输出显示的程序。
（1）应用程序界面设计。转换得到的二进制数将显示在Label3中，请根据第14题-3图提供信息，确定使用第14题-2图控件工具箱中的 （填写相应编号），修改属性 的值为1010。
18 / 30
VB专题习题
第14题-1图 第14题-2图 第14题-3图
（2）解决此问题的相应程序如下，请根据相应注释及题意将程序补充完整。 Private Sub Command1_Click() Dim sjzs As Integer Dim rjzs As String
‘不停除2到商为0为止，所得余数倒推 ‘sjzs：十进制数 ‘rjzs：二进制数
sjzs = Val(Text1.Text) rjzs = \
Do While rjzs = Str(sjzs Mod 2) + rjzs
Label3.Caption = rjzs End Sub
7. 以下VB程序段的功能是用DO语句求1~1000之间满足“用3除余2,用5除余3，用7除余2”的数。并将结果在list1中列出，并在label1处显示符合条件的数的个数。
（1）程序中①处应填入的代码是________________ （2）程序运行结束后，变量i的值为_______________ Private Sub Command1_Click() Dim i As Integer Dim j As Integer i = 1: j = 0 list1.clear Do While i <= 1000
If （i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2） Then List1.AddItem i ① End If i = i + 1
19 / 30
VB专题习题
Loop
Label1.Caption = Str(j) End Sub
8. 有如下Ｖisual Basic程序段：
If x>100 then
Y=12
___(1)__ x>60 then Y=8 Else y=5
____(2)_____
该程序段中，(1)处填写的内容为____________(2)处填写的内容为___________。
9. 用VB软件编写判断闰年的年份。界面如第11题-图1所示，文本框Text1输入年份，单击“判断”按钮Command1，在文本框Text2中输出判断结果（闰年的判断条件是：能被 4 整除但是不能被100整除；或者能被四百整除）。
Label1 Text1 Label2 Text2 Command1
第11题-图1
（1）应用程序界面设计时，Text1文本框内没有内容显示，这是由于将其属性名为
___________ 的值设置为空，窗口显示“闰年判断”是将窗体属性名为___________ 的值设置成了“闰年判断”。（1分,1分）
（2）请根据题意将下列程序补充完整。（2分） Private Sub Command1_Click() Dim Year As Integer _______①____
If (Year Mod 4 = 0) And (Year Mod 100 <> 0) Or (Year Mod 400 = 0) Then Text2.Text = \是闰年\
20 / 30