VB程序填空题精品文档1、下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是零，并输出判断结果。程序中有三处错误，请更正。程序如下：Private Sub Command1_Click() Dim a As Single Dim py As String a=Val(Text1) If a0 Then py=正数 If a=0 Then py=零 If a= a(i) Then List1.AddItem Str(a(i) _ End If i = i + 1LoopEnd Sub12、有一个单击按纽过程，其作用是产生50个60100的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：Private Sub command1_click() Dim X, N As Integer Dim counter As Integer counter 用来保存能被6整除余2的数据的个数 Randomize Timer 随机数初始化，以时钟为随机数种子 For N = 1 To 50 X = _+ int(Rnd * 40) 随机产生50个60100的随机数 If X Mod 6 = 2 Then List1.AddItem Str(X) _ End If Next NPrint counterEnd Sub13、下面是一个检测密码的程序（界面如图74，其功能是：当用户输入的密码正确时，在窗体上显示“欢迎您使用本系统”；否则显示“密码错误！请重新输入密码：”。正确的密码是0123456789。 仔细阅读程序，请问程序中划线处的语句应为_。Private Sub Form_Load() Text1.Text = : Text1.MaxLength = 10 Text1.PasswordChar = * 表示密码用*显示 Label2.Caption = : Label2.Alignment = 2End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Label2.Caption = If KeyAscii = 13 Then KeyAscii=13表示是回车键 If _ Then Label2.Caption = 欢迎您使用本系统! Else Label2.Caption = _ 以下两语句的作用是使程序能自动选中错误的密码，使用户可直接重新输入 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End If End Sub14、猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早晨又将剩下的桃子吃了一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第十天早上再想吃时，见只剩一个桃子了。问：第一天猴子共摘了多少个桃子。为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。Visual Basic 程序如下： Sub Command1_Click( ) Dim i, s As Integer _ For i=1 to 9 _ Next i Text1.Text = Str(s)End Sub15、下面程序（界面如图7-