问答题

编程实现加法运算，在两个文本框中输入加数，用标签表示结果，单击按钮进行计算，完成下列计算过程。
Private Sub Command1_Click()
Dim AAs Integer,B As Integer
A= ____
B=Val(Text2.Text)
=A+B
End Sub

A.Text)

你可能感兴趣的试题

注意：下面出现的所有文件都必须保存在考生文件夹[K：/K01/1501001]下。
对考生文件夹下WORD.DOC文档中的文字进行编辑，排版和保存，具体要求如下：
1. 在考生文件夹下打开文档WORD1.DOC，按照要求完成下列操作并以该文件名(WORD1.DOC) 保存文档。
(1)将标题段文字(“上万北京市民云集人民大会堂聆听新年音乐”)设置为三号黑体、蓝色、加粗、居中并添加红色底纹和着重号。
(2)将正文各段文字(“上万北京市民选择在……他们的经典演出。”)设置为小四号、仿宋_GB2312；第一段悬挂缩进2字符；第二段前添加项目符号◆。
(3)将正文第三段(“一年一度的……国家大事时准备的。”)分为等宽的两栏。
2. 在考生文件夹下，打开文档WORD2.DOC，按照要求完成下列操作并以该文件名(WORD2.DOC) 保存文档。
(1)将文档中的文字转换成一个4行5列的表格，设置表格列宽为2.4厘米。
(2)将表格外部框线设置成实线，3磅，表格内部框线为实线，1磅；第一行加红色底纹。

A.DOC文档中的文字进行编辑，排版和保存，具体要求如下：
B.DOC，按照要求完成下列操作并以该文件名(WORD1.DOC)
C.DOC，按照要求完成下列操作并以该文件名(WORD2.DOC)
D.4厘米。

设计两CheckBox，一个显示粗体，一个显示斜体，通过对CheckBox的选择，在一个文本框中显示相应效果的文本，完成下列程序。
Private Sub Form_Load()
Check1.Caption='显示粗体'
Check2.Caption='显示斜体'
Text1.Text='Visual Basic6.0'
End Sub
Private Sub Check1_Click()
If _______=1 Then
Text1.FontBold=True
Else
Text1.FontBold=False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value=1 Then
Text1. __ =True
Else
Text1. _ =False
End Sub

A.Caption='显示粗体'
B.Caption='显示斜体'
C.Text='Visual
D.0'
E.FontBold=True
F.FontBold=False
G.Value=1