vb程序填空题
更新时间:2023-11-05 06:04:01 阅读量: 综合文库 文档下载
三、填空题 1、【程序说明】
下列程序显示所有3个数码各不相同的3位数,要求按紧凑格式每行显示15个数,并统计有多少个这样的三位数。 Private Sub Form_Click()
Dim n As Integer, a As Integer, b As Integer, c As Integer Dim x As Integer
For a =0 to 9 '个位数数码
For b = 0 To 9 '十位数数码 For c = ----1----
If a<>b And b<>c And a<>c Then x =a+10*(b+10*c) n = ----2---- ----3----
If n mod 15 = 0 Then Print End If Next c,b,a
Print \总共有这样的三位数\个\End Sub 1、1 to 9
2、n+1或1+n 3、print x; 2、【程序说明】简单 窗体是密码检验程序。程序运行时,用户在文本框输入密码,单击确定按钮对密码进行检验。密码正确后,标签label2显示“密码正确”;若密码不正确,标签显示“密码错误”,若密码输入错误达3次,将自动退出程序。
Private Sub Command1_Click() '确定按钮 Static n As Integer
---const-1----mypwd As String = \预设密码为自定义常量 n = n + 1
Label2.Visible = True
If ---__ text1.text=mypwd____ ---- Then Label2.Caption = \密码正确\ Else
If n < 3 Then
Label2.Caption = \密码错误!\ Text1.Text = \ Else
--end--3---- End If End If End Sub
1、CONST
2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text1
3、End
3、【程序说明】
在组合框中选择形状后,窗体中控件Shape1的形状和边框线作相应变化。程序运行时如下图
Private Sub Combo1_Click()
Shape1.Shape = = Combo1.List(-combol1.listindex-1----) ----2---- = Int(Rnd * 7) End Sub
Private Sub Form_Load() Dim I As Integer For I = 0 To 5:----3----: Next I End Sub
1、Combo1.ListIndex 2、Shape1.BorderStyle
3、Combo1.AddItem Str(I)或Combo1.list(I)=I 4、【程序说明】右击窗体则打开Windows自带的计算器“C:\\windows\\calc.exe”;单击“退出”按钮时将右击窗体的次数写入磁盘文件,并结束程序运行。 ----1----
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single)
If Button = 2 Then n = n + 1: Shell “C:\\windows\\calc.exe” End Sub
Private Sub Command1_Click() Open \ Print #1,n: Close #1 ----3---- End Sub
1、dim n as integer 2、output as #1 3、end
三、填空题 (请把正确的选项填入试题前的空格中)
第1题:【程序说明】
单击窗体后,在窗体上输出以下图形:
Private Sub Form_Click() Dim I%, j%, st$ For I = 1 To ----1---- st = Chr$(65 + I - 1) Print Tab(10 - I); For j = 1 To I Print st; \ Next j ----2---- Next I For I =7 To 1 Step -1 st = Chr$(65 + I - 1) Print Tab(10 - I); For j = 1 To ----3---- Print st; \ Next j Print Next I End Sub 1、6 2、Print 3、I 第2题:【程序说明】
窗体是简易文本编辑器程序。通过文本框和剪贴板实现全选、复制、粘贴和删除操作。
Private Sub Command1_Click() '全选按钮 Text1.SelStart = 0
Text1.SelLength = ----1---- Text1.SetFocus
Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True End Sub
Private Sub Command2_Click() '复制按钮 Clipboard.Clear Clipboard.SetText Text1.SelText Command3.Enabled = True Text1.SetFocus End Sub Private Sub Command3_Click() '粘贴按钮 Text1.SelText = ----2---- Text1.SetFocus End Sub
Private Sub Command4_Click() '删除按钮 ----3----
Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False End Sub
Private Sub Form_Load() Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelLength <> 0 Then Command2.Enabled = True Command4.Enabled = True Else
Command2.Enabled = False Command4.Enabled = False End If End Sub
1、Len(Text1.Text)或Len(Text1) 2、Clipboard.GetText 3、Text1.SelText = \
第3题:【程序说明】
自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时,显示第一张图片,单击“浏览”按钮每隔1秒在图片框中显示另一张图片,显示到最后一张图片时,又从第一张开始显示。(假设在C:\\Windows目录下有1.bmp、2.bmp、??、8.bmp这样8张图片需显示) Dim I As Integer
Private Sub Form_Load() I= ----1----
Picture1.Picture = LoadPicture(\ Picture1.AutoSize = True End Sub
Private Sub Timer1_Timer() If I <= 7 Then ----2---- Else I = 1 End If Picture1.Picture = ----3---- End Sub 1、1
2、I=I+1或I=1+I
3、LoadPicture(\& I & \或LoadPicture(\+ trim(str(I)) + \
第4题:【程序说明】文件c:\\a1.dat中存放若干个学生信息的记录(行),按Command1按钮后,查找文件中姓名与输入姓名相同的记录,找到则删除该记录。 Private Sub Command1_Click() Dim bs As String,cs As String Open \
Open \ bs = InputBox(\输入学生姓名\ Do While Not Eof(1) Line Input #1, cs
if InStr(cs, Trim(bs)) =----2----Then print #2,cs Loop
Close #1: Close #2 Kill----3----
Name “temp.dat” as “c:\\a1.dat” End Sub
1、For Input As #1 2、0
3、\三、填空题 1:【程序说明】
该程序执行后,输出一个右上三角元素(含对角线)为1,其余元素为0 的5×5的矩阵。
Private Sub Form_Click()
Dim a(1 To 5, 1 To 5) As Integer Dim I As Integer, j As Integer For I = 1 To 5 For j = 1 To 5
If ----1---- Then ----2---- End If Next j Next I For I = 1 To 5 For j = 1 To 5 Form2.Print \ Next j ----3---- Next I End Sub
1、I<=j或j>=I 2、a(I,j)=1 3、print 2:【程序说明】
如图,程序运行时,用户可以在文本框中输入文本,单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾,用户选某列表框的某一个列表项后,单击command2“删除”按钮,将删除该列表项;如果没有任何一项选中,将有出错提示\先选择,再删除!\。
Private Sub Command1_Click()‘ 添加按钮 If Len(Text1.Text) <> 0 Then ----1----
Text1.Text = \ Text1.SetFocus End If End Sub
Private Sub Command2_Click() ‘删除按钮 If ----2---- Then MsgBox \先选择,再删除!\ Else
----3---- End If End Sub
1、 List1.AddItem Text1.Text 2、List1.ListIndex = -1
3、List1.RemoveItem List1.ListIndex
3:【程序说明】
自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时,显示第一张图片,单击“浏览”按钮每隔1秒在图片框中显示另一张图片,显示到最后一张图片时,又从第一张开始显示。(假设在C:\\Windows目录下有1.bmp、2.bmp、??、8.bmp这样8张图片需显示) Dim ----1--- As Integer Private Sub Form_Load() I = 1
Picture1.Picture = LoadPicture(\ Picture1.AutoSize = True End Sub
Private SubTimer1_ ----2----
If ----3---- Then I =I+1 Else
I = 1 End If
Picture1.Picture = LoadPicture(\ End Sub 1、I
2、Timer()
3、I <= 7或I<8
4:【程序说明】
本程序统计3~100之间所有素数的个数;最后将素数的个数写入顺序文件e:\\dataout.txt中。
Private Sub Command1_Click() Dim i As Integer, flag As Boolean Dim t1 As Integer, t2 As Integer ----1---- i = 0
For t1 = 3 To 100 flag = True
For t2 = 2 To Int(Sqr(t1)) If ----2---- then flag = False Next t2 If flag then i = i+1 End If Next t1 ----3---- Close #1 End Sub
1、 open \
或open \
2、t1 mod t2=0
3、Write #1,I或print #1,I 三、填空题 第1题:【程序说明】
以下过程是将一个英文句子的每个单词的首字母都变成大写。从键盘上任意输入一条英文句子,将句子中的每个单词的首字母都变成大写例如:输入\ am a good student\。则要求输出\。 Public Sub Uppersen()
Dim oldsen As String, newsen As String Dim char As String, lastchar As String Dim k As Integer, i As Integer
oldsen = InputBox(\请输入英文句子:\ k = ----1----
'以空格作为单词的界定,空格后的字母转换为大写字母 lastchar = ----2---- For i = 1 To k
char = ----3----
If lastchar = \ char = UCase(char) End If
newsen = newsen & char lastchar = char Next i
Form1.Print \ Form1.Print \ End Sub
1、Len(oldsen) 2、\
3、Mid(oldsen, I, 1)
第2题:【程序说明】
以下程序可以将列表框中同时选中的多个列表项删除,顺序从最后一项开始往前删除,请将程序补充完整。 Private Sub cmdDel_Click() Dim i As Integer i = List1.ListCount - 1 While i >=----1----
If List1.Selected(i) = True Then ----2---- End If ----3---- Wend End Sub
1、0
2、List1.RemoveItem I 3、i = i - 1
第3题:【程序说明】
自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时,显示第一张图片,单击“浏览”按钮每隔1秒在图片框中显示另一张图片,显示到最后一张图片时,又从第一张开始显示。(假设在C:\\Windows目录下有1.jpg、2.jpg、??、8.jpg这样8张图片需显示) Dim i As Integer
Private Sub Form_Load()
i = 1
Picture1.Picture = ----1---- Picture1.AutoSize = True End Sub
Private Sub Timer1_Timer() If i <= 7 Then i =i+1 Else
i = 1 End If ----2---- End Sub Sub pic()
Dim fn As String
fn = \ Picture1.Picture = ----3---- End Sub
1、LoadPicture(\ 2、Call pic或pic 3、LoadPicture(fn) 第4题:【程序说明】在窗体内设置一个弹出式菜单,分别对文本框进行“显示时间”、“显示日期”和“清空”操作。m1为不可见菜单项,m11为其子菜单(共3项,均同名,索引值依次为0,1,2)。鼠标右击窗体后显示弹出式菜单。 Private Sub Form_Load() Timer1.Enabled = False '锁定定时器(时间间隔已设置为1秒) End Sub
Private Sub m11_Click(Index As Integer) Select Case Index
Case 0 : Timer1.Enabled =----1---- Case 1
Timer1.Enabled = False : Text1.Text= \日期:\ Case 2
Text1.Text = \ End Select End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single) If Button = 2 Then ----3----, 2 End Sub
Private Sub Timer1_Timer() Text1.Text = \时间:\ End Sub
1、True 2、Date
3、PopUpMenu m1 三、填空题 第1题:【程序说明】
以下程序执行后将产生一个6×6的转置矩阵,将二维数组中所有行和对应列的元素进行交换。
Private Sub Form_Click()
Dim a(1 To 6, 1 To 6) As Integer Dim i As Integer, j As Integer Form1.Print \原始数据\ For i = 1 To 6 For j = 1 To 6
a(i, j) = Int(Rnd * 10) Form1.Print a(i, j); Next j
Form1.Print Next i
For i = 2 To 6
For j = 1 To ----- 1 ----- ------ 2 ----- Next j Next i
Form1.Print \转置后数据\ For i = 1 To 6 For j = 1 To 6 ----- 3 ----- Next j
Form1.Print Next i End Sub
Public Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = temp End Sub 1、I
2、Call Swap(a(I, j), a(j, I))或.Swap a(I, j), a(j, I) 3、Print a(i, j); 第2题:【程序说明】
本程序利用1个定时器、1个文本框和2个命令按钮制作一个动态表。各控件名称取缺省值,控件Command1、Command2标题分别为“开始”、“结束”。运行时,单击“开始”
按钮后表开始每分钟计一次时,并在文本框上显示总分钟数;单击“结束”按钮后,计时结束,在窗体上显示出运行的时间(折算成小时、分钟,不计算秒数)。 Dim x as long
Private Sub Form_Load()
Timer1.Interval = 60000: Timer1.Enabled = False End Sub
Private Sub Command1_Click() Cls x = 0 ----1---- End Sub
Private Sub Command2_Click()
Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = ----2---- m = x mod 60
Print \运行了\小时\分\ End Sub
Private Sub Timer1_Timer() ----3---- Text1.text = x End Sub 1、Timer1.enabled=true 2、x\\60 3、x=x+1
第3题:【程序说明】
程序运行时界面如下图,红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好,而且使用的是Image1控件数组,程序运行时,单击Image1时,Image2显示相应的图片,同时在Picture1中用蓝色显示哪个图案被选中的文字信息。
Private Sub Image1_Click(Index As Integer) ----1----
Picture1.FontSize = 20 ----2---- = vbBlue Picture1.Cls ----3---- Case 0
Picture1.Print \红桃被选中\ Case 1
Picture1.Print \草花被选中\ Case 2
Picture1.Print \方片被选中\ Case 3
Picture1.Print \黑桃被选中\ End Select End Sub
1、Image2.Picture =Image1(Index).Picture 2、Picture1.ForeColor 3、Select Case Index
第4题:【程序说明】程序运行时,通过单击窗体显示“字体”对话框,并对文本框的字体 、字号和字效等进行设置。 Private Sub Form_Click() ----1----=259 CommonDialog1.Action =----2---- Text1.FontBold =----3---- Text1.FontItalic = CommonDialog1.FontItalic Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize End Sub
1、CommonDialog1.Flags 2、4
3、CommonDialog1.FontBold 三、填空题 第1题:【程序说明】
以下程序执行后将输出100到200之间所有的素数,并统计素数的个数 Private Sub Form_Click()
Dim i%, j%, k%, t% 't为统计素数的个数 Dim b As Boolean For i = 100 To 200 b = True
k= ------ 1 ----- j = Int(Sqr(i))
Do While k <= j And b If i Mod k = 0 Then ------ 2 ------
End If
------ 3 ------ Loop
if b=true then t = t + 1
Form1.Print i End If Next i
Print \ End Sub
1、2
2、b = False 3、k = k + 1 第2题:【程序说明】
下列程序运行时,单击Command1(0)后,清空组合框原有内容,从外部文件中读入的数据显示在组合框中,如图所示。单击Command1(1)后,将组合框中的各表项输出到外部文件;单击Command1(2)后,将组合框中文本框部分的文本添加作为组合框的表项;单击Command1(3)后,将组合框中选中的表项删除。
Private Sub Command1_Click(Index As Integer) Select Case Index Case 0
----1----
Open \ Do While Not EOF(1) Line Input #1, a$ Combo1.AddItem a$ Loop Close #1 Case 1
Open \ For I% = 0 To ----2----
Print #1, Combo1.List(I%) Next I% Close #1
Case 2 '添加
Combo1.AddItem Combo1.Text Case 3 '删除 ----3---- End Select End Sub
1、Combo1.Clear
2、Combo1.ListCount - 1
3、Combo1.RemoveItem Combo1.ListIndex 第3题:【程序说明】
程序运行后,鼠标多次在图片框内拖动后,绘制出多个绿色边框矩形,填充样式在“实心”、“透明”间交替变换。 ----1----
Private Sub Picture1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) x0 = X: y0 = Y End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If ----2----Then
Picture1.FillStyle = 0 Else Picture1.FillStyle = 1 End If ----3---- End Sub 1、Dim x0 As Single, y0 As Single或Dim x0!, y0! 2、Picture1.FillStyle <> 0或Picture1.FillStyle=1 3、Picture1.Line (x0, y0)-(X, Y), RGB(0, 255, 0), B 第4题:【程序说明】
设计一个简单的图片浏览程序。单击窗体后,显示“打开文件”对话框,选中一个
图片文件后,将其显示在图片框中。要求“打开文件”对话框只能显示bmp文件或gif文件。 Private Sub Form_Click()
CommonDialog1.DialogTitle =”打开图片文件” CommonDialog1.InitDir=”c:\\Picture” ----1----=\文件|*.bmp|gif文件|*.gif\ ----2----
Picture1.Picture=LoadPicture(----3----) End Sub
1、CommonDialog1.Filter
2、CommonDialog1.ShowOpen或CommonDialog1.Action=1 3、CommonDialog1.FileName 三、填空题 第1题:【程序说明】
下列程序的功能是找出被5、7除,余数为1的最小5个正整数。 Private Sub Form_Click() Dim Ncount%, n% Ncount =----1---- n = 1 Do
n = n + 1
If ----2---- Then Print n
Ncount = Ncount + 1 End If
Loop Until ----3----=5 End Sub
1、0
2、n Mod 5 = 1 And n Mod 7 = 1 3、Ncount 第2题:【程序说明】
本程序是一个比赛评分程序。在窗体上有text1(0)~text1(6)文本框数组,显示最后得分的text2文本框和“计算得分”command1命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在text2 文本框中(去掉一个最高分和一个最低分后的平均分)
Private Sub Command1_Click()
Dim k As Integer
Dim sum As Single, max As Single, min As Single sum = Text1(0): max = Text1(0): ----1---- For ----2---- step 1
If max < Text1(k) Then max = Text1(k) End If
If min > Text1(k) Then min = Text1(k) End If
sum = sum + Text1(k) Next k
Text2.Text = (----3----) / 5 End Sub
1、min = Text1(0)或min = Text1(0).text或min =max
2、k = 1 To 6
3、sum - min – max或sum - max – min 第3题:【程序说明】
窗体上有两个图片框控件Picture1和Picture2,两个命令按钮command1(标题为“加载”)和command2(标题为“复制”),程序运行时,“复制”按钮不可用,图片框控件Picture2和Picture1大小相同,单击“加载”按钮,清除Picture2中的图片,打开通用对话框,选择一个图形文件,在图片框控件Picture1中显示,同时“复制”按钮可用,“加载”按钮不可用;单击“复制”按钮,将Picture1的图片复制到Picture2中,同时“加载”按钮可用,“复制” 按钮不可用。
Private Sub Form_Load()
Picture2.Width = Picture1.Width ----1----
Command2.Enabled = False End Sub
Private Sub command1_Click() CommonDialog1.ShowOpen ----2----
Picture1.Picture = ----3---- Command2.Enabled = True Command1.Enabled = False End Sub
Private Sub command2_Click() Picture2.Picture = Picture1.Picture Command1.Enabled = True Command2.Enabled = False End Sub
1、Picture2.Height = Picture1.Height 2、Picture2.Picture = LoadPicture(\
3、LoadPicture(CommonDialog1.FileName) 第4题:【程序说明】文本文件“C:\\mydoc\\zg.txt”包括工资、职务情况,每条记录由工号、工资、职称组成,现对文件内容进行修改,即对不同职称的职工增加工资,规定高级职称的增加15%,中级职称的增加10%,初级的增加5%,其他人员不加工资。 Pirvate Sub cmdModif_Click()
Dim num As Integer, gz As Single, zc As String ‘ 定义工号、工资、职称的变量名和类型
Open ” C:\\mydoc\\zg.txt” For Input As #1 Open ” C:\\mydoc\\lszg.txt” For Output As #2 Do While Not EOF(1) ----1----
Select Case zc Case “高级” gz = gz*1.15
Case “中级” gz = gz*1.1 Case “初级” gz = gz*1.05 End Select
Write #2, num, gz, zc Loop
Close #1,#2
Open ” C:\\mydoc\\lszg.txt” ----2----As #1 Open ” C:\\mydoc\\zg.txt”for output As #2 Do While Not EOF(1) Input #1, num, gz, zc ----3---- Loop
Close #1,#2 End Sub
1、Input #1, num, gz, zc 2、For Input
3、Write #2, num, gz, zc
三、填空题 (请把正确的选项填入试题前的空格中) 第1题:【程序说明】 该程序的功能为:从1到1000中找出这样的数,该数每位上数字的阶乘之和等于该数,并将结果输出从窗体输出。
Private Sub Form_Click() Dim k, a, n, I, m Dim p As Integer For k = 1 To 10000 a = Ltrim(Str(k)) n = 0
m = Len(a)
For I = 1 To ----1---- p = Val(Mid(a, I, 1)) n = ----2---- Next I
If n = k Then Form1.Print k Next k End Sub
Function fact(x As Integer) As Long '该函数用于计算阶乘 Dim y As Long Dim I% y = 1
For I = 1 To x y = y * I
Next I ----3---- End Function 1、m
2、n+fact(p)或fact(p)+n 3、fact=y 第2题:【程序说明】
这是一个用户名校验程序,如用户名正确,即输出欢迎字样,否则,弹出警告窗并直接退出程序。
Dim UserName(2) As String, inputName As String
Dim Flag As Boolean ‘flag=true表示用户名正确;flag=false表示用户名不正确 Private Sub Form_Load() Dim I As Integer
UserName(0) = \‘共三个用户名 ----1----
inputName = InputBox(\请输入名称:\身份确认\ For I = 0 To 2 If ----2----Then Flag = True End If Next I
If Flag =False Then ----3---- (\用户身份确认失败!退出应用\警告\ End End If End Sub Private Sub Form_Paint()
picShowMsg.Print \欢迎您!\ End Sub
1、Flag = False或flag<> true或not flag
2、inputName = UserName(I)或UserName(I)= inputName 3、MsgBox 第3题:【程序说明】
窗体上有两个图片框控件Picture1和Picture2,两个命令按钮command1(标题为“加载”)和command2(标题为“复制”),程序运行时,“复制”按钮不可用,图片框控件Picture2和Picture1大小相同,单击“加载”按钮,打开通用对话框,选择一个图形文件,在图片框控件Picture1中显示,同时“复制” 按钮可用,“加载”按钮不可用;单击“复制”按钮,将Picture1的图片复制到Picture2中,同时“加载”按钮可用,“复制”按钮不可用。 Private Sub Form_Load()
Picture2.Width = Picture1.Width Picture2.Height = Picture1.Height ----1---- End Sub
Private Sub command1_Click()
----2----
Picture1.Picture = LoadPicture(CommonDialog1.FileName) Command2.Enabled = True Command1.Enabled = False End Sub
Private Sub command2_Click() ----3----
Command1.Enabled = True Command2.Enabled = False End Sub
1、Command2.Enabled = False
2、CommonDialog1.ShowOpen或CommonDialog1.Action=1 3、Picture2.Picture = Picture1.Picture
或 Picture2.Picture = LoadPicture(CommonDialog1.FileName)
第4题:【程序说明】下列程序运行时,在驱动器列表框中选择驱动器,目录列表框相应变为所选驱动器的目录列表,在目录列表框中选择相应目录,文件列表框的内容变为所选目录下的文件列表,只要单击其中扩展名为".bmp"的文件,即可在图像框中显示该图像。 Private Sub Dir1_Change() File1. Path =dir1.Path End Sub Private Sub Drive1_Change() ----1---- End Sub Private Sub File1_Click() Dim PathStr As String if right(file1.path,1)=\ PathStr=File1.Path & File1.FileName else ----2---- end if
If Right(PathStr,4)= “.bmp” Or Right(PathStr,4)= “.BMP” Then ----3---- End If End Sub
1、Dir1.Path=Drive1.Drive
2、PathStr=File1.Path & “\\” &
File1.FileName或PathStr=File1.Path + “\\” + File1.FileName 3、Image1.Picture=LoadPicture(PathStr) 三、填空题 第1题:【程序说明】
以下程序产生n个两位随机整数,将其中个位数等于5的数存入数组B中,并以每行五个的紧凑格式在窗体中用输出,同时输出该数组的个数。 Private Sub Form_Click()
Dim a() As Byte, b() As Byte
Private Sub Cboziti_click() ‘字体 ----1---- End Sub
Private Sub Cbozixing_Click() ‘字形 Select case ----2---- Case \常规\
Label5.FontBold = False Label5.FontItalic = False case \加粗\
Label5.FontBold = True Label5.FontItalic = False ‘??省略 End select End Sub
Private Sub Check1_Click() ‘下划线 If ----3----Then Label5.FontUnderline = True Else
Label5.FontUnderline = False End If End Sub
1、Label5.FontName = Cboziti.Text或Cboziti.Text=Label5.FontName 2、Cbozixing.text 3、Check1.Value = 1 第3题:【程序说明】
程序运行时如下图,红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好,而且使用的是Image1控件数组,程序运行时,单击Image1时,Image2中显示相应的图片,同时在Picture1中显示哪个图案被选中的文字信息。
Private Sub Image1_Click(Index As Integer) Image2.Picture = ----1---- Picture1.FontSize = 20
Picture1.ForeColor = vbBlue Picture1.Cls
Select Case ----2---- Case 0
Picture1.Print \红桃被选中\ Case 1
Picture1.Print \草花被选中\ Case 2 Picture1.Print \方片被选中\ ----3----
Picture1.Print \黑桃被选中\ End Select End Sub
1、Image1(Index).Picture 2、Index
3、Case 3或Case else 第4题:【程序说明】在当前窗体中,绘制一个圆心在窗体中心,半径为1000的实心圆,要求实心圆的填充色从“颜色”对话框中选取。 Private Sub Form_Click()
Dim r as single,x as single,y as single R=1000
X=form1.scalewidth/2 Y=----1----
Form1.fillstyle=0
CommonDialog1.----2---- Form1.fillcolor=----3---- Circle (x,y),r End Sub
1、form1.scaleheight/2
2、ShowColor
3、CommonDialog1.Color 三、填空题 第1题:【程序说明】
以下程序产生30个两位随机整数,将其中的偶数存入数组B中,并按从小到大的顺序在窗体中用紧凑格式输出。
Private Sub Form_Click()
Dim a(30) As Byte, b(30) As Integer
Dim i As Byte, j As Byte, m As Byte, n As Byte For i = 1 To 30
a(i) = 10 + Int(Rnd * 90) If a(i) Mod 2 = 0 Then m = ----1---- b(m) = a(i) End If Next i
For i = 1 To ----2---- n = i
For j = i + 1 To m
If b(n) > b(j) Then ----3---- Next j
temp = b(i): b(i) = b(n): b(n) = temp Print b(i); Next i End Sub 1、m + 1 2、m - 1 3、n = j 第2题:【程序说明】
如图所示, 在两个列表框之间进行操作。用户可以在左边列表框list1选一项或多项移动至右侧的列表框list2,同时将list中已选的项目删除。还可以把将列表框list2的内容放回列表框list1。
Private Sub Command1_Click() '移动按钮
Dim I As Integer I = 0
Do Until I >= List1.ListCount
If ----1---- Then '判断第I项有没有选定 List2.AddItem List1.List(I) List1.RemoveItem I Else
----2---- ' 第I项未选定,继续下一项判断 End If Loop End Sub
Private Sub Command2_Click() '还原按钮 Do Until ----3----
List1.AddItem List2.List(0) List2.RemoveItem 0 Loop End Sub
1、List1.Selected(I) = True
或List1.Selected(I)<>FALSE或list1.selected(I)
2、I = I + 1或I=1+I 3、List2.ListCount = 0 第3题:【程序说明】 程序运行后,鼠标多次在图片框内拖动后,绘制出多个实心矩形,矩形颜色在“红色”、“绿色”间交替变换。
Dim x0 As Single, y0 As Single Private Sub Picture1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) ----1---- End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single)
If Picture1. ForeColor <> 255 Then ----2----
Picture1.Line (x0, y0)-(X, Y), vbRed, BF Else
Picture1.ForeColor =vbGreen ----3---- End If End Sub
1、x0 = X: y0 = Y
2、Picture1.ForeColor = 255或Picture1.ForeColor = vbRed
或Picture1.ForeColor = RGB(255,0,0)
3、Picture1.Line (x0, y0)-(X, Y), vbGreen, BF
或Picture1.Line (x0, y0)-(X, Y), , BF
或Picture1.Line (x0, y0)-(X, Y),RGB(0,255,0), BF
第4题:【程序说明】在窗体上画一个名为Text1的文本框,然后建立1个弹出式菜单,其结构如下表所示;要求在文本框上单击鼠标右键后,弹出菜单;单击“剪切”、“复制”菜单项后可以把Text1中选中内容剪切或复制到变量a中,单击“粘贴”菜单项则是把a中的内容添加到Text1的原有内容之后。 标题 名称 层次 编辑 Edit 1 剪切 Cut 2 复制 Copy 2 粘贴 Paste 2 Dim a as string
Private sub cut_click()
a= Text1.seltext ----1---- End sub
Private sub copy_click() a= Text1.seltext End sub
Private sub paste_click() Text1. text=----2---- End sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single) If Button = 2 Then----3----, 2 End Sub 1、Text1.seltext=”” 2、Text1.text+a 3、PopUpMenu Edit
Dim i As Byte, m As Byte, n As Byte n = InputBox(\请输入n值:\ ----1---- a(n), b(n) For i = 1 To n
a(i) = 10 + Int(Rnd * 90) If a(i) Mod 5 = 0 Then m = m + 1 ----2---- Print b(m); If ----3---- End If Next i Print
Print \个位数为0的数有\个\
End Sub
1、ReDim 2、b(m) = a(i)
3、m Mod 5 = 0 或m/5=m\\5 Then Print 第2题:【程序说明】
本程序通过选项来修饰预览区文字。单击字体组合框Cboziti可以设置预览区域的标签文字label5的字体;单击字号组合框Cbozihao可以设置预览区域的标签文字的字形;选择删除线复选框可以设置是否加删除线。
Private Sub Cbozihao_Click()'选择字号 Label5.FontSize = Cbozihao.Text End Sub
Private Sub Cbozihao_ ----1---- () '输入选项中没有的字号 If Val(Cbozihao.Text) > 0 And Val(Cbozihao.Text) < 72 Then Label5.FontSize = Val(Cbozihao.Text) Else
Label5.FontSize = 9 End If End Sub
Private Sub Cboziti_click()’字体 ----2----
End Sub
Private Sub Check1_Click()‘复选框删除线 If ----3---- Then
Label5.FontStrikethru = True Else
Label5.FontStrikethru = False End If End Sub
1、Change
2、Label5.FontName = Cboziti.Text
3、Check1.Value = 1或1= Check1.Value 第3题:【程序说明】
程序运行时界面如下图,点击“颜色选择”按钮,弹出颜色对话框将选中的颜色显示在控件Pic2中,单击“线形选择”下的单选按钮可选择粗、细两种线形,在控件Pic2中拖动鼠标,以选择好的颜色和线形,以及鼠标按下点和弹起点的坐标为矩形对角顶点画矩形。
Dim x1 As Single, y1 As Single Dim hColor As Long
Private Sub Command1_Click() CommonDialog1.ShowColor ----1----
Pic2.BackColor = hColor End Sub
Private Sub Form_Load() Option1(1).Value = True End Sub
Private Sub Option1_Click(Index As Integer) ----2---- Case 0
Pic1.DrawWidth = 5 Case 1
Pic1.DrawWidth = 1 End Select
End Sub
Private Sub Pic1_Mousedown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) x1 = X:y1 = Y End Sub
Private Sub Pic1_Mouseup(Button As Integer, Shift As Integer, _ X As Single, Y As Single) ----3---- End Sub
1、hColor = CommonDialog1.Color 2、Select Case Index
3、Pic1.Line (x1, y1)-(X, Y), hColor, B 第4题:【程序说明】打开文本文件e:\\data1.txt,从中找出所有的数字字符;并将这些数字写入文件e:\\data2.txt中。
Private Sub Command1_Click() Dim c As string
Open “e:\\data1.txt” for input as #1 -----1-----
Do while not Eof(1) Line Input #1,c For i=1 to len(c)
If mid(c,I,1)>=48 and mid(c,I,i)<=57 then -----2----- Next i loop
Close #1 -----3----- End Sub
1、Open “e:\\data2.txt” for output as #2 2、print #2, mid(c,I,1)或write #2, mid(c,I,1) 3、close #2 三、填空题 第1题:【程序说明】该程序是对以下数列进行运算:
有一个数列,它的前三个数是0,1,2,从第四个数起,每个数都是它前面的两个数之和,求出该数列的第17个数是多少,并求出该数列的第几个数起每个数都超过1E+8 Private Sub Form_Click() Dim last_one As Long Dim last_two As Long Dim this_one As Long Dim i As Integer
last_one = 1 '数列的第二个数 last_two = 2 '数列的第三个数
i = 4 '从数列的第四个数求起 Do
this_one = last_one + last_two
last_one = last_two last_two = ------1------- If i = 17 Then
Form1.Print \ End If ------2------
Loop While this_one <= 100000000#
Form1.Print \ End Sub
1、this_one
2、I = I + 1或I=1+I 3、I 第2题:【程序说明】
设计用按钮数组command1(0)- command1(9)做一个模拟电话拨号程序。运行时,单击各数字按钮后,在标签label1中显示所拨的号码,按“删除”键command2,删除最后一个号码,按“取消”键command3,则撤销所有拨号,清空标签。
Dim num As String
Private Sub Command1_Click(Index As Integer) num = num & ----1----- Label1.Caption = num End Sub
Private Sub Command2_Click() ------2----
Label1.Caption = num End Sub
Private Sub Command3_Click() -------3------- num = \ End Sub
1、Command1(Index).Caption或trim(str(index))
2、num=Left(num,Len(num)–1)或num = mid(num,1, Len(num)–1) 3、Label1.Caption = \ 第3题:【程序说明】
程序运行时界面如下图,点击“颜色选择”按钮,弹出颜色对话框将选中的颜色显示在控件Pic2中,单击“线形选择”下的单选按钮可选择粗、细两种线形,在控件Pic2中拖动鼠标,以选择好的颜色和线形,以及鼠标按下点和弹起点的坐标为矩形对角顶点画矩形。
Dim x1 As Single, y1 As Single Dim hColor As Long
Private Sub Command1_Click() CommonDialog1.ShowColor hColor = CommonDialog1.Color ----1---- End Sub Private Sub Form_Load() Option1(1).Value = True End Sub Private Sub----2---- Select Case Index Case 0
Pic1.DrawWidth = 5 Case 1
Pic1.DrawWidth = 1 End Select End Sub
Private Sub Pic1_Mousedown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) x1 = X:y1 = Y End Sub
Private Sub Pic1_Mouseup(Button As Integer, Shift As Integer, _ X As Single, Y As Single) ----3---- End Sub
1、Pic2.BackColor = hColor
2、Option1_Click(Index As Integer) 3、Pic1.Line (x1, y1)-(X, Y), hColor, B
或Pic1.Line (x1, y1)-(X, Y), CommonDialog1.Color, B
第4题:【程序说明】在D盘建一文本文件dat.txt,当在文本框Text1中输入字符后,要求每次按回车都把文本框中的内容写入文件dat.txt中,并清除文本框中的内容;如果输入“End”,则结束程序运行。
Private Sub Form_Load()
Open “d:\\dat.txt” for output as #1 Text1.text=”” End Sub
Private Sub Text1_Keypress(Keyascii as integer) IF Keyascii=----1----then
If Ucase(text1.text)=----2----then Close #1 End
Else ----3----
Text1.text=”” End if End if End Sub
1、13 2、“END”
3、write #1,text1.text或print #1,text1.text 三、填空题 第1题:【程序说明】
下列程序的功能是:验证一个大于6的偶数能分解为两个素数之和基本思想是:N为大于6的任一偶数,可分解为N1和N2两个数,分别检查N1和N2是否为素数,若都是,则为一组解。
Private Sub Form_Click()
Dim N%, N1%, N2%, I%, K1%, K2% N = Val(InputBox(\输入大于6的偶数\ For N1 = 3 To N \\ 2 Step 2 K1 = ----1---
For I = 2 To K1 '判断N1是否是素数 If N1 Mod I = 0 Then ----2---- Next I
If I > K1 Then N2 = ----3---- K2 = Int(Sqr(N2)) For I = 2 To K2
If N2 Mod I = 0 Then Exit For Next I
If I > K2 Then Print N & \
End If
End If
Next N1 End Sub
1、Int(Sqr(N1)) 2、Exit For 3、N - N1 第2题:【程序说明】
下列程序运行后,当在组合框中输入一个新项目后按回车时,如果输入的项目在组合框列表中不存在,则自动添加到组合框列表中,并在label2中显示“成功添加新项目!”(界面如下图所示);若该项目存在,则显示“输入项目已存在!”。
Private Sub Combo1_ keypress(KeyAscii As Integer)
If KeyAscii = 13 Then For I = 0 To ----1----
If Combo1.Text = ----2----Then Label2.Caption = \输入项目已存在!\ Exit Sub End If Next I
Label2.Caption = \成功添加新项目!\ Combo1.AddItem ----3---- End If End Sub
1、Combo1.ListCount – 1 2、Combo1.list(I) 3、Combo1.Text 第3题:【程序说明】
程序运行后,在图片框控件Pic1上拖动鼠标,绘制出一个矩形。鼠标按下、抬起的位置分别为矩形斜对角线的顶点,矩形轮廓线为红色,矩形内部填充色为绿色。 ----1----
Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) x1 = X: y1 = Y End Sub
Private Sub Pic1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Pic1.FillColor = vbGreen ----2---- ----3----
End Sub
1、Dim x1 As Single, y1 As Single或Dim x1!, y1! 2、Pic1.FillStyle = 0
3、Pic1.Line (x1, y1)-(X, Y), vbRed, B
或Pic1.Line (x1, y1)-(X, Y), 255, B或Pic1.Line (x1, y1)-(X, Y), RGB(255,0,0), B
第4题:【程序说明】在窗体上建一文本框和一命令按钮,要求单击命令按钮后,显示通用对话框,在通用对话框选择一个文本文件后,将该文本文件的内容读出,并在文本框中显示。
Private Sub Command1_Click() Dim c As string ----1----
Open Commondialog1.FileName----2---- as #1 Do while not Eof(1) Line Input #1,c ----3---- loop Close #1 End Sub
1、Commondialog1.showopen或Commondialog1.Action=1 2、for input
3、Text1.text= Text1.text+c 三、填空题 第1题:【程序说明】
以下程序运行时,打印输出一个如图所示的双三角形图案。
Private Sub Command3_Click()
Dim i As Integer,Dim j As Integer Form1.Cls
For i = 1 To ----1----
Print Spc(i); '左边部分 For j = 1 To ----2---- Print \ Next j
Print Spc(3);
For j = 1 To 2 * i - 1 '右边部分 Print \ Next j ----3----
Next i End Sub
1、5
2、2 * (6 - I) - 1或 (6 - I)*2 - 1或11-I或-2*I+11 3、print 第2题:【程序说明】
本程序是将列表框List1与List2中各表项合并到List3:List1与List2中原有各表项已按ASCII码从大到小排列。要求合并后List3中各表项也要从大到小排列。 Private Sub Command1_Click() Dim I as integer,j as integer List3.Clear ----1----
If List1.ListCount * List2.ListCount = 0 Then Exit Do If----2----Then
List3.AddItem List1.List(0): List1.RemoveItem (0) Else
List3.AddItem List2.List(0): List2.RemoveItem (0) End If Loop For i= 0 To List1.ListCount – 1 List3.AddItem List1.List(i) ----3---- For j = 0 To List2.ListCount - 1 List3.AddItem List2.List(j) Next j List1.Clear: List2.Clear End Sub
1、Do
2、List1.List(0)>List2.list(0)或List2.List(0)<List1.list(0) 3、Next I 第3题:【程序说明】
下列程序运行时,先输入各公司月销售额,然后单击命令按钮,图片框中用红、绿、蓝色显示A、B、C公司销售额的圆饼图(如下图所示)。
Private Sub Form_Load()
Picture1.Width = Picture1.Height End Sub
Private Sub Command1_Click() Const PI = 3.141593
Dim a As Single, b As Single, c As Single, x As Single Picture1.Scale (-8, -8)-(8, 8) ----1----
a = Text1(0).Text: b = Text1(1).Text c = Text1(2).Text x =----2----
Picture1.FillColor = RGB(255, 0, 0) Picture1.Circle (0, 0), 6, 0, ----3---- Picture1.FillColor = RGB(0, 255, 0)
Picture1.Circle (0, 0), 6, 0, -a * x, -(a + b) * x Picture1.FillColor = vbBlue
Picture1.Circle (0, 0), 6, 0, -(a + b) * x, -(a + b + c) * x End Sub
1、Picture1.FillStyle = 0 2、2 * PI / (a + b + c) 3、-2 * PI, -a * x 第4题:【程序说明】下列程序运行时,在驱动器列表框中选择驱动器,目录列表框相应变为所选驱动器的目录列表,在目录列表框中选择相应目录,文件列表框的内容变为所选目录下的文件列表,只要单击其中扩展名为".txt"的文件,即可在文本框中显示文件中的内容。
Dim PathStr As String Private Sub Dir1_Change() ----1---- End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive End Sub
Private Sub File1_Click() Dim c As string
if right(file1.path,1)=\ ----2---- else
PathStr=File1.Path & “\\” & File1.FileName end if
Open Pathstr for input as #1 Do while not Eof(1) Line Input #1,c
Text1.text=----3---- loop Close #1 End Sub End Sub
1、File1. Path =dir1.Path
2、pathstr=file1.path & file1.filename
或file1.path+file1.filename 3、Text1.text+c
或Text1+c或text1 & c或text1.text & c
三、填空题 第1题:【程序说明】
以下程序运行时,打印输出一个如图所示的上下三角形图案。
Private Sub Command1_Click() Dim I As Integer, j As Integer Form1.Cls For I = 1 To 11
If I<=----1---- Then Print Spc(I - 1);
For j = 1 To 2 * (7 - I) - 1 Print \ Next j ----2----
Else '后6行为正三角 Print Spc(11 - I);
For j = 1 To 2 * (I - 5) - 1 ----3---- Next j Print End If Next I End Sub
1、6或5 2、Print 3、Print \ 第2题:【程序说明】
本程序是利用计时器控件来实现文字颜色在窗体有规律变化。最初的标签文字颜色是Qbcolor(0),过一秒后变成Qbcolor(1),再过一秒后变成Qbcolor(2)??变成Qbcolor(15),再变成Qbcolor(0)。直至按”停止”按钮cmd1,窗体停止变化。 Dim s as integer
Private Sub Form_Load()
Label1.caption=”中国北京”:s=0
Timer1.enabled=true:Timer1.Interval = 1000 Label1.forecolor=Qbcolor(s) End Sub Private Sub Timer1_Timer() S= ----1----
Label1.forecolor=Qbcolor(s) If ----2---- Then s = 0 End Sub
Private Sub cmd1_click()’停止按钮 ----3---- = false End Sub
1、S+1或1+S 2、S=15
3、Timer1.enabled 第3题:【程序说明】 在组合框中选择形状后,图片框中控件Shape1的形状、填充样式和颜色均作相应变化。程序运行时如下图
Private Sub Combo1_Click()
Shape1.Shape = = Combo1.List(----1----) Shape1.FillColor = QBColor(Int(Rnd * 16)) ----2----= Int(Rnd * 8) End Sub
Private Sub Form_Load() Dim I As Integer
For ----3----: Combo1.AddItem Str(I): Next I End Sub
1、Combo1.ListIndex 2、Shape1.FillStyle 3、i = 0 To 5
第4题:【程序说明】
下列程序运行时,在驱动器列表框中选择驱动器,目录列表框相应变为所选驱动器的目录列表,在目录列表框中选择相应目录,文件列表框的内容变为所选目录下的文件列表;要求单击命令按钮Command1后,将文本框中的内容保存至目录列表框中所选目录下的data1.txt文件中,若data1.txt不存在,则进行保存时将其创建。 Private Sub Dir1_Change() ----1---- End Sub
Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub
Private Sub Command1_Click() Dim fn as string
fn=dir1.path+”data1.txt” Open ----2----as #1 Print #1,Text1.text ----3---- End Sub
1、File1.Path =dir1.Path
2、fn for output或fn for append
3、Close #1或Close 三、填空题 第1题:【程序说明】
以下程序运行时,打印输出一个如图所示的菱形图案。
Private Sub Command1_Click()
Dim I As Integer,j As Integer, n As Integer Form1.Cls For I = 1 To 9
If I <= 5 Then '打印上半部 Print ----1---- '定位 For j = 1 To ----2---- Print \ Next j Print Else
Print Spc(I - 5); For j = 1 To ----3---- Print \ Next j Print End If Next I End Sub
1、Spc(5 - I);或Tab(5 - I + 1);或Tab(6 - I ); 2、2 * I - 1或I*2-1
3、2 * (10 - I) - 1或(10-I)*2-1或19-2*I或-2*I+19 第2题:【程序说明】
本程序是利用计时器控件来实现文字从窗体上往下掉落。
(1)运行时每隔0.5秒标签框内的文字从窗体上边向下边移动100个单位,当标签框的上边界超出窗体的下边界时,标签再次从窗体的上边进入窗体(尾部先进入)。 (2)文字移动时颜色不断产生随机变化。 Private Sub Form_Load() Form1.WindowState = 2 Timer1.Interval =----1---- End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) If Label1.Top >=----2---- Then ----3---- Else
Label1.Top = Label1.Top + 100 End If End Sub
1、500
2、Form1.Scaleheight
3、Label1.Top = -Label1.Height 第3题:【程序说明】
自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时,显示第一张图片,单击“浏览”按钮,每隔1秒在图片框中显示另一张图片,显示到最后一张图片时,又从第一张开始显示。(假设在C:\\Windows目录下有1.bmp、2.bmp、??、8.bmp这样8张图片需显示) Dim I As Integer
Private Sub Form_Load() ----1----
Picture1.Picture = LoadPicture(\ Picture1.AutoSize = True End Sub Private Sub Timer1_Timer() Dim ff As String If I <= 7 Then ----2---- Else I = 1 End If
ff = \ Picture1.Picture = ----3---- End Sub
1、i=1
2、I=I+1或I=1+I 3、LoadPicture(ff) 第4题:【程序说明】打开文本文件e:\\data1.txt,从中找出所有的大写英文字母;并将这些字母写入文件e:\\data2.txt中。
Private Sub Command1_Click() Dim c As string ----1----
Open “e:\\data2.txt” for output as #2 Do while not Eof(1) Line Input #1,c For I=1 to len( c)
If mid(c,I,1)>=65 and mid(c,I,1)<=90 then print ----2---- Next I loop Close #1 ----3---- End Sub
1、Open “e:\\data1.txt” for input as #1 2、#2, mid(c,I,1) 3、close #2 三、填空题 第1题:【程序说明】
以下程序运行时,计算下列级数的和,直到累加的末项之绝对值小于10的-7次方为止。
Private Sub Command1_Click()
Dim s As Double, x As Double, t As Double, I As Integer x = InputBox(\ s = 1 I = 1
t =----1----
Do While ----2----<1e-7 t = -t * x / I: I = I + 1 s=----3---- Loop Print s End Sub 1、1
2、Abs(t) 3、s + t或t+s 第2题:【程序说明】
以下程序可以将列表框中同时选中的多个列表项删除,请将程序补充完整。 Private Sub cmdDel_Click() i = 0
Do While i<----1----
If List1.Selected(i) = True Then ----2---- Else
----3---- End If Loop End Sub
1、list1.listcount
2、List1.removeitem I
3、I=I+1或I=1+I 第3题:【程序说明】
自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时,显示第一张图片,单击“浏览”按钮每隔1秒在图片框中显示另一张图片,显示到最后一张图片时,又从第一张开始显示。(假设在C:\\Windows目录下有1.jpg、2.jpg、??、8.jpg这样8张图片需显示) Dim i As Integer
Private Sub Form_Load() i = 1
Picture1.Picture = ----1---- Picture1.AutoSize = True End Sub
Private Sub Timer1_Timer() If i <= 7 Then i =i+1 Else i = 1 End If ----2---- End Sub Sub pic()
Dim fn As String fn = \ Picture1.Picture = ----3---- End Sub 1、LoadPicture(\ 2、Call pic或pic 3、LoadPicture(fn) 第4题:【程序说明】打开文本文件e:\\data1.txt,统计所有小写英文字母的个数,并将统计结果写入文件e:\\data2.txt中。 Dim n as integer
Private Sub Command1_Click() Dim c As string ----1----
Open “e:\\data2.tx” for output as #2 Do while not Eof(1) Line Input #1,c For i=1 to len(c)
If mid(c,I,1)>=90 and mid(c,I,i)<=122 then n=n+1 Next i Loop ----2---- ----3---- close #2
End Sub
1、Open “e:\\data1.txt” for input as #1 2、print #2,n或write #2,n 3、Close #1 三、填空题 第1题:【程序说明】
下面是一段计算数学表达式1-1/2!+1/3!-1/4!+??+(-1)n+1 /n!的程序。 Private Sub form_click()
Dim n as integer, p as integer, s as single, q as integer, I as integer n = InputBox(\请输入n的值:\ s = 0: p =----1----: q = 1 For I = 1 To n p = -p
q = ----2---- s = ----3---- Next I Print s End Sub
1、-1 2、q*I
3、s+p/q或p/q+s 第2题:【程序说明】 下面程序反映A B两部门人员调动的程序,要求: 左侧列表框(list1)中的项目均按字母升序排列。双击左侧列表框中的某个项目时,该项目从本列表框消失,并出现在另一个列表框list2中。
界面设计 需要设置
List1. ----1---- = True ‘左侧列表框中的项目均按字母升序排列
过程设计:
Private Sub Form_Load()
List1.AddItem \:List1.AddItem \ :List1.AddItem \
List1.AddItem \ :List1.AddItem \ :List1.AddItem \
List1.AddItem \ :List1.AddItem \:List1.AddItem
\
List1.AddItem \ :List1.AddItem \ :List1.AddItem \ End Sub
Private Sub List1_DblClick() ----2---- ----3---- end sub
1、sorted
2、List2.AddItem List1.Text
3、List1.RemoveItem List1.ListIndex 第3题:【程序说明】
下列程序运行时,先输入各公司月销售额,然后单击命令按钮,图片框中用红、绿、蓝色显示A、B、C公司销售额的圆饼图(如下图所示)。
Private Sub Form_Load()
Picture1.Width = Picture1.Height End Sub
Private Sub Command1_Click() Const PI = 3.141593
Dim a As Single, b As Single, c As Single, x As Single Picture1.Scale (-8, -8)-(8, 8) ----1----
a = Text1(0).Text: b = Text1(1).Text c = Text1(2).Text x =----2----
Picture1.FillColor = RGB(255, 0, 0) Picture1.Circle (0, 0), 6, 0, ----3---- Picture1.FillColor = RGB(0, 255, 0)
Picture1.Circle (0, 0), 6, 0, -a * x, -(a + b) * x Picture1.FillColor = vbBlue
Picture1.Circle (0, 0), 6, 0, -(a + b) * x, -(a + b + c) * x End Sub
1、Picture1.FillStyle = 0 2、2 * PI / (a + b + c) 3、-2 * PI, -a * x 第4题:【程序说明】下列程序运行时,在驱动器列表框中选择驱动器,目录列表框相应变为所选驱动器的目录列表,在目录列表框中选择相应目录,文件列表框的内容变为所选目录下的文件列表,只要单击其中扩展名为".txt"的文件,则将文件中的内容按行添加到列表框中。
Dim PathStr As String Private Sub Dir1_Change() ----1---- End Sub
Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub
Private Sub File1_Click()
if right(file1.path,1)=\
PathStr=File1.Path & File1.FileName else PathStr=File1.Path & “\\” & File1.FileName end if End Sub Private Sub Command1_Click() Dim str1 As string Open Pathstr for input as #1 Do while ----2---- ----3----
List1.additem str1 loop Close #1 End Sub
1、File1. Path =dir1.Path 2、not Eof(1) 3、Line Input #1,str1 三、填空题 第1题:【程序说明】
下列程序的功能是找出被3、5、7整除的最小5个正整数。 Private Sub Form_Click() Dim Ncount%, n% Ncount =----1---- n = 1 Do
n = n + 1
If ----2---- Then Print n
Ncount = Ncount + 1 End If
Loop Until ----3---- End Sub
1、0
2、n mod 3 =0 and n mod 5 =0 and mod 7=0 3、Ncount=5 第2题:【程序说明】
窗体上有一个文本框控件,通过水平滚动条控件数组设置预览区标签label2的颜色。点击应用按钮把预览中标签的颜色作为文本框的前景色。
Private Sub Command1_Click() Text1.ForeColor =----1---- End Sub Private Sub Form_Load()
Text1.Text = \忆江南\ Text1.Text = Text1.Text + \最忆是杭州\ End Sub
Private Sub HScroll1_Change(Index As Integer) Label2.BackColor = RGB(---2---) End Sub
Private Sub HScroll1_Scroll(Index As Integer) Call---3--- End Sub
1、Label2.BackColor
2、HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value 3、HScroll1_Change(Index) 第3题:【程序说明】
程序运行时界面如下图,点击“颜色选择”按钮,弹出颜色对话框将选中的颜色显示在控件Pic2中,单击“线形选择”下的单选按钮可选择粗、细两种线形,在控件Pic2中拖动鼠标,以选择好的颜色和线形,以及鼠标按下点和弹起点的坐标为矩形对角顶点画矩形。
Dim x1 As Single, y1 As Single Dim hColor As Long
Private Sub Command1_Click() CommonDialog1.ShowColor ----1----
Pic2.BackColor = hColor End Sub
Private Sub Form_Load() Option1(1).Value = True End Sub Private Sub Option1_Click(Index As Integer) ----2---- Case 0 Pic1.DrawWidth = 5 Case 1
Pic1.DrawWidth = 1 End Select End Sub
Private Sub Pic1_Mousedown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) x1 = X:y1 = Y End Sub
Private Sub Pic1_Mouseup(Button As Integer, Shift As Integer, _ X As Single, Y As Single) ----3---- End Sub
1、hColor = CommonDialog1.Color 2、Select Case Index
3、Pic1.Line (x1, y1)-(X, Y), hColor, B 第4题:【程序说明】打开文本文件e:\\data1.txt,从中找出所有的奇数;并将这些奇数写入文件e:\\data2.txt中。
Private Sub Command1_Click()
Dim I As Integer ----1----
Open “e:\\data2.txt” for output as #2 Do while not Eof(1) Input #1,I
If I mod 2=1 then----2---- loop
Close #1 ----3---- End Sub
1、Open “e:\\data1.txt” for input as #1 2、print #1,I或write #1,I 3、close #2 三、填空题 第1题:【程序说明】
以下Sub过程Ncount为一个统计程序,用于统计字符串内包含的字母和其他字符的个数。其中参数mstr存放被统计的字符串,Scount用于存放字母个数, Ocount存放其他字符个数。
Public Sub Ncount(mStr As String, Scount As Integer, Ocount As Integer) Dim ml As Integer, i As Integer, mstrc As String ml = ----1---- For i = 1 To ml mstrc = ----2---- Select Case ----3---- Case \ Scount = Scount + 1 Case Else
Ocount = Ocount + 1 End Select Next i End Sub
1、Len(mStr) 2、Mid(mStr, i, 1) 3、mStrc 第2题:【程序说明】
窗体上有一个文本框控件,通过水平滚动条设置文本框的背景颜色。背景颜色可以是Qbcolor(0)~Qbcolor(15),当滚动滑块位于最左侧时背景是Qbcolor(0)。
Private form_load()
Text1.text=”美丽心情” ----1---- ‘text1居中对齐
Hscroll1.smallchange=1:Hscroll1.largechange=1 Hscroll1.min=0 :Hscroll1.max=15 Hscroll1.value=15 End Sub
Private Sub HScroll1_Change() ----2---- End Sub
Private Sub HScroll1_Scroll() Call ----3---- End Sub
1、Text1.alignment=2
2、Text1.BackColor =QBColor(HScroll1.Value) 3、HScroll1_Change 第3题:【程序说明】
自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时,显示第一张图片,单击“浏览”按钮每隔1秒在图片框中显示另一张图片,显示到最后一张图片时,又从第一张开始显示。(假设在C:\\Windows目录下有1.bmp、2.bmp、??、8.bmp这样8张图片需显示) Dim i As Integer Private Sub Form_Load() ----1----
Picture1.Picture = LoadPicture(\ Picture1.AutoSize = True End Sub
Private Sub Timer1_Timer() If i <= 7 Then ----2---- Else
i = 1 End If
Picture1.Picture = ----3---- End Sub
1、i=1 2、I=I+1
3、LoadPicture(\
或LoadPicture(\
第4题:【程序说明】文件c:\\a1.dat中存放若干个学生信息的记录(行),按Command1按钮后,将文件中奇数行记录读出并写入c:\\a2.dat中。 Private Sub Command1_Click() Dim bs As String,cs As String Open \
Open \ i=0
Do While ----2---- i=i+1
Line Input #1, cs
if i mod 2=1 Then ----3---- Loop
Close #1: Close #2 End Sub
1、For Input As #1 2、Not Eof(1) 3、print #2,cs 三、填空题 第1题:【程序说明】
下列程序用于在一个字符串中查找子串”at”,并用消息框给出查找结果的报告:没有找到或找到的个数。
Private Sub Form_click()
Dim str1 As String, n As Integer, sum As Integer, I As Integer str1 = InputBox(\请输入一个字符串:\ n = ----1---- I = 1 sum = 0 Do While I <= n If ----2---- = \ sum = sum + 1 End If I = I + 1 Loop
If ----3---- Then
MsgBox \没有找到!\ Else
MsgBox \找到了\个\ End If End Sub
Len(str1) Mid(str1, i, 2) sum = 0 第2题:【程序说明】
窗体是一个字体设置程序。单击字体组合框可以设置预览区域的标签文字的字体,单击字形组合框可以设置预览区域的标签文字的字形。字体组合框名字为Cboziti、字形组合框名字为Cbozixing、复选框名字为check1、标签文字名字为label5。
正在阅读:
vb程序填空题11-05
电梯安装技术05-06
最新部编人教版一年级下册数学期末试卷11-05
急救急诊培训试题10-26
2011年国家企业培训师资格考试详细介绍08-14
机电空调技术标 - 图文03-23
分析化学的包含方法及原理,研究内容,以及实际应用等方面谈谈对分析化学这门课程的认识10-02
农村集体土地征收管理存在问题与措施研究12-04
沂水县小学语文各年级各学期必背古诗篇目04-19
- 多层物业服务方案
- (审判实务)习惯法与少数民族地区民间纠纷解决问题(孙 潋)
- 人教版新课标六年级下册语文全册教案
- 词语打卡
- photoshop实习报告
- 钢结构设计原理综合测试2
- 2014年期末练习题
- 高中数学中的逆向思维解题方法探讨
- 名师原创 全国通用2014-2015学年高二寒假作业 政治(一)Word版
- 北航《建筑结构检测鉴定与加固》在线作业三
- XX县卫生监督所工程建设项目可行性研究报告
- 小学四年级观察作文经典评语
- 浅谈110KV变电站电气一次设计-程泉焱(1)
- 安全员考试题库
- 国家电网公司变电运维管理规定(试行)
- 义务教育课程标准稿征求意见提纲
- 教学秘书面试技巧
- 钢结构工程施工组织设计
- 水利工程概论论文
- 09届九年级数学第四次模拟试卷
- 填空
- 程序
- 三数(上)第一单元
- 《中国联通运行维护工作AAA标准实施指导手册》
- 病理生理学习题及答案(给力版)
- 2017-2022年中国谷氨酸产业深度调研研究报告(目录) - 图文
- 紧急抢救配合性输血应急预案
- 行星齿轮减速器设计毕业论文
- 年度风险合规及内控管理报告模板(金融公司)
- 早会大全--激励篇(预定稿) - 图文
- XX人才测评系统实战案例集(DOC - 43页)
- 中国脑卒中高发成因和精准预防的研究与转化-北京大学科学研究部
- VERICUT 7.4 第3章 组件与模型 - 图文
- 高中美术人间生活教学反思
- 附:“我的寝室梦想”评比结果
- 律师执业风险的管理与防范
- 走特色立校
- 对招标模式和过程进行回顾和反思
- 《洛克菲勒自传》读后感1500字
- 选拔纪检人员考试题目
- 2013 材料力学期末练习题
- 狗小肠部分切除、肠端-端吻合术