(13)在窗体上画一个文本框(其Name属性为Text1),编写下列事件过程,运行结果是。 Private Sub Form_LoadShow Text1.Text="你好!" Text1.SetFocus For i=1 To 15 Sun=Sun+i Next i Text1.Text=Sun End Sub
(8)下列这个Sub过程的功能是统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。Private Sub numCountDim num As Integer s$="software And hardware" Num=Len(s$) For i=1 unm b$=。 If b$="a"Then x=x+1 Next i Print"x=";xEnd Sub
题目答案
您的答案
答案解析
(9)下列程序的输出结果是。 Sub PrinDim B As String A=1 B=A & Space(4)&A PrintA Print trim(B) End Sub
题目答案
您的答案
答案解析
(11)设有下列程序查找并输出该数组中的最小值,请在空白处填上合适的代码,将程序补充完整。 Option Base 1 Private Sub Command1_ClickDim arr1 Dim Min As Integer,i As Integer Arr1=Array(12,435,76,-24,78,54,866,43) Min=arr1(1) For i=2 To 8 If arr1(1)<Min Then Next i Print"最小值:";Min End Sud
题目答案
您的答案
答案解析
下列程序中,a,b,c代表一个三角形的三条边,程序的作用是判断一个三角形是否成立,请填写空白处。 If a + b < cb + c < aa + c < b Then MsgBox("这三条边不能构成一个三角形") End If
题目答案
您的答案
答案解析
在面向对象程序设计方法中,类的实例称。
题目答案
您的答案
答案解析
(13)在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2.要求程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下的标签中显示出来,请填空使程序完整。Private Sub Combo1_Click() Call ShowItem(Combo1,Label1) End SubPrivate Sub Combo2_Click() Call ShowItem(Combo2,Label2)End SubPrivate Sub ShowItem(tmpCombo As ComboBox,tmpLabel As Label) Caption=.TextEnd Sub
题目答案
您的答案
答案解析
(14)窗体中有一个命令按钮,然后编写下列事件过程: Private Sub Command1_Clickx=0 Do Until x=-1 a=InputBox("请输入第一个数字a的值") a=Val(a) b=InputBox("请输入第二个数字b的值") b=Val(b) x=InputBox("请输入第二个数字x的值") x=Val(x) a=a+b+x Loop Print a End Sub 在程序运行后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出的结果是。
题目答案
您的答案
答案解析
(9)滚动条的最小值属性是,最大值属性是。
题目答案
您的答案
答案解析
(11)下列是一个体操评分程序。设满分为10分,20位评委,除去一个最高分和一个最低分,计算平均分。 Private Sub Command1_ClickMax=0 Mix=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n>Max Then Max=n If n>Mix Then Mix=n s=s+n s=s-Mix-Max P=s/18 Print"最高分";Max;"最低分";Mix Print"最后得分:";p End Sub
题目答案
您的答案
答案解析
(14)下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请填空。 Option Base1 Private Sub Form_Click() Dim x x=Array(57,-9,17,42,-31,46,11,8,6,-4,3,90) Max=1 For k=2 To 10 Step 1 If x(k)>x(Max)Then End If Next k y=Print Max,y End Sub