现有以下程序代码:Private sub Form_click()Static s as integers=s+1 text4, text = str(s)End
相似题目
-
设有如下程序代码 : Dim a% Public b%, c% Private Sub Form_Click() Dim b% Print a; b; c End Sub Private Sub Form_Load() Dim a% a = 5 b = 8 c = 10 End Sub 运行程序时单击窗体 , 则在窗体上显示的是 ________ 。
-
在窗体上添加一个文本框,名称为 text1 ,然后编写如下的 load 事件过程,则程序的运行结果是 __________ 。 Private Sub Form_Load Text1.Text= Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End 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运行程序,单击窗体,标签中显示的是________。
-
在窗体上画一个名称为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运行程序,单击窗体,标签中显示的是________。
-
下列程序运行后输出结果是_______. Private Sub Form_Click() K=1 For I=5 to 1 step -1 T=T*10 + K S=S+T Next I Print S End sub
-
执行下面的程序,在窗体上显示的输出结果的第一行是____,第二行是____. Option explicit Private sub form_click() Dim I as integer, j as integer J=10 For I=1 to j I = I+1 J = j - i Next I Print I Print j End Sub
-
有如下程序代码:Private Sub Form_Click()X = 8If X > 8 ThenPrint \X > 8\ElseIf X < 10 ThenPrint \X < 10\ElseIf X = 8 ThenPrint \X = 8\End IfEnd Sub运行程序,单击窗体,输出结果是________。
-
单击窗体时,下列程序代码的执行结果为______ 。 Private Sub Test (x As Integer) x=x*2+1 If x <
-
下面程序执行时,输出的结果是()。Private Sub Form_Click()DimiASInteger,j As Integeri=10Doi=i+
-
在窗体上设计如下两个事件过程: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii) End Sub 在程序运行后,按“a”键(不按住Shift
-
下列程序: Private Sub Form_Click ()
-
单击窗体时,下列程序段的执行结果为()。Private Sub Form_Crick()Line(200,200)-(400,400)Print"+
-
◑设有如下程序: Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10,'000,000.00') End Sub 程序运行后,单击窗体,输出结果为【 】。
-
当按下鼠标左键触发下面事件发生时,参数Button的值是 。 Private Sub Form _ MouseDow n () End Sub
-
执行下面的程序段后,结果是()。Private Sub Form_Click()Dim mIf m Then Print m Else Print m+1End Sub
-
在窗体上画一个文本框,名称为Text1,然后编写如下程序: Private Sub Form_Load() Open"d:empdat.txt"For Output As 1 Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If______=13 ThenIf UCase(Text1.Text)=____
-
下列程序的功能是:将数据1,2,…,10写入顺序文件Base.txt中,请填空。 Private Sub Form_Click() Dim i As Integer Open ______ As 1 For i=1 To 10 Prin t1,i Next Close 1 End Sub
-
在窗体中有一个文本框Test1,编写事件代码如下:Private Sub Form_Click()
-
下列程序运行后,输出结果为______。 Sub abcd(ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click() n%=3 Call abcd(n%) Print n% End Sub
-
设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下: Private Sub Command1_Click() Dim a As Integer a=10 Call g(Form2,a) End Sub Private Sub g(f As Form, X As Integer) y=IIf(x>,10,
-
在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮Command1变为可用。请填空。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1_ ______ Command1.Enabled=True
-
下列程序的功能是:将字符串“abcde”逆序打印出来。请填写空白处以完善程序。 Function rev(str1) As StringB=Mid(______,1, 1)If B= "" Then rev=""Else rev=rev(Mid(str1, 2)) +______End If End Function Private Sub Form_Click()old ="abcde"Prin
-
在窗体上画1个文本框,名称为Text1,然后编写如下程序: Private Sub Form Load() Open "C:dat.txt" For Output As1 Text1.Text="" End Sub Private Sub Text1_KeyPress(KeyAscii As integer) If______=13 Then If UCase(Text1.Text=______)
-
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下: 标题(p) 名称(m) 内缩符号 Index 窗体 Mnu() 无 显示窗体2 Mnu1 1 1 退出 Mnu1 1 2 窗体Form1中的程序如下: Dim Flag As Boolean Private Sub Form_Load() Flag = True End Sub Private Sub mn
推荐题目
- Diminishing returns,law of 收益递减规律
- 监管人员外部行为规范包括()
- 若发现胶管漏气,可用胶布包扎严密继续使用。()
- 常水头计算公式据达西定律推导而得,求得的渗透系数为()温度下的渗透系数,在计算时要换算到()温度下的渗透系数。
- (1).药物细粉以适宜液体为粘合剂泛制成的小球形制剂是() (2).将药材提取物与基质用适宜方法混匀后,滴入不相混溶的冷却液中,收缩冷凝而制成的制剂是()(3).药物细粉与适宜粘合剂混合制成的可塑性丸块,经制丸机或丸模制成的制剂是()(4).将一定量的药材提取物加适宜的辅料密封于球形、椭圆形或其他形状的软质囊材中制成的制剂是()
- 五脏共同的生理功能是()
- ()可以增强操作者的定力和稳定性,使操作者强制自己排除各种干扰。
- 乙公司在与甲公司交易中获得300万元的汇票一张,付款人为丙公司。乙公司请求承兑时.丙公司在汇票上签注:“承兑。甲公司款到后支付。”根据票据法律制度的规定,下列关于丙公司付款责任的表述中,正确的是()。
- 与传统VDI和链接克隆相比,全内存桌面的优势不包括下列那一项()
- 患者女,50岁。患多发性子宫肌瘤5年,定期随诊。近半年肌瘤明显增大伴有贫血症状,医生建议手术。正确的手术备皮范围是()