问答题


【参考答案】

[解析] 首先理清程序提供代码的思路,然后修改程序并编写代码。
从程序提供的代码中可以看出,整型数组a的使用范......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
热门 试题

问答题
[解析] 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 命令按钮和标签的标题在属性窗口的Caption属性设置。要使TextA的文本框没有初始内容,就在属性窗口中的Text属性设为空。要在下拉式组合框中输入内容,通过下拉式组合框在属性窗口的List属性设置。 AddItem方法用来项组合框中添加一个表项,其给是为: 组合框.Additem列表项[索引] ListCount属性返回组合框中列表项的综合。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及属性设置见表BC-C。 表 BC-C 控 件 属 性 设 置 值 标签 Caption 添加项目: 文本框 Text 下拉式组合框 List 中国 美国 英国 按钮 Caption 添加 按钮 Caption 统计 第二步:编写程序代码。 参考代码: Option Explicit Private Sub CommandA_Click() ComboA.Addltem TextA End Sub Private Sub CommandB_Click() Me.Print ComboA.ListCount End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (B) [解析] 首先要确定移动的位数,移动的位数是通过单选框来选择的,移动的值是由单选框的Caption属性确定的,然后要确定循环的次数,循环的次数是由输入字母的个数确定的。对字符串,需要对字符进行逐个处理。使用Mid函数取出字符串中的字符,利用Ase函数返回字符的代码,利用String函数将字符代码转换成字符。 Mid函数的格式为: Mid(字符串,p,n) Mid函数从第p个字符开始,向后截取n个字符,p和n都是算术表达式。Mid函数的第三个变量可以省略,这样将第 p个字符开始先后截取到字符串的结尾。解题步骤: 第一步:分析题目提供的代码。 Private Sub CommandA_Click() Dim n As Integer, k As Integer, m As Integer Dim c As String, a As String For k=0 To B If OpA(k) .Value Then ’n=Val (OpA (k) . ) End If Next k m=Len(TextA.Text) a= ’For k=A To ’c=Mid$(TextA.Text, , A) c=String(A, Asc(c) + n) If c> z Or c> Z And c< a Then ’c=String(A, ) End If a=a+c Next k TextB.Text=a End Sub 第二步:修改程序代码。 参考代码: Private Sub CommandA_Click() Dim n As Integer, k As Integer, m As Integer Dim c As String, a As String For k=0 To B If OpA(k) .Value Then n=Val(OpA(k) .Caption) End If Next k m=Len(TextA.Text) a= For k=A To m c=Mid$(TextA.Text, k, A) c=String(A, Asc(c) + n) If c> z Or c> Z And c< a Then c=String(i, Asc(c)-BF) End If a=a+c Next k TextB.Text=a End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。