以下所列程序的功能是:在窗体上有一个文本框控件,程序运行后,用户可以利用鼠标左键来拖动该文本
在窗体上有5个控件:一个名称为Text1的文本框控件,用来显示文本;两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框;两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)的单选按钮。当Check1被选中时,文本框中显示的字体加下划线,当Option2被选中时,文字框中显示的字体大小为16磅,程序运行时的界面如图20-5所示。请填空。
Private Sub Check1_Click() If Check1.Value=【 】Then Text1.FontUnderline=True Else Text1.FontUnderline=False End If End Sub Private Sub Option2_Click() Text1.【 】 End Sub
在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个标题为“计算”的命令按钮,1个标题为“1!+2!+…+10!=”的标签。请画1个名称为Text1,初始内容为空的文本框,如图所示。程序功能:单击“计算”命令按钮,则计算“l!+2!+…+10!”的值,并将结果显示在Textl文本框中。请将“计算”命令按钮的Click事件过程中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。
Private Sub Command1_Click() Randomize n=CInt(Text1.Text) n1=0 n2=0 For i=1To【 】 r=Int(Rnd*2) If r=【 】Then n1=n1+1 Else n2=n2+1 End If Next TcxtText=n1 TextText=n2 End Sub
在Visual Basic工程prjl中包含有两个窗体,窗体form1(主窗体)上有两个命令按钮command1和 command2,一个文本控件text1;窗体dialog是一个对话窗体,窗体包含两个命令按钮OK和Cancel,一个文本控件text1和一个标签控件labe11。 编写程序要求实现的功能为:窗体form. 1上command1的caption属性值为name,程序运行后,当单击 eommand1时,弹出对话窗体dialog,其labe11控件中的提示信息为“please input your name:”,要求用户输入自己的姓名。如果单击OK按钮,保存当前输入的内容并返回form1界面,command1的caption属性值为email。若再次单击command1命令按钮,仍然出现dialog对话窗体,此时dialog的labe11提示用户输入自己的email,当用户输入email后,单击“确定”按钮,保存当前输入的内容并返回form1界面;如果单击Cancel按钮,则输入内容无效并返回form1。 Private Sub Command1_Click() Dialog. Text1. Text = "" Dialog. Show End Sub Private Sub Command2_Click() Text1. Text = "email: "+ Dialog. email +" name: "+ Dialog. fname End Sub Private Sub Form_ Load() Command1. Caption = "name" 【 】. Caption = "please input your name: Dialog. i = 0 End Sub Option Explicit Public i As Integer Public email As String Public fname As String Private Sub CancelButton_Click() i=0 email = "" fname = "" Forml. Command1. Capt ion = "name" Dialog. Hide Form1. Show End Sub Private Sub OKButton_ Click() 【 】 Select Case i Case 1: email = Text1. Text Labe11. Caption = "please input your email:" 【 】. Caption = "email" Case 2: fname = Text1. Text 【 】. Caption = "name" i=0 End Select Dialog. Hide Form1. Show End Sub
A.108
B.18
C.810
D.出错
Prirate Sub Form_L.aad()
Labell.Caption=“欢迎”
Timer1.Enabled=False
Timer1.Interval=【 】
Commandl.Caption=“开始闪烁”
End sut)
Private Sub Timer1_rrimer()
Label1.visible=【 】
Emi sub
PTivate Sub Commandl_Click()
【 】
End sub