题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2024-05-18 04:25:57

[填空题]在程序的每个空白处填写一条适当的语句,使程序完成相应的操作。程序实现的功能是:窗体上有文本框Text1和若干复选框,其中复选框Check1设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下:
Private Sub Check1_Click( )
If______ Then
Text1.FontUnderline=Tree
ElseIf______Then
Text1.FontUndefiine=False
End If
End Sub

更多"在程序的每个空白处填写一条适当的语句,使程序完成相应的操作。程序实现的"的相关试题:

[填空题]在程序的每个空白处填写一条适当的语句,使程序完成相应的操作。程序实现的功能是:窗体上有文本框Text1和若干复选框,其中复选框Check1用于设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下:
Private Sub Checkl_Click( )
If ______ Then
Text1.FontUnderline=True
Else If ______ Then
Text1.FontUnderline=False
End If
End Sub
[填空题]在程序的空白处填写适当的语句(一个空白处只能填写一条语句),使程序完成相应的操作。窗体上有文本框Text1和若干复选框,其中复选框Check1设置文本框Text1上显示的文本是否加下画线。Check1的单击事件过程如下:
Private Sub Check1_Click( )
______
Text1.FontUnderLine=True
Elself______
Text1.FontUnderLine=False
End If
End Sub
[填空题]11,在程序的空白处填写适当的语句(一个空白处只能填写一条语句),使程序完成相应的计算。程序计算Sn的值,Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。
例如,a=5,n=4时,则:
Sn=5+55+555+5555
Dim a As Integer, n As Integer, Cout As Integer
Dim Sn As Long,Tn As Long
Count=1:Sn=0.Tn=0
A=InputBox("请输入a的值:")
______
Do
Tn=Tn+a
Sn=Sn+Tn
Count=Count+1
Debug.Print a,n,Sn
[填空题]在程序的空白处填写适当的语句(一个空白处只能填写一条语句),使程序完成相应的数据处理。Form_Load事件过程给数组赋初值35,48,15,22,67。Form_Click事件过程对数组元素进行处理。
DimA rr(1 To 5)
Private Sub Form_Load( )
[11]
End Sub
Private Form_Click( )
[12]
If Int(x/3)=x/3 Then
PrintX
End If
Next X
End Sub

[简答题]以下程序的界面有一个按钮button、一个文本区textA和一个文本框textF。程序运行时,在文本区中输人数字序列,单击按钮,则在文本框中显示数字序列的和。以下是要求你编写的actionPerformed(ActionEvent e)方法的部分代码。
public void actionPerformed(ActionEvent e)
if(e.getSource( )==button)
String s=textA.getText( );double sum=0;
StringTokenizer fenxi=new StringTokenizer(s,",/n");
//请在以下位置编写代码


[填空题]文本框分为横排文本框和______文本框两种。
[填空题]在窗体上画两个文本框,名字分别为Text1和Text2,然后编写下列程序。程序运行后,如果在文本框 Text2中输入lmn,那么在文本框Text1中显示的内容将是 【8】
Private Sub Form_Load( )
Show
Text1.Text=" "
Text2.Text=" "
Text2.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAseii As Integer)
Text1.Text=Text1.Text+Chr(KeyAscii-5)
End Sub
[单项选择]窗体上有一个命令按钮和一个文本框,程序执行后,在文本框中输入12345,单击命令按钮后的输出结果为( )。
Private Sub Command1_Click( )
Dim A As Integer,B As Integer
Text1.SelStart=2:Text1.SelLength=2
A=Val(Text1.SelText):B=Len(Text1.Text)
Print A*B
End Sub
A. 68
B. 115
C. 1700
D. 170

我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码