在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下的事件过程: Private Sub Command1_Click() s = 0 For i = 0 To 15 X = 2 * i - 1 If X Mod 3 = 0 Then s = s + 1 Next i Label1.Caption = s End Sub 程序运行后,单击命令按钮,则标签中显示的内容为()
设有如下程序: Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后,单击窗体,则在窗体上显示的是()
在窗体上建立了多个控件,如TEXT、LABEL1、COMMAND1,若要使程序一运行焦点就定位在COMMAND1控件上,应将COMMAND1控件的()设置为0.
在VB6.0中,如果要使窗体上的多个控件具有相同的尺寸,在选择了这些控件之后,应执行VB"格式"菜单中的命令。
在窗体上画一个名称为Label1的标签,然后编写如下事件过程:Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序,单击窗体,标签中显示的是________。
在窗体上画一个名称为Label1的标签,然后编写如下事件过程:Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序,单击窗体,标签中显示的是________。
在窗体上画一个名称为Timer1的计时器控件,要求每隔0.1秒发生一次计时器事件,则以下正确的属性设置语句是( )。
在窗体上有一个名为num2的文本框和run11的命令按钮,事件代码如下: Private Sub run11 Click() Select Case num2 Case 0 Result=“0分” Case 60 T0 84 result= “通过” Case IS>=85 result= “优秀” Case Else result=“不合格” End Select MsgBox result End Sub 打开窗体,在文本框中输入80,单击命令按钮,输出结果是()。
设有如下程序:PrivateSubForm_Click() DimjAsInteger,sumAsInteger j=1 sum=0 Whilejif j mod 3=0 then sum=sum+jj=j+1 wendprint sumEndSub 程序运行后,单击窗体,输出结果
在窗体中添加一个命令按钮(名称为Conunandl),然后编写如下代码:PrivateSubCommand1-Click()a=0:b
窗体中有命令按钮Command32,其Click事件代码如下。该事件的完整功能是:接收从键盘输入的10个大于0的整数,找出其中的最大值和对应的输入位置。
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码。 Private Sub Commandl_Click() Dim a(1 0,10)Form=2 to4Forn=4to5a(m,n=m*nNextnNextmMsgBox a(2,5)+a(3,4)+a(4,5)EndSub窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
在窗体、 图片框和图像框中显示的图形以文件形式存放在磁盘上, Visual Basic6.0支持以下格式的图形文件。()
设Picture1.ScaleLeft=-200,Picture1.ScaleTop=250,Picture1.ScaleWidth=250,Picture1.ScaleHeight=-400。则Picture1右下角坐标为()。
计算自然对数e的近似值,要求精度为0.000001。 界面自己设计。 保存工程和窗体,窗体文件名分别为:昵称-6-1DO.frm和昵称-6-1FOR.frm;工程名为:昵称-6-1DO.vbp和昵称-6-1FOR.vbp。将工程文件和窗体文件压缩成:昵称-6-1DO.rar和昵称-6-1FOR.rar,以附件形式提交。 【注意】 ① 本题的精度与视频上的不同。 ② 分别用DO循环和FOR循环编写程序。
◑设有如下程序: Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10,'000,000.00') End Sub 程序运行后,单击窗体,输出结果为【 】。
定义一个排序的子过程,程序运行后,单击窗体,随机产生0~100之间的10个整数赋给一个一维数组,然后调用此子过程将一维数组中的数据按照从大到小的顺序进行排序,最后在窗体上输出排序前及排序后的数。 保存工程和窗体,窗体文件名为:昵称-7-3.frm;工程名为:昵称-7-3.vbp。将工程文件和窗体文件压缩成:昵称-7-3.rar,以附件形式提交。
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下的事件过程: Private Sub Command1_Click()s = 0For i = 0 To 15X = 2 * i - 1If X Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = s End
窗体上有一个名称为CD1的通用对话框控件和由4个命令按钮组成的控件数组Command1,其下标从左到右分别为0、123。窗体外观如图所示。对上述程序,下列叙述中错误的是()
在窗体中先建立一个名称为label1的控件数组(它的index属性为0),当执行以下程序段:PrivateSubForm_Load()DimmtopAsInteger,mleftAsInteger,iAsInteger,jAsIntegermtop=0Fori=1To8mleft=50Forj=1To8k=(i-1)*8+jLoadLabel1(k)Label1(k).BackColor=IIf((i+j)Mod2=0,QBColor(0),QBColor(15))Label1(k).Visible=TrueLabel1(k).Top=mtopLabel1(k).Left=mleftmleft=mleft+Label1(0).WidthNextjmtop=mtop+Label1(0).HeightNextiEndSub执行后的效果是()
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() t=0:m=1:Sum=0 Do t=t+ (8) Sum=Sum+ (9) m=m+2 Loop While (10) Print Sum End Sub 该程序的功能是,单击命令按钮,则计算并输出以下表达式的值: 1+(1+3)+(1+3+5)+…+(1+3+5+
新建一个工程,要求实现的功能是,在窗体中实现从左向右动态显示“为人民服务”这几个字。字符串以0.1秒一次的速度移动。程序运行情况如图7所示。程序中不得使用任何变量。 注意:存盘时必须存放在考生文件夹下,工程文件名为ylc3.vbp,窗体文件名为ylc3.frm.
在名称为Form1,标题为“控件数组”的窗体上,添加1个名称为Cmd1的控件数组,该控件数组由三个命令按钮组成,其标题分别是“插入”、“删除”、“更新”,索引号分别为0、1、2。程序运行后的窗体如图所示。 *注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体文件名保存为sjt1.frm。
窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程: Private Sub Text1_Change(Index As Integer) Select Case Index Case 0 Text1 (1). FontSize = Text1 (0). FontSize * 2 Text1 (1). Text = Text1 (0). Text Case 1 Text1