搜索关键词: form   搜索到:4 条

问题:

[填空题] 在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click() Text1.Text = "VB程序设计"End SubPrivate Sub Text1_Change() Picture1.Print "VB Programming"End Sub程序运行后,单击窗体,则在文本框中显示的内容是 _________,而在图片框中显示 的内容是 _________。

问题:

[填空题] 在一个窗体上有两个命令按钮,cmdMax 和 cmdMin。单击cmdMax时,窗体上显示“字体由小变大”,字号每次增加2;单击cmdMin时,窗体上显示“字体由大变小”,字号每次减小2。请填空。  Private Sub Form_Load()    Forml.Caption =“字体变化示范”    cmdMax.Caption=“字体变大”    cmdMin.Caption=“字体变小”  End Sub  Private Sub cmdMax_Click()     【 】  

问题:

[填空题] 下列语句的输出结果是【 】。  Print Format$(6658.6,"000,000.00.")

问题:

[填空题] 在窗体上画两个文本框,其名称分别为Namel和PassWordl,然后编写如下事件过程  Private Sub Form_Load()    Show    Namel.Text=" "   Passwordl.Text=" "    Passwordl.SetFocus  End Sub  Private Sub Passwordl_KeyDown(KeyCode As Integer,Shift As Integer)    Namel.Text=

问题:

[填空题] 阅读以下程序: Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1 Do While k <= n m=m+2 k = k + 1 LoopPrint m End Sub 单击窗体程序的执行结果是 【4】 。

问题:

[填空题] 在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: Private Sub Command1_Click()a = Text1.Text + Text2.TextPrint a End Sub Private Sub Form_Load()Text1.Text = " "Text2.Text = " " End Sub 程序运

问题:

[填空题] 在菜单编辑器中建立一个菜单,其主菜单项的名称为nmuEdit,Visible属性为False。程序运行后,如果用鼠标右键单击窗体,则弹出与mnvEdit对应的菜单。以下是实现上述功能的程序,请填空。 Private Sub Form 【2】 (Button As Integer, Shift As Integer,X As Single, Y As Single)If Button = 2 Then 【3】 mnuEditEnd If End Sub

问题:

[填空题] 在窗体上有二个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮Command1变为可用。请填空。Private Sub Form_Load()Commandl.Enabled=FalseEnd Sub Private Sub Text1【 】()Commandl.Enabled=True End Sub

问题:

[填空题] 下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指两个素数的差为 2,如3和5,11和13等,请填空。 Private Sub Form_Click()Dim i As IntegerFor i = 3 To 97 Step 2 If 【9】 Then Print i, i + 2 End IfNext i End Sub Public Funtion Prime (ByVal n As Integer) As BooleanDim i as IntegerFor i =

问题:

[填空题] 执行下面程序,第一行输出结果是 【14】 ,第二行输出结果是47。 Option Explicit Private Sub Form_Click( ) Dim A As IntegerA=2Call Sub1 (A) End Sub Private Sub1 (x As Integer) x=x*2+1 If x<10 Then Call Sub1 (x) End If x=x*2+1 Print xEnd Sub