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